menu

Rabu, 08 Februari 2012

Program Balik

Uses crt;
    Var kt,hkt,hkt1:string;
    i,j:integer;
Begin
         Writeln('Program Balik');
         Writeln('=================');
         Writeln;

Ascending & Discending

uses crt;
const max = 10;
type arr=array[1..max] of real;
var i : byte; data : arr;
procedure input; begin
clrscr;randomize;
for i :=1 to max do
begin
data[i] :=random(11);
end;
clrscr;
for i := 1 to max do
writeln;writeln ('data hasil random yang telah diurutkan :');
end;

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