Pascal! Написать программу, которая выводит на экран окружность, радиус которой ...

March 2022 1 38 Report

Pascal!
Написать программу, которая выводит на экран окружность, радиус которой «растет» из центра
Измените программу так, что бы окружность сначала уменьшалась в радиусе, а потом увеличивалась

Answers & Comments

bоtsman USES CRT,Graph;VAR Device,Mode:Integer; i,x,y,s:Integer;BEGINCLRSCR; Device:=0; InitGraph(Device,Mode,''); s:=100; x:=320; y:=240; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s-10; SetColor(White); end; for i:=1 to 9 do begin SetLineStyle(0,0,ThickWidth); Circle(x,y,s); Delay(200); SetColor(Black); Circle(x,y,s); s:=s+10; SetColor(White); end; Circle(x,y,s);Readln;END.

0 votes Thanks 0

DriicZ Это для двух заданий?

Answers & Comments

sravnite stepeni 3 v 4200 i 5 v 2400

spishite slova vydelyaya v nih korni i obyasnyaya ih napisanienervnmernyj vyrvn

najti proizvodnuyu funkcii ye7x3 x2 neobhodimo polnoe reshenie

najti proizvodnuyu funkcii lnx32x neobhodimo polnoe reshenie

sostavit 6 predlozhenij 1prostoe s vvodnymi konstrukciyami 2prostoe s obosoble1c856f50209786b3226091e23c874371 85021

vychislit obem vodoroda kotoryj mozhno poluchit pri vzaimodejstvii cinka s 200

cosx...

2...

kakovaya ideya liberalnoj ideologii

kakie slova yavlyayutsya paronimami povernut svernut oklik otklik nakrytyj

рекомендуемые вопросы

Helpful Links

Helpful Social