Меню сайта

Задача №3

Начертить N окружностей.

uses graph,crt-

vargd,gm,n,i:integer-

begin

initgraph(gd,gm,’c:&#92-bp&#92-bgi’)-

outtext(‘Введите кол-во окружностей’)-

readln(n)-

clearviewport-

FOR i:= 1 TO n do

begin-

CIRCLE(Random(640),Random(480), 50)

end-

repeat-

until keypressed-

closegraph-

end.

Категория: Графика в Паскале | Дата: 26.11.12

Меню раздела
Блок