4programmers.net 4p Forum Archiwum Newbie Pascal- program liczący

Pascal- program liczący

Pascal- program liczący
  • Rejestracja: dni
  • Ostatnio: dni
0

Witam. Wiem, że problem może Wam się wydawać śmieszny ale desperacko szukam pomocy. Dostałem na zadanie napisać program i mam mało czasu.

Program ma liczyć ilość znaków w poszczególnych wierszach pliku a następnie wyświetlić w którym wierszy ile znaków było.

Nie wiem jak rozdzielić poszczególne wiersze. Jestem w stanie tylko ogarnąć program liczący wszystkie znaki ale nie wiem jak rozgraniczyć od siebie poszczególne wiersze.

Kopiuj
uses crt;

var plik: text;
var znaki: integer;
var A: string;

begin
clrscr;

assign(plik, 'C:\plik.txt');
reset(plik);

znaki:=0;

repeat

readln(plik, A);
znaki:=znaki+length(A);

until eof(plik);

write(znaki);
readln;

end.
Udostępnij
Patryk27
Patryk27
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Wrocław
  • Postów: 13042
0
Kopiuj
Var I: Integer; 
//...
I := 0;
repeat

Inc(I);
readln(plik, A);
WriteLn('Wiersz ',I,' --> ',length(A));

until eof(plik);

?

Udostępnij
pelsta
pelsta
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 819
1
Patryk27 napisał(a)
Kopiuj
 
repeat

Inc(I);
readln(plik, A);
WriteLn('Wiersz ',I,' --> ',length(A));

until eof(plik);

Bezpieczniej będzie tak:

Kopiuj
 
while not Eof(f) do
begin
  Inc(I);
  ReadLn(plik, A);
  WriteLn('Wiersz ',I,' --> ',Length(A));
end;
Udostępnij

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto