Составить программу на паскале,которая имитирует падение брошенного с башни яблока( )
248
491
Ответы на вопрос:
//pascalabc.net 3.2 сборка 1318 uses graphabc; var h: integer; begin h: =40; line(window.width-300,window.height,window.width-300,0); floodfill(window.width-20,20,clgray); rectangle(window.width-200,100,window.width-100,300); floodfill(window.width-150,140,clgold); while h< > window.height-40 do begin circle(window.width div 2,h-40,10); floodfill(window.width div 2,h-40,clgreen); circle(window.width div 2,h,30); floodfill(window.width div 2,h,clred); rectangle(0,0,window.width div 2+40,window.height); floodfill(window.width div 2+40,window.height,clwhite); inc(h); end; circle(window.width div 2,h-40,10); floodfill(window.width div 2,h-40,clgreen); circle(window.width div 2,h,30); floodfill(window.width div 2,h,clred); end.
Алгоритм - четкий порядок, последовательность действий, который нельзя изменять перечисление действий - это просто перечисление
Популярно: Информатика
-
Kuprums24.10.2021 12:55
-
kosahevaluba04.02.2020 04:36
-
natalyabuben011127.06.2022 15:46
-
lhe09.02.2020 23:13
-
1337222524.03.2020 18:23
-
arseniy011408.02.2021 03:42
-
gkulgkuy06.12.2021 11:44
-
суроккк03.05.2021 01:19
-
Patriot7315.07.2021 04:43
-
daryatabuewa27.02.2023 13:44