nih dia konsumsi lama yg mau saya share ke teman - teman.. siapa tau aja ada yang mau CoPast..
mengapa saya katakan lama..? karena program ini masih menggunakan pascal.. dan ini juga tugas kuliah saya waktu itu..
uses crt;
var
i,rand:byte;
hasil:string;
HasilMemy:string;
pemenang:string;
MemyMenang,IlhamMenang:integer;
roundIlham:array[1..20] of integer;
roundMemy:array[1..20] of integer;
begin
clrscr;
writeln('permainan ke- Ilham Memy pemenang');
writeln(' Rand1 Hasil Rand2 Hasil ');
writeln('======================================================================');
begin
randomize;
for i:= 1 to 20 do
begin
roundIlham[i]:=random(3)+1;
if (roundIlham[i]=1) then
begin
Hasil:='kertas';
end
else if (roundIlham[i]=2) then
begin
hasil:='Gunting';
else
begin
hasil:='batu';
end;
begin
roundMemy[i]:=random(3)+1;
if (roundMemy[i]=1) then
begin
hasil:='kertas';
end
else if(roundMemy[i]=2) then
begin
hasil:='gunting';
end
else
begin
hasil:='batu';
end;
if (roundMemy[i]=1) then
begin
hasilMemy:='kertas';
end
else if(roundMemy[i]=2) then
begin
hasilMemy:='gunting';
end
else
begin
hasilMemy:='batu';
end;
if roundIlham[i]>roundMemy[i] then
begin
pemenang:='Ilham';
inc(Ilhammenang);
end
else if roundIlham[i]<roundMemy[i] then
begin
pemenang:='Memy';
inc(Memymenang);
end
else
begin
pemenang:='seri';
end;
end;
writeln(i:5,roundIlham[i]:10,hasil:14,roundMemy[i]:5,hasilMemy:13,pemenang:10);
end;
end;
writeln('==========================================================================');
write('jumlah ILham menang :',Ilhammenang,' jumlah Memy menang :',Memymenang);
readln;
end.
semoga bermanfaat...
Tidak ada komentar:
Posting Komentar