ГОСТ 8.563.3-97; Страница 6

writeln(‘|        |’);

gotoxy(19,11);

write(‘|        |’);

TextColor(135);

write(‘ЖДИТЕ’);

TextColor(7);

writeln(‘|        |’);

gotoxy(19,12);

writeln(‘|        |’);

gotoxy(19,13);

writeln(‘|ВЫПОЛНЯЕТСЯ РАСЧЕТ|’);

gotoxy(19,14);

writeln(‘|        |’);

gotoxy(19,15);

writeln(‘|        |’);

if NSubA[NNIT] = 0 then begin

gotoxy(21,12);

swapvectors; exec(CalcTpNg, CalcTpNg); swapvectors;

TextColor(7);

gocoxy(19,9);

writeln(‘|        |’);

gotoxy(19,10);

writeln(‘|        |’);

gotoxy(19,11);

write(‘|        |’);

TextColor(135);

write(‘ЖДИТЕ’);

TextColor(7);

writeln(‘|        |’);

gotoxy(19,12);

writeln(‘|        |’);

gotoxy(19,13);

writeln(‘|ВЫПОЛНЯЕТСЯ РАСЧЕТ|’);

gotoxy(19,14);

writeln(‘|        |’);

gotoxy(19,15);

writeln(‘|        |’);

end

else begin

swapvectors; exec(CalcTpSubs. CalcTpSubs); swapvectors;

Roc := RocSubs[NSubA[NNit]]

end;

assign(Fl, ‘IRD’): reset(R);

if (NSubA[NNit] = 0) and (NMethKA[NNit] >= 2) then

readln(Fl, Roc);

if NSubA[NNit] = 0 then begin

readln(Fl, Hs[1], Hs[2]);

for I := I to 2 do begin

Str(Hs[1]:10,HsS);Val(HsS,Hs[1],Code)

end;

end

else begin