Membuat Bintang-Selang Spasi dengan Pascal

program bintang_selang_seling;
uses wincrt;
var
i,j,n:integer;
begin
write(' Masukkan inputan = ');readln(n);
for i:=1 to n do
begin
if i mod 2 =1 then
begin
for j:=1 to n do
begin
if j mod 2=1 then
write('*')
else
write(' ');
end;
writeln;
end
else
begin
for j:=1 to n do
begin
if j mod 2=0 then
write('*')
else
write(' ');
end;
writeln;
end;
end;
readln;
end.

Membuat Persegi Panjang "Bintang" Dengan Pascal 1

program kotak_bintang;
uses wincrt;
var
i,j,panjang,lebar:integer;
begin
write('Masukkan panjang bintang = ');readln(panjang);
write('Masukkan lebar bintang = ');readln(lebar);
for i:=1 to lebar do
begin
for j:=1 to panjang do
begin
write('*');
end;
writeln;
end;
readln;
end.

Membuat Persegi Berongga dengan Pascal

program kotak_kosong;
uses wincrt;
var
i,j,s:integer;
x:char;
begin
repeat
write('Masukkan sisi persegi = ');readln(s);
if s>1 then
for i:=1 to s do
begin
if (i=1) or (i=s) then
begin
j:=1;
repeat
write('*');
j:=j+1;
until j=s;
end
else
begin
write('*');
j:=1;
repeat
write(' ');
j:=j+1;
until j=(s-1);
end;
writeln('*');
end
else
if s=1 then
begin
write('*');
end
else
begin
writeln('Sisi Persegi Harus bulat positf!');
end;
readln;
writeln('Ingin Mengulang? [Y/T]');readln(x);
until upcase (x)='T';
writeln('Program Selesai');
end.

Membuat Segitiga "Bintang" Dengan Pascal 2

program segitiga_bintang_2;
uses wincrt;
var
i,j,n:integer;
begin
write('Masukkan ukuran segitiga = ');readln(n);
for j:=n downto 1 do
begin
for i:=1 to j do
write('*');
writeln;
end;
readln;
end.

Membuat Segitiga "Bintang" Dengan Pascal 1

program segitiga_bintang_1;
uses wincrt;
var
i,j,a:integer;
begin
write('Maukkan ukuran segitiga = ');readln(a);
for i:=1 to a do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.