Записи случайных чисел в файл

      Комментарии к записи Записи случайных чисел в файл отключены

Главная Форумы Программирование Программирование на Pascal Записи случайных чисел в файл

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 7 мес., 3 нед. назад.

  • Автор
    Сообщения
  • #3764

    Записать в первый файл случайные целые числа. Заполнить второй файл числами, которые являются произведением соседних компонентов первого файла.

    program file_4;
    uses crt;
    var
      n, i, x, y: integer;
      f, g: file of integer;
    begin
      clrscr; randomize;
      assign(f, 'fail_f');
      assign(g, 'fail_g');
      rewrite(f);
      write('Количество чисел > '); read(n);
      for i:=1 to n do
      begin
        x:=random(10);
        write(f, x);
        write(x, ' ');
      end;
      reset(f); rewrite(g);
      writeln;
      while filepos(f)<n-1 do
      begin
        read(f, x);
        read(f, y);
        write(g, y*x);
        seek(f, filepos(f)-1);
      end;
      reset(g);
      writeln('Результат:');
      while not eof(g) do
      begin
        read(g, y);
        write(' ', y)
      end;
      close(f); close(g);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.