REFRESHING WITH PASCAL FOR WIN

PROGRAM LAT_03;
Uses Wincrt;
Const
pi=3.14;
Var luas : real;
r : integer;
Begin
clrscr;
Writeln('====================================');
Writeln('Menghitung Luas Lingkaran ');
Writeln('------------------------------------');
Writeln('Jari-Jari Lingkaran : ');readln(r);
luas := pi * r * r;
Writeln('Luas Lingkaran :',luas:3:2);
End.

PROGRAM LAT_04;
Uses Wincrt;
Var luas : real;
alas, tinggi : integer;
Begin
clrscr;
Writeln('====================================');
Writeln('Menghitung Luas Segitiga : ');
Writeln('------------------------------------');
Writeln('Alas : ');readln(alas);
Writeln('Tinggi : ');readln(tinggi);
luas := 0.5*(alas * tinggi);
Writeln('Luas Segitiga :',luas:3:2);
End.

PROGRAM LAT_05;
Uses Wincrt;
Var luas : rata;
n_uas, n_uts, n_quis, n_tb, n_hadir : integer;
Begin
clrscr;
Writeln('====================================');
Writeln('Menghitung Rata-Rata Nilai: ');
Writeln('------------------------------------');
Writeln('Nilai UAS : ');readln(n_uas);
Writeln('Nilai UTS : ');readln(n_uts);
Writeln('Nilai Quis : ');readln(n_quis);
Writeln('Nilai Tugas Berstruktur : ');readln(n_tb);
Writeln('NIlai Kehadiran : ');readln(n_hadir);

rata := (n_uas+n_uts+n_quis+n_tb+n_hadir)/5;
Writeln('Rata –Rata Nilai :',rata:3:2);
End.

PROGRAM LAT_06;
{Buat Rumusnya dengan prosentase seperti yang dibahas dalam matakuliah Algoritma…!