mirror of
https://git.sr.ht/~rabbits/macintosh_cookbook
synced 2024-12-24 05:30:42 +00:00
24 lines
379 B
ObjectPascal
24 lines
379 B
ObjectPascal
|
program ExampleRings;
|
||
|
|
|
||
|
|
var
|
||
|
|
Top, Left, Bottom, Right: Integer;
|
||
|
|
Diam, Increase: Integer;
|
||
|
|
Box: Rect;
|
||
|
|
|
||
|
|
begin
|
||
|
|
|
||
|
|
Top := 0;
|
||
|
|
Left := 0;
|
||
|
|
Diam := 0;
|
||
|
|
Write('Type an integer between 1 and 25: ');
|
||
|
|
Read(Increase);
|
||
|
|
ShowDrawing;
|
||
|
|
repeat
|
||
|
|
Diam := Diam + Increase;
|
||
|
|
Bottom := Diam;
|
||
|
|
Right := Diam;
|
||
|
|
SetRect(box, Left, Top, Right, Bottom);
|
||
|
|
FrameOval(box);
|
||
|
|
until Diam > 400
|
||
|
|
|
||
|
|
end.
|