CONTOH PROGRAM SEDERHANA MENGGUNAKAN BAHASA PEMROGRAMAN PASCAL

Oleh peistar

Monday, 27 June 2016

Bagikan :

Tweet

Adapun contoh - contoh program sederhana dengan menggunakan Bahasa Pemrograman Pascal dapat saudara lihat dibawah ini.

Contoh Program Aritmatika Sederhana :

Uses Crt;

Var

                A, B, C   : Integer;

Begin

                Clrscr;

                Writeln(‘Program Menampilkan Inpit & Output’);

Writeln;

Writeln(’----------------------------------------------------------------’);

Writeln(’              Program Penjumlahan’);

Writeln(’----------------------------------------------------------------’);

Writeln;

Write(‘                  Nilai Pertama                     : ‘);readln(A);

Write(‘                  Nilai Kedua                         : ‘);readln(B);

C:= A + B;

Writeln(’              Hasil Penjumlahan: ’,C);

Writeln(’----------------------------------------------------------------’);

Wrieln;

Writeln(’----------------------------------------------------------------’);

Writeln(’              Program Pengurangan’);

Writeln(’----------------------------------------------------------------’);

Writeln;

Write(‘                  Nilai Pertama                     : ‘);readln(A);

Write(‘                  Nilai Kedua                         : ‘);readln(B);

C:= A - B;

Writeln(’              Hasil Pengurangan: ’,C);

Writeln(’----------------------------------------------------------------’);

Writeln(;

Writeln(’              Program Perkalian’);

Writeln(’----------------------------------------------------------------’);

Writeln;

Write(‘                  Nilai Pertama                     : ‘);readln(A);

Write(‘                  Nilai Kedua                         : ‘);readln(B);

C:= A * B;

Writeln(’              Hasil Perkalian: ’,C);

Writeln(’----------------------------------------------------------------’);

Readln;

End.

Contoh Program Input Data :

Uses Crt ;

Var

Nim,Nama,Alamat,Jurusan          : String;

Umur                                                    : Integer;

IP                                                            : Real;

Begin

Clrscr;

Writeln('--------------------------------‘);

Writeln(' Data Mahasiswa UNIKS ‘);

Writeln('--------------------------------‘);

Writeln;

Writeln('=> Nim Mahasiswa        : ');readln(Nim);

Writeln('=> Nama Mahasiswa    : ');readln(Nama);

Writeln('=> Alamat Mahasiswa  : ');readln(Alamat);

Writeln('=> Jurusan Mahasiswa                 : ');readln(Jurusan);

Writeln('=> Umur Mahasiswa     : ');readln(Umur);

Writeln('=> IP Mahasiswa            : ');readln(IP);

Writeln;

Writeln('--------------------------------');

Readln;

End.

Contoh Program Menggunakan Fungsi IF :

program menggunakan_if;

uses crt;

var nip,nama : string;

    pendapatan,pajak : real;

    gol : char;

begin

clrscr;

writeln('--------- DAFTAR PAJAK ----------');

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

write  ('NIP                     : ');readln(nip);

write  ('Nama Karyawan           : ');readln(nama);

write  ('Golongan [A,B,C]        : ');readln(gol);

write  ('Pendapatan              : ');readln(pendapatan);

       if (gol = 'A' ) or (gol = 'a') then

             pajak := 0

       else if (gol = 'B') or (gol = 'b') then

            pajak := 0.1 * pendapatan

       else if (gol = 'C') or (gol = 'c') then

            pajak := 0.2 * pendapatan

       else write('Salah melakukan Penginputan data ');

       writeln('Pajak : Rp. ',pajak:9:2);

       readln;

end.

Selamat mencoba semoga contoh program sederhana dengan menggunakan bahasa pemrograman pascal ini bermanfaat bagi kita semua. Wasalllaaaammmm....

Tag : Pemrograman Pascal