Pascal ,Графика Выводится набор кругов случайного
радиуса и расположения. Затем радиусы кругов начинают расти. При касании кругов
меньше уничтожается. При касании края экрана центр круга начинает смещаться.
vadka189
1
01.06.2021 22:46
0
Другие вопросы по теме Информатика
1lёn1
15.12.2019 20:00
Алияолиилл
15.12.2019 20:00
aze1234
15.12.2019 19:57
Adele04
15.12.2019 19:54
Дарина37373
24.11.2020 15:01
Jacob888
13.07.2019 07:50
Caesar228
15.09.2019 04:00
Матрос573
15.09.2019 04:00
kirill163aye
04.07.2019 19:20
suorevc
04.07.2019 19:20
Популярные вопросы
- Чем по вашему мнению вызвано желание глеба срезать умных приезжих. рассказ шукшина...
2 - Составить предложения со словами: компьютер, ғалымтор , әлеуметтік желi, сайт, электрондық...
1 - Точки: a(0; -6) b(2; 0) 1)найти ур прямой 2)окружность (b; r=ab)...
3 - Определите концентрацию раствора, если из 150 г. 67% раствора выпарили 30 г воды....
3 - Хзабота о рыбоках васютки а рассказе васюткино озеро „...
2 - Синтаксический разбор предложения солнце красное и громадное по утрам поднималась...
2 - Разложите на множители: 8 m^9 + 0 , 027 n^6...
1 - Зона степей почему там занимаются земледелиям...
1 - Разложите на множители: 0 , 064 m^12 − 125 n^3...
1 - Əл-фараби былай деп жазған: ң басына қонған бақыттың тұрақты болуы жақсы мінез-құлыққа...
2
uses graphabc ; Var x,y,r:integer;
begin
setwindowsize (400,250);
setwindowtitle ('Окружности');
r:=10; x:=11; y:=11;
while x<800 do
begin circle(x,y,r); x:=x+20; end;
end.