Съобщение до себе си

Напишете програма, която да ви позволява да съхраните във текстов файл някакво съобщение до вас самите и до другите, които стартират програмата (например нещо, което искате да не забравите, вашият девиз, вашето послание към света или нещо друго по ваш избор). Когато се стартира програмата, нека тя да извежда предишното съобщение и после да ви пита искате ли да добавите ново съобщение, да заместите съществуващото и от колко реда ще бъде то, и после ви позволявате да въведете текста му.

По желание: може да не указвате колко реда е посланието, а програмата да ви позволява да въвеждате нови редове докато не въведете празен ред.

Публикувано в 10в с етикети . Постоянна връзка.

2 Responses to Съобщение до себе си

  1. Violeta каза:
     program viki;
    var A:array [1..100]of string;
    F: System.text;
    i:integer;
    N:integer;
    begin
       System.Assign(F, 'masiv.txt');
     Reset(F);
     ReadLn(F, N);
     for i:= 1 to N do ReadLn(F, A[i]);
     System.Close(F);
     WriteLn('Predishnoto sobshtenie beshe ');
        for i:= 1 to N do
    WriteLn(a[i], ' ');
    WriteLn('Kolko reda shte vavejdate');
      ReadLn(N);
      WriteLn('Sega vavedete teksta');
         for i:= 1 to N do
    ReadLn(A[i]);
    System.Assign(F, 'masiv.txt');
     Rewrite(F);
    WriteLn(F, N);
     for i:= 1 to N do
    WriteLn(F, A[i]);
    System.Close(F);
    end.
                                  
  2. sup3rEva каза:
    VAR
    A:array[1..100]of string;
    F:system.text;
    i:integer;
    n:integer;
    begin
    System.Assign(F, 'masiv.txt');
     Reset(F);
     i:= 1;
     while not EOF(F) do begin
     ReadLn(F, A[i]); Inc(i);
     end;
     N:=i-1;
     System.Close(F);
     Writeln('Predniq pyt wawedohte:');
    for i:= 1 to N do
    Writeln(a[i]);
    
    Write('Wawedete broi redowe');
    ReadLn(N);
    for i:= 1 to N do begin
    ReadLn(a[i]);
    end;
    system.Assign(F,'masiv.txt');
    Rewrite(F);
    For i:=1 to N do
    Writeln(F,A[i]);
    system.Close(F);
    Readln;
    end.   
     

Вашият коментар