Паскаль-текстовые и типизированные файлы

[tanyhaftv]

Создать и вывести на экран файл с пятью объектами перечисляемого типа.

[Lauraldo]

Первое что пришло в голову:

type
    MyType = (MyVal1, MyVal2, MyVal3);
var
   f: file of MyType;
   k: MyType;
   i: Byte;
begin
   Assign(f, 'myfile.dat');
   Rewrite(f);
   Randomize;
   for i := 1 to 5 do begin
       k := MyType (random (3));
       Write (f, k);
   end;
   Close(f);
   Reset(f);
   while not EOF(f) do begin
         Read (f, k);
         case k of
              MyVal1: WriteLn ('MyVal1');
              MyVal2: WriteLn ('MyVal2');
              MyVal3: WriteLn ('MyVal3');
         end;
   end;
   Close(f);
   ReadLn;
end.

[tanyhaftv]

спасибо!

Все работает

[tanyhaftv]

С помощью подпрограммы с параметром процедурного типа вывести границы отрезка,на котором функции имеют корень,перебирая отрезки с шагом 0,1 для ln(x)-x+1.8=0 на интервале [2,3] и x^2-1=0 на интервале [1,2]. есть мысли?