Создать файл

@Valera3 · Регистрация: 18.10.2013

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

Создать файл, компоненты (количество <=9) которого являются вещественными числами. После создания файла значение минимальной компоненты файла заменить на нуль. Исходный и результирующий файлы вывести на экран.

@CodeR · 01.02.2014, 08:55

Pascal

Var f:file of real;
    i,n,imin:integer;
    m,min:real;
Begin
    write('n<=9: ');readln(n);
    Assign(f,'in.dat');Rewrite(f);
    writeln('Исходный файл');
    For i:=1 to n do
    Begin
      m:=random*10-5;
      write(m:6:2);
      write(f,m);
    End;
    writeln;
    Reset(f);
    read(f,min);
    imin:=1;
    For i:=2 to FileSize(f) do
    Begin
      read(f,m);
      if m<min then
      Begin
        imin:=i;
        min:=m;
      End;
    End;
    writeln('Min = ',min:0:2);
    writeln('Полученный файл');
    Seek(f,imin-1);
    write(f,0);
    Reset(f);
    For i:=1 to n do
    Begin
      read(f,m);
      write(m:6:2);
    End;
    Close(f);
    readln;
End.

@Valera3 1 / 1 / 0 Регистрация: 18.10.2013 Сообщений: 18
		1
	Создать файл 01.02.2014, 08:33. Показов 986. Ответов 1 Метки нет (Все метки) Создать файл, компоненты (количество <=9) которого являются вещественными числами. После создания файла значение минимальной компоненты файла заменить на нуль. Исходный и результирующий файлы вывести на экран. 0

Опции темы

Создать файл

Решение