Информатика: :создать программу движения отрезка по диагонали экрана. .

Максим5955

29.09.2022 22:49

Информатика

Есть ответ 👍

:создать программу движения отрезка по диагонали экрана. .

126

209

Посмотреть ответы 2

Ответы на вопрос:

АААННЯЯЯ111

Информатика

4,6(100 оценок)

Uses graphabc; var f: boolean; //переменная для выхода из программы procedure keydown(key: integer); beginif key=vk_return then f: =false; //если нажата enter-меняем значение флагаwindow.caption: ='программа завершена'; end; var x,y: integer; r: real; beginf: =true; //программа включена на работуsetwindowsize(600,600); //квадратное окноwindow.caption: ='для окончания нажмите enter'; lockdrawing; r: =1; x: =windowwidth-round(50*r); y: =round(50*r); repeatwhile (y< windowheight-round(50*r))and f do begin r: =r+0.002; window.clear; sleep(1); drawcircle(x,y,round(50*r)); moveto(round(x+50*r),y); arc(x,y,round(10*r),220,320); arc(x,y,round(30*r),220,320); drawcircle(x-round(20*r),y-round(14*r),round(10*r)); drawcircle(x+round(20*r),y-round(14*r),round(10*r)); y: =y+1; x: =x-1; redraw; onkeydown : = keydown; //если нажмем enter, сменится флаг на false end; // и программа завершится x: =windowwidth-round(50*r); y: =windowheight-round(50*r); while (y> =round(50*r)) and f do begin window.clear; sleep(1); r: =r-0.002; drawcircle(x,y,round(50*r)); moveto(round(x+50*r),y); arc(x,y,round(10*r),220,320); arc(x,y,round(30*r),220,320); drawcircle(x-round(20*r),y-round(14*r),round(10*r)); drawcircle(x+round(20*r),y-round(14*r),round(10*r)); y: =y-1; x: =x-1; redraw; onkeydown : = keydown; end; x: =windowwidth-round(50*r); y: =round(50*r); until not f; end.