ИНФОРМАТИКА.ПАСКАЛЬ.ТЕМА:Цикл со счётчиком
Нарисовать N концентрических окружностей. N вводится с клавиатуры.
Нарисовать N концентрических окружностей. N вводится с клавиатуры.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
procedure vvod(var n: integer);//процедура ввода переменной
begin
writeln('Введите число n:');//запрос на ввод n
read(n);//считывание переменной
end;
procedure circle(n: integer);//процедура рисования концентрических кругов
var
i,r: integer;
begin
r:=10;//присваивание значения отступа
for i:=1 to n do
begin
drawcircle(200,200,r);//рисование круга
r:=r+10;//изменение отступа
end;
end;
var
n: integer;
begin
vvod(n);//ввод переменной
Circle(n);//рисование концентрических кругов
end.