👤
TANYAPASCALZE
a fost răspuns

Elaborați o procedura care
a) creează o copie de rezervă a unui fișier text;
b) exclude dintr-un fișier text liniile vide

Răspuns :

LOZANALEXZE
a)

procedure copiaza(f:text);
var s:string; x:text;
begin
  assign(x,'copiaza.txt');
  reset(f);  rewrite(x);
  while (not(eof(f))) do
  begin
    readln(f,s);
    writeln(x,s);
  end;
  close(f); close(x);
end;

b)

procedure stergeVid(f:text);
var s:string; x:text;
begin
  assign(x,'2.txt');
  reset(f); rewrite(x);
  while (not(eof(f))) do
  begin
    readln(f,s);
    if (s<>'')then writeln(x,s);
  end;
  close(f); close(x);
end;
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari