TPW Program Zodiak

program zodiak;
uses wincrt;
var
nama:string;
t,bl,tl,z,j : integer;
ulang : char;
begin
repeat
clrscr;
write ('Tulis nama anda : '); readln(nama );
write ('Tuliskan tanggal lahir anda   (dalam bentuk Angka) : '); readln(tl);
write ('Tuliskan Bulan Lahir anda  (dalam bentuk Angka) : ');readln(bl);
writeln ('-------------------------------------------');


case bl of
01 : begin t := 31; j := 0 end;
02 : begin t := 29; j := 1 end;
03 : begin t := 31; j := 0 end;
04 : begin t := 30; j := 0 end;
05 : begin t := 31; j := -2 end;
06 : begin t := 30; j := -1 end;
07 : begin t := 31; j := -2 end;
08 : begin t := 31; j := -2 end;
09 : begin t := 30; j := -3 end;
10 : begin t := 31; j := -2 end;
11 : begin t := 30; j := -1 end;
12 : begin t := 31; j := -2 end;
else writeln (' Maaf, Bulan yang anda Maksud Tidak Tersedia');
end;
begin
if ( tl <= t) = true then
begin
write ('Halo ',nama,', Anda lahir pada tanggal ',tl,'-',bl,'. Zodiak anda adalah ');
z := ((bl * 31) + ((tl + j) - 21)) div 31 ;
case z of
1 : writeln ('Aquarius');
2 : writeln ('Pisces');
3 : writeln ('Aries');
4 : writeln ('Taurus');
5 : writeln ('Gemini ');
6 : writeln ('Cancer');
7 : writeln ('Leo');
8 : writeln ('Virgo');
9 : writeln ('Libra');
10 : writeln ('Scorpio');
11 : writeln ('Sagitarius');
else writeln ('Capricon');
end;
end
else writeln ('Maaf, tanggal yang anda masukan tidak tersedia.');
end;
writeln('------------------------------------------------');
write ('Terima kasih atas kunjungan anda. Silakan enter 2 kali untuk kembali ke awal.');
readln(ulang);
until (ulang = 't' ) or (ulang = 'T');
end.

TPW Program Nilai

program menghitungnilaimahasiswa;
uses wincrt;
var
  nM1,nM2, nM3, nim1, nim2, nim3, hasil1, hasil2, hasil3:string;
  nilai1, nilai2, nilai3:integer;
begin
  write('Nama : '); readln(nM1);
  write('Nim : '); readln(nim1);
  write('nilai : '); readln(nilai1);
  write('Nama : '); readln(nM2);
  write('Nim : '); readln(nim2);
  write('nilai : '); readln(nilai2);
  write('Nama : '); readln(nM3);
  write('Nim : '); readln(nim3);
  write('nilai : '); readln(nilai3);

  case nilai1 of
  0..40 : hasil1 := 'E';
  41..50 : hasil1 := 'D';
  51..60 : hasil1 := 'C';
  61..70 : hasil1 := 'C+';
  71..80 : hasil1 := 'B';
  81..90 : hasil1 := 'B+';
  91..100 : hasil1 := 'A';

  end;
  case nilai2 of
  0..40 : hasil2 := 'E';
  41..50 : hasil2 := 'D';
  51..60 : hasil2 := 'C';
  61..70 : hasil2 := 'C+';
  71..80 : hasil2 := 'B';
  81..90 : hasil2 := 'B+';
  91..100 : hasil2 := 'A';

  end;
  case nilai3 of
  0..40 : hasil3 := 'E';
  41..50 : hasil3 := 'D';
  51..60 : hasil3 := 'C';
  61..70 : hasil3 := 'C+';
  71..80 : hasil3 := 'B';
  81..90 : hasil3 := 'B+';
  91..100 : hasil3 := 'A';

  end;

  writeln('Nilai ',nM1, ' adalah ',hasil1);
  writeln('Nilai ',nM2, ' adalah ',hasil2);
  writeln('Nilai ',nM3, ' adalah ',hasil3);

  end.

TPW Program Perbandingan

program menghitung;

uses
   wincrt;

var
   b1, b2:string;
   p1, p2, l1, l2, luas1, luas2:integer;


begin
   write('Menghitung luas ');readln(b1);
   writeln('panjang ',b1, ' adalah ');readln(p1);
   writeln('Sedangkan lebar ',b1, 'adalah ');readln(l1);
   write('Menghitung luas ');readln(b2);
   writeln('Sisi bangun ',b2, ' adalah ');readln(p2);


   luas1:= p1 * l1;
   luas2:= p2 * p2;
 
   writeln('Jadi luas ',b1, ' adalah ',luas1);
   writeln('Sedangkan luas ',b2, ' adalah ',luas2);

   if (luas1 > luas2) then
     begin
       write('Jadi luas ',b1, ' lebih luas dari pada bangun ',b2);
     end
   else
     begin
        write('Jadi luas ',b2, ' lebih luas dari pada bangun ',b1);
     end

end.
NB: Mohon maaf bila ada kesalahan