Computer Science Blog

Dalam pascal kita mengenal yang namanya procedure, procedur yang dimaksud dalam pascal menurut Dwi Sanjaya dalam buku struktur data diplanet pascal, procedure berguna untuk mengumpulkan statment-statment yang dapat dijalankan menjadi satu dalam suatu block dan untuk menjalankannya kembali hanya dengan menuliskan nama procedure yang menampungnya. jadi kita ga perlu banyak buat listing hanya tinggal panggil nama procedurenya saja saat kita membutuhkannya.

Berikut contoh latihan1 program hitung_tanpa_parameter; ———-> parameter = nilai
var
p,q,x,y:byte;

procedure tambahkali;
begin
p:=x+y;
q:=x*y;
writeln(’X+Y=’,p);
writeln(’X*Y=’,q);
end;
begin
write(’X=’);readln(x);
write(’Y=’);readln(y);
tambahkali;
readln;
end.

Latihan 2 program hitung_dengan_parameter;
var
p,q,x,y:byte;

procedure tambahkali(a,b:byte);
begin
p:=a+b;
q:=a*b;
writeln(’X+Y=’,p);
writeln(’X*Y=’,q);
end;
begin
write(’X=’);readln(x);
write(’Y=’);readln(y);
tambahkali(x,y);
readln;
end.

Program Menentukan_larik_terbesar;

uses wincrt;

Type
    Larik = Array[1..20] of integer;

var
    N , i : integer;
    A, B : Larik;
    BesarA, BesarB : byte;

begin
     write(’Tentukan panjang Indeks Array 1 dimensi : ‘);readln(n);
     writeln;
     {inisialisasi}
     BesarA := 0;
     BesarB := 0;
     randomize;

     {buat data acak dan disimpan dalam Larik A}
     writeln(’Larik A’);
     for i:=1 to N do
     begin
          write(’A[’,i,’] = ‘);readln(A[i]);
     end;
     {buat data acak dan disimpan dalam Larik B}
     writeln;
     writeln(’Larik B’);
     for i:=1 to N do
     begin
          write(’B[’,i,’] = ‘);readln(B[i]);
     end;

     {mulai perbandingkan kedua Array}
     for i:=1 to N do
          if A[i]>B[i] then
               inc(BesarA)
          else
               inc(besarB);

     writeln; writeln;
     writeln(’PERBANDINGAN 2 BUAH LARIK’);
     writeln(’Hasil : ‘);
     if BesarA > BesarB then
       begin
        writeln(’Larik A lebih besar dari Larik B’);
        writeln(’Jumlah indeks yang besar ada ‘,besarA,’ buah’);
       end
     else if BesarA = BesarB then
       begin
        writeln(’Larik A sama besar dengan Larik B’);
        writeln(’Jumlah indeks nya masing2 ada ‘,besarA,’ buah’);
       end
     else
       begin
        writeln(’Larik B lebih besar dari Larik A’);
        writeln(’Jumlah indeks yang besar ada ‘,besarB,’ buah’);
       end;

     readkey;
     donewincrt;
end.

Program Menukar_dua_buah_larik;

uses wincrt;

type
    Larik = Array[1..200] of Integer;

var
   A,B,C : Larik;
   i,N, tmp, mak : byte;

begin
     writeln(’===========================================’);
     writeln(’PROGRAM MENUKAR DUA BUAH LARIK’);
     writeln(’===========================================’);

     randomize;

     writeln;
     write(’Masukkan Jumlah INDEKS LARIK: ‘);readln(N);
     writeln(’Data LARIK A’);
     for i:=1 to  N do
     begin
           write(’A[’,i,’] = ‘);readln(A[i]);
     end;

     writeln;
     writeln;
     writeln(’Data LARIK B’);
     for i:=1 to  N do
     begin
           write(’B[’,i,’] = ‘);readln(B[i]);
     end;

     {proses Penukaran 2 buah Array}
     for i:=1 to N do
     begin
         C[i]:=B[i];
         B[i]:=A[i];
         A[i]:=C[i];
     end;

     writeln;

     writeln;
     writeln(’Data LARIK A setelah saling tukar’);
     for i:=1 to  N do
          write(A[i]:4);
     writeln;

     writeln;
     writeln;
     writeln(’Data LARIK B setelah saling tukar’);
     for i:=1 to  N do
          write(B[i]:4);
     writeln;

     readkey;
     donewincrt;
end.

Program Menghitung_standar_deviasi;
{SD = SQRT((Sum(Xi-rata)^2)/(N-1))}
uses wincrt;

var
     Data : Array[1..200] of Integer;
     N, i ,sum: integer;
     rata, SD : real;
     Sum2 : real;

begin
     writeln(’===========================================’);
     writeln(’PROGRAM MENGHITUNG STANDAR DEVIASI’);
     writeln(’===========================================’);

     writeln;
     write(’Masukkan Jumlah Data : ‘);readln(N);

     {inisialisasi}
     sum := 0;
     sum2 := 0.0;

     {input data secara random dan ditampilkan}
     writeln(’Berikut ini Data acak sebanyak ‘,N,’ buah’);
     randomize;
     for i:=1 to N do
     begin
          write(’Data[’,i,’] = ‘);readln(Data[i]);
          sum := sum + data[i];
     end;
     rata := sum / N;

     for i:=1 to N do
          sum2 := sum2 + SQR(data[i] - rata);

     SD := SQRT(sum2 / (N-1));

     writeln;
     writeln(’Standar Deviasinya adalah : ‘,SD:0:2);

     readkey;
     writeln(’Press Any Key to EXIT’);
     donewincrt;
end.

Program Menghitung_jumlah_digit_digit_bilangan;

uses wincrt;
var
   x,sum,i,z : integer;
   bil : string;
begin
     writeln(’====================================================’);
     writeln(’Program menentukan jumlah digit2 dari bilangan bulat’);
     writeln(’====================================================’);
     writeln;
     write(’Masukkan sebuah Bilangan : ‘); readln(Bil);

     while length(bil)1 do
     begin
         sum := 0;
         for i:=1 to length(bil) do
         begin
              val(bil[i],x,z);
              sum := sum + x;
         end;
         str(sum,bil);
     end;
     writeln;
     writeln(’Hasil jumlah : ‘,bil);

     readkey;
     donewincrt;
end.