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