konsep pemograman pascal

contoh konsep pemograman pascal
-----------------------------------------------------------------
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  kode : char ;
  hrg, brt, total : integer ;

begin
  write ('masukkankode kualitas : '); readln (kode);
  //seleksi kondisi dng  case of
  case kode of
  'A', 'a':// ([,] koma) sama fungsi'a dg OR pd fungi IF
  hrg := 1000; //statemen
  'B', 'b':
    hrg := 750;
  'C', 'c':
    hrg := 500;
  else
   hrg := 0 ;
  end;
  writeln ('harga per kg : ', hrg);
  write ('berat : ');
  readln (brt);
  total := brt*hrg ;
  writeln ('total adalah : ', total);
  readln ;

end.

function dan procedure

function dan procedure
---------------------------------------------------------------------------

var

  luas,p,l : integer ;

function f_luas {(x,y : integer )}: integer;

  begin

    //write ('masukkan x kotak 1 : ');readln (x);

    //write ('masukkan y kotak 1 : ');readln (y);

    write ('masukkan x kotak 1 : ');readln (p);

    write ('masukkan y kotak 1 : ');readln (l);

    result := p*l ; //x*y ;

  end;

procedure k1; //(x,y : integer );

 begin

    luas := f_luas;

    writeln ('hasil luas kotak 1 : ', luas);

 end;

procedure k2 ;//(x,y : integer);

 begin

   writeln ('hasil luas kotak 2 : ' , f_luas{(x,y)});

 end;

begin

  k1 (p,l);

  k2 (4,9);

  readln;

end.

Contoh Function dan Procedure (Pascal )

function dan procedure pascal

==================================================================

var luas : integer ;

function func_luas (x,y : integer) : integer ;

 begin

   result := x*y ;

 end;

procedure kotak1 (x,y : integer);       //kotak 2

 begin

    luas := func_luas (x,y);

    writeln ('hasil luas kotak 2 : ' , luas);

 end;

procedure kotak2 (x,y :integer);                //kotak 1

 begin

   //luas := func_luas (x,y);

   writeln ('hasil luas kotak 2 : ', func_luas (x,y));

 end;

begin

  kotak1 (3,6);

  kotak2 (4,9);

  readln;

end.

Function dan Parameter Pemograman Pascal

berikut contoh codingan pemograman pascal fungsi Function dan Parameter

=============================================================

var luas : integer ;

function func_luas (x,y : integer) : integer ;

 begin

   {variabel global}luas := x*y {parameter};

 end;

procedure kotak (x,y : integer);

 begin

   //luas := x*y;

   luas := func_luas (x,y);

 end;

begin

  //writeln (char(89));

  //writeln (ord (98));

  //writeln (ord ('G'));

  writeln (round (88.8));{dibulatkan}

  //func_luas (65,87);

  writeln ('nilai dari function : ' , func_luas (65,87));

  kotak (56,78);

  writeln ('nilai dari prosedur kotak : ' , luas);

  readln;

end.

Pemograman Pascal menggunakan Array

Pemograman Pascal dengan menggunakan Array
makasih sudah mengunjungi blok kami, kali ini gw berbagai ilmu tentang pemograman pascal, disini gw menampilkan entrian untuk codingan array 2 dimensi

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type

  hari = (senin,selasa,rabu,kamis,jumat,sabtu,minggu) ;

Const

  garis = '-----------------------------------------------------------------------------------------';

var

  baris :array[hari,1..6] of string[15] ;

  hari1 : hari ;

  jam : integer ;

