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

Публикувано на 04 март, понеделник от Данаил

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

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

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

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

  1. Violeta каза:
    04 март, понеделник в 10:45 
     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 каза:
    04 март, понеделник в 10:50 
    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.

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