menu

Rabu, 08 Februari 2012

Suit with pascal

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

         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