Реферат: Лабораторная №6 вариант №13 по информатике, выполненная с использованием подпрограмм-процедур и подпрограмм-функций

#77: begin

if kl=2 then begin kl:=3;

textcolor(15);gotoxy(13,1);write(str2);

textcolor(14);gotoxy(25,1);write(str3);

end;

if kl=1 then begin kl:=2;

textcolor(15);gotoxy(3,1);write(str1);

textcolor(14);gotoxy(13,1);write(str2);

end;

end;

end;

until key=#13;

menu:=kl;

end;

begin

gotoxy (1,1);

write ('Лабораторная работа - 6, вариант - 13.');

startprg:

kl:=menu;

textcolor(15);

if kl=3 then goto exitprogr;

if kl=2 then labproc_q_a;

if kl=1 then goto funct;

goto startprg;

funct:

window (1,5,75,7);clrscr;

gotoxy (3,6);

write ('Средние значения массивов X и Y и их отклонения равны: ',mid_x:3:3,'; ',mid_y:3:3,'; ',delt_x:3:3,'; ',delt_y:3:3);

clreol;