СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Программа рисует круги в круге

Категория: Информатика

Нажмите, чтобы узнать подробности

Программа рисует круги в круге

uses graphabc;

var r,y,x:integer;

begin

 r:=101; x:=285; y:=200;

  while r>6 do begin

                  circle(x,y,r); r:=r-1; sleep(300);

                 end;

end.

 

Результат работы программы: