Посчитать количество строк в текстовом файле

@yutochka123 · Регистрация: 14.11.2014

Помогите пожалуйста!!!
6. Дан текстовый файл. Посчитать количество строк в нем. Результат выведите на экран.
Заранее спасибо!!!!

@Puporev · 22.09.2015, 18:03

Pascal

var f:text;
     s:string;
     k:integer;
begin
assign(f,'input.txt');
reset(f);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  k:=k+1;
 end;
close(f);
write('Количество строк=',k);
end.

@yutochka123 · 22.09.2015, 18:11 **[ТС]**

Спасибо большое! А не подскажите, как подсчитать количество символов в каждой строке

@Puporev · 22.09.2015, 18:15

Pascal

while not eof(f) do
 begin
  readln(f,s);
  k:=k+1;
  writeln('Количество символов в строке ',k,'=',length(s));
 end;

Посчитать количество строк в текстовом файле

Решение

Решение

@yutochka123 0 / 0 / 0 Регистрация: 14.11.2014 Сообщений: 55
		1
	Посчитать количество строк в текстовом файле 22.09.2015, 17:37. Показов 3404. Ответов 3 Метки нет (Все метки) Помогите пожалуйста!!! 6. Дан текстовый файл. Посчитать количество строк в нем. Результат выведите на экран. Заранее спасибо!!!! 0

@yutochka123 0 / 0 / 0 Регистрация: 14.11.2014 Сообщений: 55
	22.09.2015, 18:11 [ТС]	3
	Спасибо большое! А не подскажите, как подсчитать количество символов в каждой строке 0

Опции темы