Тапсырмалар:
1. Scratch программасында «Күннің көзі» спрайтының скриптiлерден
құралған фрагменті жынылған. «Күннің көзі» спрайтының
орындайтын іс – әрекеттерін жазыңыз
Скритт фрагмент
Орындалатын іс-әрекет
мен тему не
кинонена 25
10 awares
де 0.2 см у на
Ответы на вопрос:
uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.
Популярно: Информатика
-
sarvaryusuf9908.06.2022 22:47
-
fumymovie10.03.2022 11:30
-
VenyaMenya15.02.2023 12:43
-
MaxonA18.03.2021 09:59
-
heni200128.02.2020 23:09
-
breakfast113.06.2023 11:36
-
алекс92211.10.2020 06:03
-
alinachaiun28.03.2022 12:44
-
Baidu12.11.2020 07:51
-
idjrglkuahregklha12.07.2022 17:40