Labels:
PROGAM PASCAL
USES WINCRT;
var
pilihan:byte;
a,b,c,i,j,k,n,x:integer;
begin
a:=0;
b:=0;
c:=0;
i:=0;
j:=0;
k:=0;
n:=0;
x:=0;
ClrScr;
GotoXY(10,2);Writeln('-->PILIHAN<-- ');
GotoXY(10,4);Writeln('1.Membuat bintang lancip atas');
GotoXY(10,6);Writeln('2.Membuat bintang lubang atas');
GotoXY(10,8);Writeln('3.Membuat bintang lubang atas kebalik');
GotoXY(10,10);Writeln('4.Membuat bintang lancip bawah');
GotoXY(10,12);Writeln('5.Membuat bintang dua segi');
GotoXY(10,14);Writeln('6.Membuat bintang ketupat');
GotoXY(10,16);Writeln('7.Membuat bintang piramid atas bawah');
GotoXY(10,18);Writeln('8.Membuat bintang piramid');
GotoXY(10,24);Write('Pilih Nomer(1-8)?');Read(pilihan);
ClrScr;
case Pilihan of
1:begin
for a:=1 to 10 do
begin
for b:=10 downto a do
begin
write('')
end;
for c:=1 to a do
begin
write ('*')
end;
writeln('');
end;
end;
2:begin
write('masukan n=');readln(n);
for i:=1 to n do
begin
for j:=1 to i do
if(j<i)then write(' ')else write('*');
for k:= 1 to n-i do
if k<n-i then write(' ')else write('*');
writeln;
end;
end;
3:begin
write('masukan n=');readln(n);
for i:=1 to n do
begin
for j:=n-i downto 1 do
if j=n-i then write('*')else write('-');
for k:=i downto 1 do
if k=i then write('*')else write('-');
writeln;
end;
end;
4:begin
for i := 1 to 5 do
begin
for j:=1 to i do
write(' ');
for k:= 4 downto i do
if (i=2) and (k=3) then
write(' ')
else
write('*');
writeln;
end;
end;
5:begin
for a:=1 to 10 do
begin
for b:= 10 downto a do
begin
write(' ')
end;
for c:=1 to a do
begin
write ('*');
end;
writeln('');
end;
for a:=1 to 10 do
begin
for b:= 1 to 10 do
begin
write(' ')
end;
for c:=10 downto a do
begin
write ('*');
end;
writeln('');
end;
end;
6:begin
write('masukkan jumlah bintang yg diinginkan: ');readln(x);
for a:=1 to x do
begin
for b:=x downto a do
begin
write ('*')
end;
for b:=1 to 2*a-1 do
begin
write (' ');
end;
for b:=x downto a do
begin
write ('*')
end;
writeln;
end;
for a:=1 to x do
begin
for b:=1 to a do
begin
write('*');
end;
for b:=x*2 downto 2*a do
begin
write(' ');
end;
for b:=1 to a do
begin
write('*')
end;
writeln('');
end;
end;
7:begin
for a:=1 to 10 do
begin
for b:= 10 downto a do
begin
write(' ')
end;
for c:=1 to 2*a-1 do
begin
write ('*');
end;
writeln('');
end;
for a:=1 to 10 do
begin
for b:= 1 to a do
begin
write(' ')
end;
for c:=19 downto 2*a-1 do
begin
write ('*');
end;
writeln('');
end;
end;
8:begin
write ('masukkan angka : ');readln(n);
writeln;
if n mod 2 = 0 then
for a := 1 to (n div 2) do begin
for b := 1 to (n div 2)-a do
write (' ');
for c := 1 to (a*2) do
write ('*');
writeln;
end
else
for a := 1 to (n div 2)+1 do begin
for b := 1 to (n div 2)+(1-a) do
write (' ');
for c := 1 to (a*2)-1 do
write ('*');
writeln;
end;
end;
Else
Begin
Writeln('Pilihannya hanya 1 sampai 8');
Writeln('Anda tadi pilih nomer berapa?......Sembarangan aja milih!!!!!!!');
End;
End;
End.
0 comments:
Post a Comment