Методические указания / METOD2 / Lab8_varAdd

Лабораторная работа 8

Использовать приведенный ниже пример для преобразования текстового файла в типизированный файл с вариантными записями.

Обратить внимание:

- в л.р.8 данные вводятся из текстового файла

- в текстовом файле тип переключателя i (0, 1, 2) задается стандартным (byte)

- в типизированном файле тип переключателя tag (Tri, Rec, Cir) определяется перечисляемым типом Fig. Для преобразования типов использовать функцию tag := fig (i).

Пример обработки файла с вариантными записями

{Создание в режиме диалога файла с геометрическими фигурами }

program new_file (geomfig);

type Fig = (Tri, Rec, Cir);

geomFig = record

x, y : real;

area : real;

case tag : Fig of

Tri : (pt, side, d1, d2 : real);

Rec : (pr, side1, side2: real) ;

Cir : (diam: real)

end; {geomFig}

var G: geomFig; geomfile: file of geomfig; i: byte;

begin

assign (geomfile, ‘a:\ geom.rec’ ) ;

rewrite (geomfile) ;

repeat

write (‘Задайте вид фигуры: 0-треуг, 1-прямоуг, 2-круг,’,

‘иначе – конец ввод’) ;

readln (i) ;

if i <= 2 then with G do

begin

write (‘x, y =’); readln (x, y);

case tag of

tri: begin write (‘pt, side, d1, d2 =’);

readln (rt, side, d1, d2) ;

end;

rec: begin write (‘pr, side1, side2 =’);

readln (pr, side1, side2) ;

end;

cir: begin write (‘diam =’);

readln (diam) ;

end;

end; {case}

write (geomfile, G)

end {if}

until (i > 2);

close (geomfile);

end. {new_file}