Похожие вопросы
2024-12-17 10:54:21
Помогите написать программу в pascalABC для 8 класса, рабочая тетрадь, стр. 84 / задание 2: составьте программу рисования ряда одинаковых цветков с использованием процедуры Flower.
Информатика 8 класс Программирование на Pascal программа PascalABC рисование цветков процедура Flower 8 класс информатика задание 2 рабочая тетрадь
2024-12-20 23:20:54
Вот пример программы на PascalABC, которая рисует ряд одинаковых цветков с использованием процедуры Flower:
program Flowers;
uses GraphABC;
procedure Flower(x, y: integer);
begin
SetColor(clRed);
Circle(x, y, 10); // Цветок - круг
SetColor(clGreen);
Line(x, y + 10, x, y + 30); // Стебель
end;
begin
SetWindowSize(600, 400);
ClearWindow;
for var i := 1 to 10 do
begin
Flower(50 + i * 50, 200); // Рисуем цветки в ряд
end;
ReadLn;
end.
Эта программа создает окно и рисует 10 цветков в ряд. Вы можете изменять параметры, чтобы настроить их по своему усмотрению.