Pada postingan tentang turbo pascal kali ini saya akan membahas tentang cara membuat kotak bintang , berikut sintaknya:
program ulang_kotak;
var x : integer;
begin
writeln('PROGRAM MEMBUAT KOTAK');
for x:= 1 to 20 do
begin
gotoxy(2+x,3);
write('*');
end;
for x:= 1 to 10 do
begin
gotoxy(3,2+x);
write('*')
end;
for x:= 1 to 10 do
begin
gotoxy(22,2+x);
write('*')
end;
for x:= 1 to 20 do
begin
gotoxy(2+x,12);
write('*');
end;
end.
Berikut Tampilan programnya:
Untuk download file .Pas nya silahkan klik [Disini].
Terimakasih sudah berkunjung & semoga bermanfaat.