Заполнить файл элементами исходного, значение которых меньше 0.8

@Deswood · Регистрация: 05.06.2012

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

Задан файл целых чисел f1. Написать программу заполняющую файл f2 элементами файла f1, значение которых меньше "0.8". Вывести на экран файл f2.

@CodeR · 13.06.2012, 07:54

Pascal

Const n=100;
Var f,g:file of real;
    m:real;
    i:integer;
Begin
    Assign(f,'f1.dat');Rewrite(f);
    For i:=1 to n do
     Begin
      m:=Random(10)/10;
      write(f,m);
     End;
    Reset(f);
    Assign(g,'f2.dat');Rewrite(g);
    While not Eof(f) do
     Begin
      read(f,m);
      if m<0.8 then write(g,m);
     End;
    Close(f);Reset(g);
    While not Eof(g) do
     Begin
      read(g,m);
      write(m:4:1);
     End;
    Close(g);
    readln;
End.

@Deswood 0 / 0 / 0 Регистрация: 05.06.2012 Сообщений: 16
		1
	Заполнить файл элементами исходного, значение которых меньше 0.8 13.06.2012, 07:18. Показов 1101. Ответов 1 Метки нет (Все метки) Задан файл целых чисел f1. Написать программу заполняющую файл f2 элементами файла f1, значение которых меньше "0.8". Вывести на экран файл f2. 0

	13.06.2012, 07:54

Заполнить файл элементами исходного, значение которых меньше 0.8

Решение