задание: сделать программку движения отрезка по диагонали экрана.помогите пожалуйста.
Задание: сделать программку движения отрезка по диагонали экрана.
помогите пожалуйста.
1 ответ
Игорь Булахов
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 (ylt;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 (ygt;=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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов