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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.000 из 5



Похожие ответы
  1. Здравствуйте. Дан типизированный файл, число компонент которого кратно четырем. Файл состоит из целых чисел не равных нулю, число положительных компонент файла равно числу отрицательных. Необходимо преобразовать файл так, чтобы два положительных числа чередовались с двумя отрицательными. Без использования массива :-( Прошу помощиДобавлено через 11 часов 6 минут Пытаюсь сделать с помощью доп.файла, но что-то делаю не так

  1. Задание: Средствами текстового редактора создать файл. Каждые 5 строк текстового файла содержат соответственно название издательства, фамилию автора, название книги, величину тиража и пустую строку. Программным образом вывести содержимое этого файла на экран, расположив в каждой строке экрана название издательства, фамилию автора, название книги и величину тиража. Создать первую процедуру с параметрами, в которой каждые 4 строки текстового файла в виде записи с 4 полями размещаются в типизированный файл (5-7 компонентов). Создать вторую процедуру с параметрами для вывода содержимого типизированного файла на экран. С клавиатуры добавить и типизированный файл запись (записи), используя метод концевого значения. Определить писателей, книги которых напечатаны наибольшим тиражом. Их фамилии занести в конец текстового файла в отдельные строки. Вывести содержимое текстового файла на экран. Далее содержимое каждых 4 строк, содержащих информацию об одном авторе занести в строковую переменную. В полученной строке поменять местами фамилию и тираж и разместить между всеми словами по 3 пробела. Распечатать исходные и преобразованные строки. Дополнительных массивов не использовать. _______________________________________ Первый абзац выполнил, второй не полностью, так как вылетает несовместимость типов (закомментировал звездочками место ошибк). Прошу помочь с ошибкой в коде, а также с третьим абзацем. Код:

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

  1. Ребят, нужно написать процедуру для создания типизированного файла, котоырй содержит 1000 случайных чисел типа Byte.

  1. Дан непустой текстовый файл. Удалить из него первую строку.

  1. Дан файл записать в негосуммучисел a+b

  1. Дано: целое число К. Требуется: Создать типизированный файл из К целых чисел и найти их среднее значение.

  1. Дан текстовый файл. Найти количество строк в нем.

  1. Необходимо переписать числовые данные из текстового файла в: 1. одномерный массив, 2. типизированный файл, Необходимо обработать все эти данные по одному и тому же алгоритму в соответствии заданию и выполнить в виде двух процедур, не связанных между собой (например, при обработке типизированного файла не ссылаться на размер массива ) Найти суммы цифр каждого числа без учета повторяющихся цифр. Числа, дающие повторяющиеся суммы, удалить.