Автоматизация технологического проектирования. Смирнов О.Л. - 61 стр.

UptoLike

Составители:

Рубрика:

end; Pgt:=I;

for I:=1 to 2 do if Nb = 4 then {шапка таблицы}

TabHd(TabH1[I]) else TabHd(TabH[I]);

WriteT;

end;

procedure Install; {инициализация}

begin

TextBackground(LightBlue); ClrScr;

Otm := false;I1:=0; Cw:=' '; Kb:=0; Randomize;

Is:=Random(Ism); {ввод случайности}

for I:=1 to Is do J:=Random(Ism1);

end;

begin {операторы программы}

Install;

repeat Inc(I1);WriteLn;

FirstData;

FormTask;

VarName;

ReadLn;ClrScr;

Write('':27, 'ЗАКОНЧИТЬ ? <Y/N>'); Ch:=ReadKey;Write(Ch);

until (Ch = 'y') or (Ch = 'Y')

end.