Minggu, 13 Desember 2015

Membuat program sederhana dengan menggunakan Case Of


Coding:





Hasil Output:

Sabtu, 12 Desember 2015

Program menghitung tunjangan menggunakan pascal



Script program tunjangan



Hasil script




Flowchart

Jumat, 09 Oktober 2015

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:


Jumat, 02 Oktober 2015