👤
ANABUNU123EZ
a fost răspuns

Elaborati un Program in Pascal. Se da fisierul de intrare date.txt. Afisati pe ecran liniile fisierului dupa fiecare linie afisati lungimea liniei (nr. de caractere) iar la sfarsit numarul total de linii si nr total de caractere cea mai lunga linie de text din fisier.

Răspuns :

Program Tema;
uses Sysutils;

const C_FNAME='date.txt';
var tfIn:TextFile;
      s:string;
      max,counter,nr_caractere:integer;

begin
max:=0;
counter:=0;
nr_caractere:=0;
AssignFile(tfIn,C_FNAME);
while not eof(tfIn) do
begin
readln(tfIn,s);
writeln(s);
writeln(Length(s));
nr_caractere:=nr_caractere+Length(s);
if(Length(s)>max)
max:=s;

counter:=counter+1;
end;
tfIn.close();
writeln(counter,' ',nr_caractere,' ',max);
end.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari