Изобразить окружность диаметром D перемещающей по вертикали через центр экрана.
Program NUM2; Uses CRT, GRAPH; Const path_to_bgi = 'C:\PASCAL\BGI'; Var d: Byte; gd, gm: Integer; x, y: Integer; Begin gd := Detect; ClrScr; Write('Введите радиус окружности: '); Readln(d); d := d div 2; InitGraph(gd, gm, path_to_bgi); y := GetMaxY; x := GetMaxX div 2; Repeat Circle(x, y, d); Delay(2000); ClearDevice; Dec(y); Until (y = 0) or KeyPressed; CloseGraph; End.
