program suit_indonesia;-kursus pemrograman di majalengka
program suit_indonesia;
uses wincrt;
var pilihanku:string;
komputer :string;
a:integer;
lagi : char;
z,x,y:string;
begin
repeat
clrscr;
acakize;
a := Random(3);
y := 'telunjuk';
x := 'jempol';
z := 'kelingking';
writeln('----------------------------------------------------------');
writeln('-----------------Silahkan kita Pilihlah ------------------');
writeln('----------------------------------------------------------');
writeln('----------------------- telunjuk -------------------------');
writeln('------------------------ ibu jari --------------------------');
writeln('---------------------- kelingking ------------------------');
writeln('----------------------------------------------------------');
writeln;
write(' Masukkan Pilihan kamu = '); readln(pilihanku);
writeln;
writeln('----------------------------------------------------------');
writeln;
if (a=0) then
begin
komputer:='telunjuk';
end
else if (a=1) then
begin
komputer:='jempol';
end
else if (a=2) then
begin
komputer:='kelingking';
end;
writeln(' Pilihan komputer = ',komputer);
writeln;
writeln('----------------------------------------------------------');
writeln;
if ( pilihanku= y) and (a = 0) then
begin
writeln(' Hasilnya Adalah kamu Seri');
end
else if ( pilihanku= x) and (a = 0) then
begin
writeln(' Hasilnya Adalah kamu Menang');
end
else if ( pilihanku= z) and (a = 0) then
begin
writeln(' Hasilnya Adalah kamu Kalah');
end
else if ( pilihanku= y) and (a = 1) then
begin
writeln(' Hasilnya Adalah kamu Kalah');
end
else if ( pilihanku= x) and (a = 1) then
begin
writeln(' Hasilnya Adalah kamu Seri');
end
else if ( pilihanku= z) and (a = 1) then
begin
writeln(' Hasilnya Adalah kamu Menang');
end
else if ( pilihanku= y) and (a = 2) then
begin
writeln(' Hasilnya Adalah kamu Menang');
end
else if ( pilihanku= x) and (a = 2) then
begin
writeln(' Hasilnya Adalah kamu Kalah');
end
else if ( pilihanku= z) and (a = 2) then
begin
writeln(' Hasilnya Adalah kamu Seri');
end;
writeln('----------------------------------------------------------');
write(' Apa hendak di Ulang (y/n) ?'); readln(lagi);
until lagi ='n'
clrscr;
gotoxy(7,10);writeln('TERIMA KASIH TELAH MENCOBA');
writeln;
gotoxy(7,12);writeln('============================================');
gotoxy(7,13);writeln('================= Idham H N ==================');
gotoxy(7,14);writeln('============STMIK TASIKMALAYA==============');
end.
Tidak ada komentar:
Posting Komentar