Поиск минимума функций нескольких переменных методом покоординатного спускаРефераты >> Программирование и компьютеры >> Поиск минимума функций нескольких переменных методом покоординатного спуска
if kod=#80 then begin if k<3 then k:=k+1 else k:=1;
goto 1; end;end;
2:if (k=1) or (k=2) then begin
clrscr; window(10,10,50,15); textbackground(1); textcolor(14);
clrscr; k1:=1;
4:for i:=1 to 3 do begin
if i=k1 then begin textbackground(14); textcolor(1); end else
begin textbackground(1); textcolor(14); end;
gotoxy(1,i+2); write(stor2[i]); end;
while true do begin
kod:=readkey; sound(700); delay(500); nosound;
if kod=#13 then goto 3;
if kod=#0 then begin
kod:=Readkey;
if kod=#72 then begin
if k1>1 then k1:=k1-1
else k1:=3; goto 4; end;
if kod=#80 then begin if k1<3 then k1:=k1+1 else k1:=1; end; end; end; end else clrscr; write(' нажмите любую клавишу'); goto 5; end;
3:CASE k of
1: begin clrscr; window(10,10,50,20); pmmks(k1); end;
2: begin clrscr; window(10,10,50,20); pmmsks(k1); end;
end;
5: kod:=Readkey;
end.
