Membuat program sederhana dengan menggunakan Case Of

Coding:

Hasil Output:

Program menghitung tunjangan menggunakan pascal

Script program tunjangan

Hasil script

Flowchart

Membuat flowchart menghitung umur, keliling persegi panjang, dan lingkaran

1. Membuat flowchart menghitung umur seseorang dengan inputan nama dan tahun lahir

    uses crt;
    var
      nama:char;
      umur,thn_lahir:real;
    begin
       clrscr;
       write('Masukan Nama       ='); readln(nama);
       write('Masukan Tahun Lahir =');
    readln(thn_lahir);
       umur:=2015-thn_lahir;
       writeln('Umur              =',umur:0:0,' tahun');
       readln;
    end.

Flowchart untuk menentukan umur seseorang:

Hasil inputan:

2. Membuat flowchart untuk menghitung keliling persegi panjang dan lingkaran

  *Menghitung keliling persegi panjang

   uses crt;

   var

     p,l:integer;

     k:real;

   begin

       clrscr;

       write('Masukan Panjang                   =');

readln(p);

       write('Masukan Lebar                      =');

readln(l);

       k:=2*p+2*l;

       writeln('Keliling Persegi Panjang   =',

k:0:2);

       readln; 

 end.

Flowchart menghitung keliling persegi panjang:

Hasil inputan:

  *Menghitung keliling lingkaran

   uses crt;

   var

    r:integer;

    k,phi:real;

  begin

    clrscr;

    writeln('Menghitung Keliling Lingkaran');

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

    write('Masukan Jari-jari  =')readln(r);

    phi:=22/7;

    k:=2*phi*r;

    writeln('Keliling Lingkaran =',k:0:2);

    readln;

end.

Flowchart menghitung kellinglingkaran:

Hasil input:

Membuat coding pascal untuk menginput data mahasiswa

Coding menginput data mahasiswa

Hasil (Run) coding data mahasiswa di atas