PROGRAM BINTANG MENGGUNAKAN
PASCAL
program bintang_segitiga_siku;
uses wincrt;
var a, b, n : integer;
begin
write ('Masukkan angka : '); readln (n);
for a := 1 to n do
begin
for b := 1 to a do
begin
write ('*');
end;
writeln (' ');
end;
readln;
end.
program bintang_persegi;
uses wincrt;
var n, a, b, c : integer;
begin
clrscr;
write ('Masukkan angka : ');readln(n);
for a := 1 to n do
begin
write ('*');
end;
writeln;
for b := 2 to n-1 do
begin
write ('*');
for c := 1 to n-2 do
begin
write (' ');
end;
write ('*');
writeln;
end;
for a := 1 to n do
begin
write ('*');
end;
readln;
end.
program bintang_segitiga_samakaki;
uses crt;
var n, a, b : integer;
begin
clrscr;
write ('Masukkan angka : ');readln (n);
for a := 1 to n do
begin
for b := 0 to n-a do
begin
write (' ');
end;
for b := 1 to (2*a)-1 do
begin
write ('*');
end;
writeln;
end;
readln;
end.
program UTS;
uses crt;
var n, a, b : integer;
begin
clrscr;
write ('Masukkan angka : '); readln (n);
for a := 1 to n do
begin
for b := 1 to (2*n)-a do
begin
write (' ');
end;
for b:= 1 to (2*a)-1 do
begin
write ('*');
end;
writeln;
end;
for a := 1 to n do
begin
for b := 1 to n-a do
begin
write (' ');
end;
for b := 1 to a do
begin
write ('*');
end;
for b := 1 to (2*n)-1 do
begin
write (' ');
end;
for b := 1 to a do
begin
write ('*');
end;
writeln;
end;
for a := 1 to n-1 do
begin
for b := 1 to a do
begin
write (' ');
end;
for b := 1 to n-a do
begin
write ('*');
end;
for b := 1 to (2*n)-1 do
begin
write (' ');
end;
for b := 1 to n-a do
begin
write ('*');
end;
writeln;
end;
for a := 0 to n-1 do
begin
for b := 1 to n+a do
begin
write (' ');
end;
for b := 2 to (2*n)-(a*2) do
begin
write ('*');
end;
writeln;
end;
readln;
end.
Tidak ada komentar:
Posting Komentar