Типизированные файлы

[ChelseaFan]

Помогите решить. Турбо Паскаль. Пропустил несколько лекций не пойму как решить.
Дан файл f, компоненты которого являются действительными числами. Найти:
а)Наименьшее из значение компонент с четными номерами.
б)Разность первой и последней компонент файла.

uses crt;
var f: file of integer;
    i,n,min:integer;
begin
 assign(f,'E:\FREE PASCAL\bin\Laborotorki\laba6');
 rewrite(f);
 writeln('Введите действительные числа ');
 readln(n);

Как дальше продалжать незнаю. задание а вообще не понятно распишите пожалуста, а в заданий б просто writeln(a-b)?

[Ybn2]

Сообщение от ChelseaFan

Турбо Паскаль.
Дан файл f, компоненты которого являются действительными числами. Найти:
а)Наименьшее из значение компонент с четными номерами.
б)Разность первой и последней компонент файла.

Вот код, проверяйте особенно синтаксис:

uses crt;
var f: file of real; {Real - действительные числа, а integer - целые}
      n,min,ch1,ch2:Real;
      i,num:integer;
begin
{Создаем файл и записываем его}
 assign(f,'E:\FREE PASCAL\bin\Laborotorki\laba6');
 rewrite(f);
 Repeat
   writeln('Введите действительные числа ');
   readln(n);
   Write (f,n);
 Until  n=0.11; {пока не будет введено 0.11}
  close (f);
{Откраваем файл для чтения}
  Assign (f,'E:\FREE PASCAL\bin\Laborotorki\laba6');
  reset(f);
  read (f,ch1) {В ch1 записываем первый элемент}
  i:=1; min:=99999;
  WriteLn ('Данные в файле:');
  Repeat
     i:=i+1;
     Read (f,n);
     WriteLn (n);
     If (i div 2 = i/2)  and (n<min) then  {проверяем четность идекса и min  элемента}
      Begin
         n:=min;
         num:=i;
      end;
  Until eof(f); {пока не конец файла} 
  ch2:=n; {записываем последний элемент}
  close(f);
  WriteLn ('a) номер минимального элемента:',n,' а значение:',min);  
  WriteLn ('б) разность первого и последнего элемента равна:',ch1,'-',ch2,'=',ch1-ch2);  
  ReadLn;
end.

Должно работать!

[ChelseaFan]

Ybn2 Спасибо, ваша программа вроде правильна, я ввожу действительные числа, бесконечно вылазивает вводите действительные числа. что делать?

[Ybn2]

Until n=0.11; {пока не будет введено 0.11}

Я же не знал сколько чисел ты будешь вводить вот и написал, что пока ты не введеш 0.11 будут спрашивать числа. Такое ограничения я сам придумал, ты можешь поставить свое, например Until n=0; тогда пока не введешь 0.

[ChelseaFan]

Ybn2, а все понятно, с 0.11 она не работала, теперь поменял на другое число работает отлично. Спасибо вам огромное. Все понятно расписали!!

[Ybn2]

Сообщение от ChelseaFan

Ybn2, а все понятно, с 0.11 она не работала, теперь поменял на другое число работает отлично. Спасибо вам огромное. Все понятно расписали!!

Не зачато, пишите еще.