script turbo pascal

beberapa hari yang lalu  guru saya menyuruh mencari beberapa script untuk turbo pascal
 dan ini beberapa hasil pencarian saya


kalkulator

uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
  write ('masukan angka ke-1:');readln (x);
  write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
  write ('masukan angka ke-2:');readln (y);
  if ( jawab= '+') then
  begin
    hasil:= x+y
  end;
  if ( jawab = '-') then
  begin
    hasil:= x-y
  end;
  if ( jawab = '*') then
  begin
    hasil:= x*y
  end;
  if (jawab='/') then
  begin
    hasil:= x/y
  end;
  write ('hasilnya: ',(hasil):5:2);
end.

konversi jam ke detik

Program Konversi_Jam_ke_Detik; 
{Dibaca jam-menit-detik (hh:mm:ss)} 
{Konversilah jam-menit-detik ke dalam total detik} 
{Code Written by Dede Kurniadi} 
(*Deklarasi*) 
type Jam=record 
          hh:longint; {jam} 
          mm:longint; {menit} 
          ss:longint; {detik} 
         end; 
 
var 
J : Jam; 
Total_detik : longint; 
 
(*Deskripsi*) 
Begin 
 write ('Jam    = '); readln (J.hh); 
 write ('Menit  = '); readln (J.mm); 
 write ('Detik  = '); readln (J.ss); 
 total_detik:= (J.hh*3600) + (J.mm*60) + J.ss; 
 writeln ('Total detik = ', total_detik); 
 Readln; 
end. 

luas trapezium

Program Luas_Trapesium;
 Uses crt;
 Var
 sisi_a,sisi_b,tinggi,luas:real;
 Begin
 clrscr;
 write (‘masukkan sisi a:’);
readln (sisi_a);
 write(‘masukkan sisi b:’);
readln(sisi_b);
 write (‘masukkan tinggi:’);
readln(tinggi);
 Luas:=(sisi_a+sisi_b)/2*tinggi;
 writeln(‘Luas Trapesium adalah:’,Luas:8:2);
 readln;
 end.

volume bola

Program Volume_Bola;
 Uses crt;
 Var
 jari_jari,volume:real;
 Begin
 clrscr;
 write (‘masukkan jari-jari:’);
readln (jari_jari);
 volume:=jari_jari*jari_jari*4/3*pi;
 writeln(‘Volume Bola adalah:’,volume:8:2);
 readln;
 end.

pitagoras

program pythagoras;
 uses crt;
 var
 a,b,c:real;
 begin
 write('Masukkan nilai a = ');readln(a);
 write('Masukkan nilai b = ');readln(b);
 c:=sqrt((a*a)+(b*b));
 writeln('Hasilnya c adalah ',c:4:2);
 end.


sumber :1  2 3  4