Sunday 11 October 2009

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

0 comments:

Post a Comment

Mikail Alfith Amarullah

↑ Grab this Headline Animator

IKLAN

  © Blogger Tamplates

Back to TOP