Tugas Pemrograman Terstruktur I #1

#PASCAL
=============================================================================
program polma;
uses crt;

var
 pj, lbr, ss, jr : integer;
 pil : integer;
 hitung : real;
procedure menu;

begin
 clrscr;
 writeln ('Program Menghitung Luas Bidang');
 writeln;
 writeln ('1. Menghitung Luas Bujur Sangkar');
 writeln ('2. Menghitung Luas Persegi Panjang');
 writeln ('3. Menghitung Luas Lingkaran');
 writeln;
 write   ('Silahkan pilih salah satu : '); readln(pil);
 case pil of
 1 : begin
        clrscr;
        writeln ('Menghitung Luas Bujur Sangkar');
        writeln;
        write   ('Masukkan Sisi   : '); readln(ss);
         hitung:=ss*ss;
        writeln;
        writeln ('Luas (Sisi x Sisi) : ',hitung);
        readln;
     end;
 2 : begin
        clrscr;
        writeln ('Menghitung Luas Persegi Panjang');
        writeln;
        write   ('Masukkan Panjang : '); readln(pj);
        write   ('Masukkan Lebar   : '); readln(lbr);
         hitung:=pj*lbr;
        writeln;
        writeln ('Luas             : ',hitung);
        readln;
     end;
 3 : begin
        clrscr;
        writeln ('Menghitung Luas Lingkaran');
        writeln;
        write   ('Masukkan Jari-jari : '); readln(jr);
         hitung:=3.14*jr*jr;
         writeln;
         writeln ('Luas              : ',hitung);
         readln;
     end;
 else begin writeln ('Salah !!!'); readln; end;
 end;
end;
              begin menu; end.
=============================================================================


#ALGORITMA
=============================================================================
PROGRAM polma

KAMUS
 pj, lbr, ss, jr : integer
 pil : integer
 hitung : real

ALGORITMA
 output ('Program Menghitung Luas Bidang')
 output ('-----------------------------------');
 output ('1. Menghitung Luas Bujur Sangkar')
 output ('2. Menghitung Luas Persegi Panjang')
 output ('3. Menghitung Luas Lingkaran')
 output ('-----------------------------------');
 output ('Silahkan pilih salah satu : ') input(pil)

  depend on pil
  1 :    output ('Menghitung Luas Bujur Sangkar')
         output ('-----------------------------------');
         output ('Masukkan Sisi   : ') input(ss)
          hitung <-- ss*ss
         output ('Luas            : ',hitung)

  2 :    output ('Menghitung Luas Persegi Panjang')
         output ('-----------------------------------');
         output ('Masukkan Panjang : ') input(pj)
         output ('Masukkan Lebar   : ') input(lbr)
          hitung <-- pj*lbr
         output ('Luas             : ',hitung)

  3 :    output ('Menghitung Luas Lingkaran')
         output ('-----------------------------------');
         output ('Masukkan Jari-jari : ') input(jr)
          hitung <-- 3.14*jr*jr
         output ('Luas               : ',hitung)

  else
   output ('Aduuhhh !? Jawaban tidak ada dalam Pilihan. Coba lagi.') input
=============================================================================