Типизированный файл. Найти наименьшее из значений компонент с четными номерами - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Составьте программу, которая создает файл, состоящий из компонент типа integer. Прочитайте файл и найдите наименьшее из значений компонент с четными номерами.

Решение задачи: «Типизированный файл. Найти наименьшее из значений компонент с четными номерами»

textual
Листинг программы
uses crt;
var n,i,nmin: integer;
    f: file of integer;
begin
assign(f,'C:\in.txt');
rewrite(f);
for i:=1 to 10+random(11) do
    begin
    n:=random(199)-99;
    write(f,n);
    end;
i:=0;
reset(f);
writeln('Компоненты исходного файла');
while not (eof(f)) do
      begin
      inc(i);
      read(f,n);
      write(n:5);
      if i mod 2=0 then
         begin
         if i=2 then nmin:=n else
         if n<nmin then nmin:=n;
         end;
      end;
close(f);
writeln('');
writeln('Наименьшая из компонент с четными номерами ',nmin);
readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он предназначен для создания программ на ПК. В первой строке кода используется библиотека crt, которая является стандартной для Turbo Pascal. Далее объявляются переменные n, i и nmin типа integer, то есть целые числа. Также объявляется переменная f типа file of integer, что означает, что она будет использоваться для работы с файлом. Затем происходит следующее:

  1. Код assign(f,'C:\in.txt') устанавливает путь к файлу, в который будет записываться информация.
  2. rewrite(f) перезаписывает содержимое файла.
  3. В цикле for происходит запись значений от 1 до 10 (плюс случайное число от 1 до 10) в файл.
  4. Затем сбрасывается счетчик i и начинается чтение файла с помощью цикла while.
  5. В каждой итерации цикла читается значение из файла и записывается в переменную n.
  6. Если значение n четное (т.е. i делится на 2 без остатка), то проверяется, является ли текущее значение n минимальным среди всех четных чисел. Если да, то оно присваивается переменной nmin.
  7. После окончания чтения файла закрывается.
  8. Выводится пустая строка и сообщение о наименьшем из значений компонент с четными номерами. Таким образом, данный код находит наименьшее из значений компонент с четными номерами и выводит его на экран.

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы