PROGRAM ROTASI 45 PADA PASCAL

PROGRAM ROTASI 45 PADA PASCAL

uses crt, graph;
var
graphdriver, graphmode : integer;
begin
graphdriver :=detect;
initgraph(graphdriver,graphmode, '');
if graphresult<>grOk then Halt(1);
Circle(300,200,100);
readln;
Circle(300,200,100);
line(300,100,300,200);
readln;
clrscr;
Circle(300,200,100);
line(230,130,300,200);
readln;
clrscr;
Circle(300,200,100);
line(200,200,300,200);
readln;
clrscr;
Circle(300,200,100);
line(230,270,300,200);
readln;
clrscr;
Circle(300,200,100);
line(300,200,300,300);
readln;
clrscr;
Circle(300,200,100);
line(370,270,300,200);
readln;
clrscr;
Circle(300,200,100);
line(300,200,400,200);
readln;
clrscr;
Circle(300,200,100);
line(370,130,300,200);
readln;
clrscr;
Circle(300,200,100);
line(300,100,300,200);
readln;
closegraph;
End.

Posting Terkait