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

CONTOH PROGRAM

• Animasi 1
• Animasi Teks pada Pascal
• Program Menu c pada Linux
• Tabel Biodata Pada Java
• Program Animasi Kata 1 pada C
• Program Jumlah Matriks (ordo2)&det pd pascal
• Program Perkalian Matriks Pada Cobol
• Program Menu Array pada Cobol
• PROGRAM MENU PADA PASCAL
• PROGRAM GARIS PADA PASCAL
• PROGRAM BILANGAN GANJIL/GENAP PADA COBOL
• PROGRAM BILANGAN PRIMA PADA COBOL