program pilihan_proses;
uses wincrt;
label
mulai;
var
pilihan :char;
jawab :string;
brs,klm :integer;
pnmbh :integer;
n:integer;
begin
mulai:
{clrscr;}
{ textcolor(4);}
gotoXY(5,2); writeln('DIBUAT 0LEH = WINDIARTO ( YUSUF ABDURROKHMAN )');
gotoXY(5,3); writeln('NIM = 12060434 ( Teknik Informatika )');
{textcolor(14);}
gotoXY(5,4); writeln('---------------------------------------------');
gotoXY(5,5); write('%%%%%%%%%% ');{textcolor(56);}write('ASSALAMU ALAIKUM WR.WB');
{textcolor(14);}writeln(' %%%%%%%%%%');
gotoXY(5,6); writeln('---------------------------------------------');
gotoXY(5,7); write('========== ');{textcolor(57);}write('HADIAH UNTUK MAS UNTUNG');
{textcolor(14);}writeln(' ==========');
gotoXY(5,8); write('########## ');{textcolor(58);}write('SENYUM YAAAAAAA');
{textcolor(14);}writeln(' ##########');
gotoXY(5,9); writeln('---------------------------------------------');
gotoXY(5,10); writeln('>>>>>>>>>>>>>>> MEMILIH PROGRAM <<<<<<<<<<<<<');
gotoXY(5,11); writeln('---------------------------------------------');
{textcolor(9);}
gotoXY(5,12); writeln('daftar pilihan =');
gotoXY(5,13); writeln('1.program nomer 1.');
gotoXY(5,14); writeln('2.program nomor 2.');
gotoXY(5,15); writeln('3.program nomor 3.');
gotoXY(5,16); writeln('4.program nomor 4.');
gotoXY(5,17); writeln('5.program nomor 5.');
gotoXY(5,18); writeln('6.program nomor 6.');
gotoXY(5,19); writeln('7.program selesai.');
{textcolor(14);}
gotoXY(5,20); writeln('---------------------------------------------');
{textcolor(5);}
gotoXY(5,21); write('PROGRAM YANG MAU DIPILIH ='); readln(pilihan);
{textcolor(14);}
gotoXY(5,22); writeln('+++++++++++++++++++++++++++++++++++++++++++++');
gotoXY(5,23); writeln('=============================================');
writeln;
writeln;
case pilihan of
'1' : begin
writeln(' !!!!!!!!!!!!! PROGRAM NOMOR 1. !!!!!!!!!!!!');
writeln(' -------------------------------------------');
writeln;
writeln;
{textcolor(58);}
for brs:=1 to 5 do
begin
for klm:=1 to 5 do
write(brs*klm:5);
writeln;
writeln;
writeln;
end;
end;
'2' :begin
writeln(' !!!!!!!!!!!!!!! PROGRAM NOMOR 2. !!!!!!!!!!!!');
writeln(' ---------------------------------------------');
writeln;
writeln;
{textcolor(60);}
for klm:=1 to 5 do
begin
pnmbh:=klm;
for brs:=klm to 5 do
begin
if (klm=brs) or (klm=1)then
write(brs:5)
else
begin
pnmbh:=pnmbh+klm;
write(pnmbh:5);
end;
end;
writeln;
writeln;
writeln;
end;
end;
'3' :begin
writeln(' !!!!!!!!!!!!! PROGRAM NOMOR 3. !!!!!!!!!!!!');
writeln(' -------------------------------------------');
writeln;
writeln;
{textcolor(57);}
for brs:=1 to 5 do
begin
for klm:=1 to 5 do
if (brs >= klm) then
write(brs*klm:5);
writeln;
writeln;
writeln;
end;
end;
'4' :begin
writeln(' !!!!!!!!!!!!!! PROGRAM NOMOR 4. !!!!!!!!!!!!');
writeln(' --------------------------------------------');
writeln;
writeln;
{textcolor(59);}
for klm:=1 to 5 do
begin
write('':5*klm);
for brs:=1 to 5 do
if (brs >=klm) then
write(klm*brs:5);
writeln;
writeln;
writeln;
end ;
end;
'5' :begin
writeln(' !!!!!!!!!!!!!! PROGRAM NOMOR 5. !!!!!!!!!!!!!');
writeln(' ---------------------------------------------');
writeln;
writeln;
{textcolor(56);}
n := 30;
for klm:=1 to 5 do
begin
write('':n);
for brs:= 1 to 5 do
if (brs+klm>=6) then
write(klm*brs:5);
writeln;
writeln;
n := n-5;
end;
end;
'6' :begin
writeln(' !!!!!!!!!!!!!! PROGRAM NOMOR 6. !!!!!!!!!!!!!');
writeln(' ---------------------------------------------');
writeln;
writeln;
{textcolor(33);}
for brs :=1 to 4 do
begin
for klm :=1 to 4 do
if klm >=brs then
write(brs*klm:5)
else write(' ':5);
for klm:=5 to 7 do
if klm< 9-brs then
write(brs*klm:5)
else write(' ':5);
writeln;
end;
for brs:=5 to 7 do
begin
for klm:=1 to 4 do
if klm>7-brs then
write(brs*klm:5)
else write(' ':5);
for klm:=5 to 7 do
if klm<brs+1 then
write(brs*klm:5)
else write(' ':5);
writeln;
end;
end;
else
begin
writeln(' Tapak tangan ');readln;
{textcolor(63);}
writeln(' -------- o 0 o --------');
writeln(' -------- 0 0 0 0 --------');
writeln(' -------- 0 0 0 0 0 ------');
writeln(' -------- ( ) ------');
writeln(' -------- ( ) -------');
writeln(' --------- IIIIII --------');
end;
end;
{textcolor(6);}
writeln(' ---------------------------------------------');
writeln(' @@@@@@@@@@@@@@@@@@@ selesai @@@@@@@@@@@@@@@@@');
writeln(' ---------------------------------------------');
readln;
write(' mau coba lagi [ya/tidak] ?');readln(jawab);
if (jawab='ya') then
goto mulai
end.
This site is not affiliated with or endorsed in any way by the Wikimedia Foundation or any of its affiliates. In fact, we fucking despise them.
|
