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';
end