begin

  baris[senin,1] := 'matematika' ;

  baris[senin,2] := 'matematika' ;

  baris[senin,3] := 'bahasa indo' ;

  baris[senin,4] := 'bahasa indo' ;

  baris[senin,5] := 'olahraga' ;

  baris[senin,6] := 'olahraga' ;

  baris[selasa,1] := 'matematika' ;

  baris[selasa,2] := 'matematika' ;

  baris[selasa,3] := 'bahasa indo' ;

  baris[selasa,4] := 'bahasa indo' ;

  baris[selasa,5] := 'olahraga' ;

  baris[selasa,6] := 'olahraga' ;

  baris[rabu,1] := 'matematika' ;

  baris[rabu,2] := 'matematika' ;

  baris[rabu,3] := 'bahasa indo' ;

  baris[rabu,4] := 'bahasa indo' ;

  baris[rabu,5] := 'olahraga' ;

  baris[rabu,6] := 'olahraga' ;

  baris[kamis,1] := 'matematika' ;

  baris[kamis,2] := 'matematika' ;

  baris[kamis,3] := 'bahasa indo' ;

  baris[kamis,4] := 'bahasa indo' ;

  baris[kamis,5] := 'olahraga' ;

  baris[kamis,6] := 'olahraga' ;

  baris[jumat,1] := 'matematika' ;

  baris[jumat,2] := 'matematika' ;

  baris[jumat,3] := 'bahasa indo' ;

  baris[jumat,4] := 'bahasa indo' ;

  baris[jumat,5] := 'olahraga' ;

  baris[jumat,6] := 'olahraga' ;

  baris[sabtu,1] := 'matematika' ;

  baris[sabtu,2] := 'matematika' ;

  baris[sabtu,3] := 'bahasa indo' ;

  baris[sabtu,4] := 'bahasa indo' ;

  baris[sabtu,5] := 'olahraga' ;

  baris[sabtu,6] := 'olahraga' ;

  writeln(garis);

  writeln('no':4,'senin':12,' |','selasa':12,' |','  rabu':12,' |','   kamis':12,' |','jumat':12,' |','sabtu':12) ;

  writeln(garis) ;

  for jam := 1 to 6 do

    begin

    write (jam:4) ;

      for hari1 := senin to sabtu do

        begin

          write(baris[hari1,jam]:12,' |');

        end;

    writeln ;

    end;

  readln ;

end.

--------------projec2 -----------------------------------------program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

type

  hari = (senin,selasa,rabu,kamis,jumat,sabtu,minggu);

  kegiatan = (pagi,siang,sore,malam);

  aktivitas = array [kegiatan,hari] of string ;

var

  a : aktivitas ;

  x : kegiatan ;

  j : hari ;

  z : string ;

begin

  a[pagi,senin] := 'mandi';

  a[pagi,selasa] := 'mandi';

  a[pagi,rabu] := 'mandi';

  a[pagi,kamis] := 'mandi';

  a[pagi,jumat] := 'mandi';

  a[pagi,sabtu] := 'mandi';

  a[pagi,minggu] := 'mandi';

  a[siang,senin] := 'makan';

  a[siang,selasa] := 'sekolah';

  a[siang,rabu] := 'bimbingan';

  a[siang,kamis] := 'sekolah';

  a[siang,jumat] := 'renang';

  a[siang,sabtu] := 'maen';

  a[siang,minggu] := 'bersepeda';

  a[sore,senin] := 'mandi';

  a[sore,selasa] := 'belajar';

  a[sore,rabu] := 'ngaji';

  a[sore,kamis] := 'belajar';

  a[sore,jumat] := 'ngaji';

  a[sore,sabtu] := 'maen';

  a[sore,minggu] := 'ke rumah teman';

  a[malam,senin] := 'tidur';

  a[malam,selasa] := 'belajar';

  a[malam,rabu] := 'nonton tv';

  a[malam,kamis] := 'maen game';

  a[malam,jumat] := 'internetan';

  a[malam,sabtu] := 'bubuk';

  a[malam,minggu] := 'belajar';

  for  x:= kegiatan(pagi) to kegiatan(sore) do

    begin

   //   writeln('kegiatan di tiap pagi :',);

   writeln('-------------------------------------------');

      for j := hari(senin) to hari(minggu) do

        begin

         writeln(a[x,j]);

        end;

    end;

 readln;

end.---

---------------------- project 3 --------------------------------

program Project5;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

 isi :array[1..10,1..10] of integer ;

 i,j : integer ;

begin

isi[1,1,8] := 1 ;

isi[1,2] := 2 ;

isi[1,3] := 3 ;

isi[1,4] := 4 ;

isi[1,5] := 5 ;

isi[2,1] := 6 ;

isi[2,2] := 7 ;

isi[2,3] := 8 ;

isi[2,4] := 9 ;

isi[2,5] := 10 ;

isi[3,1] := 11 ;

isi[3,2] := 12 ;

isi[3,3] := 13;

isi[3,4] := 14;

isi[3,5] := 15 ;

isi[4,1] := 16;

isi[4,2] := 17;

isi[4,3] := 18;

isi[4,4] := 19;

isi[4,5] := 20 ;

isi[5,1] := 21;

isi[5,2] := 22;

isi[5,3] := 23;

isi[5,4] := 24;

isi[5,5] := 25 ;

for j := 1 to 5 do

  begin

    for  i := 1 to 4 do

       write (isi[i,j]:5);

    writeln(isi[i,j]:5);

  end;

readln ;

end.

Yap, disini gw menampilkan 3 project.

Selamat mencoba ya......