// Написать программу для рисования
// ряда окружностей радиусом 10
// пикселей
// вдоль верхнего края графического // окна.
uses graphabc;
var x, y, r : integer;
begin
r:=10;
x:=10;
y:=10;
SetBrushStyle(bsClear);
while x<640 do
begin
circle(x,y,r);
x:=x+20;
end;
end.
Задания 2-4
2. Какие изменения нужно внести в программу из примера 17.1, чтобы рисунок выглядел следующим образом:
3. Измените программу пример 17.1:
радиусы окружностей равны 20.
4. Измените программу пример 17.1:
радиус окружности вводится пользователем
ReadLn(R).
(Расстояние между центрами окружностей 2*R)
Задание 5. Задание 6*.
5. Напишите программу, которая рисует 10 концентрических окружностей с центром в середине графического окна
(размер окна по умолчанию 640х480).
Радиус самой большой окружности – 200 пикселей.
Разница между радиусами – 20 пикселей.
6*. Раскрасьте каждую окружность в свой цвет SetBrushColor(clrandom);
Домашнее задание
5. Измените программу пример 17.1:
окружности располагаются вдоль левого края окна.
6. Добавьте цвет окружностям. SetBrushColor(clrandom);
Login or Sign Up
Login
Sign Up
Forgot password?
Enter your email and we'll send you reset instructions
Please introduce yourself to proceed
My Uploads
Score:
Embed HTML
Many sites and online services, like Google Maps, suggest HTML code (usually iframes) to embed widgets and content on your page.
You can add such HTML widgets in your quizzes.
Please note:
In case pasted code is not just iframe tag it will be wrapped into HTTPS iframe.
Only HTTPS sources for iframes, styles and javascript links are supported.
Non-HTTPS sources will be blocked by the browser and won't behave properly.