Предмет: Информатика, автор: setoburih

Задача нарисовать 50 концентрических окружностей с точкой в центре.
Паскаль рисует только одну окружность, помогите
Вот код:
uses graphABC;
var r,y,x: integer;
begin
setwindowSize(800,600);
y:=300;
x:=400;
for r:=1 to 50 do
circle(x,y,r);
end.

Ответы

Автор ответа: kacnepgames
1
Ты перед END. должен добавить выражение которое увеличивает r на один пока r не станет 50. r=r+1; . Но это не точно (про выражение) , а суть правильна.

kacnepgames: ставь лучший ответ если помог
setoburih: а мне бы выражение правильное, я тоже понимаю в чём прикол, но хз какое дописать выражение
kacnepgames: r=r+1;
setoburih: не работает, нечего не меняется
kacnepgames: сделай ещё одну переменую R (большая ) присвой значение ей один и сделай выражение в whilе
kacnepgames: R=r+0.5; r=R+0.5;
kacnepgames: R и r должны быть real
kacnepgames: Сделай ответ лучшим , лучшей благодарности не надо.)
kacnepgames: корона возле ответа
Похожие вопросы
Предмет: Алгебра, автор: musaevad937
Предмет: Английский язык, автор: ivan12ii123