Работа с файлами (Pascal)

Posted by obzor under Delphi

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

Serge_Bliznykov

var f: file of integer;
  i, n, a, count : integer;
begin
  Randomize;
  WriteLn('Skolko chisel sozdat v faile: ');
  ReadLn(n);
  Assign(f, 'D:\file1.bin');
  Rewrite(f);
  for i:=1 to n do begin
    a := 1+Random(100); {случайные числа от 1 до 100}
    Write(f,a); {запись числа в файл}
  end;
  close(f);
  { ------------- конец первой части - файл создан и заполнен ----------- }

  {-- выведем файл полностью на экран}
  Write('Chisla v faile: ');
  Reset(f);
  While Not Eof(f) do begin
     Read(f, a);
     Write(a,' ');
  end;
  Close(f);
  WriteLn;
  { ------------- конец вывода файла на экран ---- }

  {подсчитаем количество количество удвоенных нечетных чисел
    ВНИМАНИИЕ! Подсчёт в учебных целях вынесен отдельно в дополнительный цикл,
    хотя, конечно, его проще добавить в тот цикл, где мы выводим содержимое файла!
    }
  count:=0;
  Reset(f);
  While Not Eof(f) do begin
     Read(f, a);
     if Not Odd(a) then
       if Odd(a div 2) then Inc(count);
  end;
  Close(f);
  WriteLn('kolichestovo udvoennykh nechetnykh chisel = ', count);
  ReadLn
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)