Kumpulan Kode Pascal : Contoh Sourche Code Program Pascal Sederhana

Contoh Kode Program Pascal >> : Kode Program pascal memang sedikit mudah dipahami dibandingkan dengan bahasa pemrograman lainnya seperti pemrograman java, vb, phyton dll. namun tetap saja dalam menguasai bahasa pemrograman tidaklah mudah. perlu keahlian dan ketelitian khusus dalam membuat sebuah program yang sederhana sekalipun. dalam kode pemrograman pascal ini anda diharuskan melakukan modifikasi source kode agar bisa lebih memahami apa fungsi masing masing dari kode tersebut.




Berikut Kumpulan Contoh Source Code Program Pascal :


1. Kode Program bagi pemula dengan struktur biasa dan sederhana



Program Contoh_Sederhana;

Uses CRT;

Var i,j,k : integer;

Begin

  ClrScr;

  Write('masukkan nilai i dan j : ');

  Readln(i,j);

  k:=i+j;

  Writeln('nilai k : ',k);

  Readln;

End.


2. Program bagi pemula dengan struktur biasa dan sederhana


Program ContohInteger;

Uses CRT;

Var y       : Integer;

    p       : Real;

    X       : Real;

Begin

     y := 5;

     p := 6;

     x := y + p;

     Writeln('Nilai X adalah :',x:4:1);

End.


3. Program pengolahan data pengolahan LOGIC



Program ContohLogic;

Uses CRT;

Var a,b,c,d : Boolean;

Begin

     a := True;

     b := False;

     c := not a;

     d := not b;

     Writeln(a);

     Writeln(b);

     Writeln(c);

     Writeln(d);

End.


4. Program untuk menginput sejumlah variabel dan menampilkannya



Program Contoh_Variabel;

Uses crt;

Var

   Nama : string[15];

   Jumlah,harga : Longint;

   Nilai : real;

Begin

   ClrScr;

   {Memasukkan data}

   Nama:='Semen';

   jumlah:=10;

   harga :=250000;

   Nilai :=Harga * Jumlah ;

   {Menampilkan Data yang Telah Diproses}

   writeln('Nama Barang:',Nama);

   writeln('Jumlah:',Jumlah);

   writeln('Harga:',Harga);

   writeln('Nilai Barang:',Nilai);

   Readln;

end.

5. Program untuk mengolah variabel



(* Variable dan Konstanta *)

Program Contoh_2a;

Uses CRT;

Const phi = 3.14;

Var x : Integer;

    y : Real;

Begin

     ClrScr;

     x := 5;

     y := x * phi;

     Writeln('Nilai y = ', y:5:2);

     Readln;

End.

NB : Silahkan anda kreasikan sendiri Kode pemrograman pascal diatas dengan pemahaman yang anda miliki, semoga dengan contoh source code pemrograman pascal diatas dapat membantu anda, terimakasih.

You might also like

0 Comments

Silahkan berkomentar yang baik dan menarik sesuai dengan isi konten.
Komentar yang tidak diperbolehkan :

1. Berbau penghinaan SARA & P*RN
2. Komentar dengan Link hidup ( akan dianggap spam )
3. Komentar tidak nyambung dengan isi postingan
EmoticonEmoticon