Работа с текстовыми файлами в языке Паскаль - 24 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

24
{
Запись в текстовый файл всех чисел из другого
текстового файла, больших их среднего арифметического
}
program s_5_1;
var
FIn, FOut: Text;
R, RAv: Real;
NCount: Integer;
begin
{ Открытие входного файла }
Assign(FIn, 'input.txt');
Reset(FIn);
{ Нахождение среднего арифметического }
NCount := 0;
RAv := 0.0;
while not EOF(FIn) do
begin
Read(FIn, R);
NCount := NCount + 1;
RAv := RAv + R
end;
if NCount > 0 then
RAv := RAv / NCount;
{ Открытие выходного файла }
Assign(FOut, 'output.txt');
Rewrite(FOut);
{ Возврат на начало входного файла }
Reset(FIn);
{ Запись в выходной файл всех чисел, больших RAv }
while not EOF(FIn) do

Страницы