Подсчитать количество чисел, равных нулю

@verorevo · Регистрация: 01.06.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите разобраться с такой задачей:
В текстовом файле содержится последовательность действительных чисел. Подсчитать количество чисел, равных нулю. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры. Буду очень признательна, если объясните решение

@dencil · 01.06.2014, 21:14

перед запуском создай файл в папке с паскалем и заполни его числами в строчку.

Pascal

var s:string;
d:real;
i:integer;
f:text;
begin
writeln('Введите название файла');
readln(s);
assignfile(f,s);
reset(f);
while not EOln(f) do begin
read(f,d);
if (d=0) then inc(i);
end;
close(f);
assignfile(f,s);
append(f);
writeln(f,'В файле ',i,' чисел равных нулю ');
close(f);
end.

@verorevo 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 1
		1
	Подсчитать количество чисел, равных нулю 01.06.2014, 19:13. Показов 4187. Ответов 1 Метки нет (Все метки) Здравствуйте. Помогите разобраться с такой задачей: В текстовом файле содержится последовательность действительных чисел. Подсчитать количество чисел, равных нулю. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры. Буду очень признательна, если объясните решение 0

	01.06.2014, 21:14

Опции темы

Подсчитать количество чисел, равных нулю

Решение