Program Pascal Menghitung Luas Lingkaran, Sisi Miring Segitiga Siku-siku dan Volume Kerucut

Nama  : Nida Ul Khasanah

NIM   : AFD 109 071

Program Menghitung_Luas_Lingkaran I

Uses crt;

Var

C , a, b :real;

Ch:char;

Begin

Clrscr;

Writeln ('Masukan nilai a :            ');

Readln (a);

Writeln ('Masukan nilai b :            ');

readln (b);

C:=sqrt(a*a)+(b*b);

Writeln ('Hasil TERGANTUNG KEPUTUSAN NIDA=',C:10:2,'cm2');

Ch:=Readkey;

End.

Program menghitung Luas lingkaran II

uses crt;

var

r,L: real;

begin

  Clrscr;

     gotoxy(4,2);write('Luas Lingkaran : ');readln;

     gotoxy(4,3);write(‘Jari-jari : ');readln(r);

    L:=3.14*r*r;

     gotoxy(5,6);write('Luas Lingkaran Adalah : ',L:2:2);readln;

end.

Program menghitung sisi miring segitiga siku-siku I          

uses crt;

 var a,t,l,sisi_miring,sinus,cosinus,sudut:real;

 ulang:char;

 begin

 repeat

 clrscr;

 writeln('Program menghitung luas segitiga siku-siku,sin,cos dan besar sudut a');

 writeln;

 write('Panjang alas =');readln(a);

 write('Tinggi Segitiga =');readln(t);

 writeln;

 l:=0.5*a*t;

 sisi_miring:=sqrt(sqr(a)+sqr(t));

 sinus:=t/sisi_miring;

 cosinus:=a/sisi_miring;

 sudut:=arctan(sinus/sqrt(1-sqr(sinus)))*(180/pi);

 writeln('Luas segitiga siku-siku =',l:1:2);

 writeln('Panjang sisi miring =',sisi_miring:1:2);

 writeln('Sinus sudut a =',sinus:1:2);

 writeln('cosinus sudut a =',cosinus:1:2);

 writeln('Besar sudut a =',sudut:1:2,' derajat');

 writeln;

 writeln('tekan sembarang tombol untuk mengulang atau X untuk keluar!');

 ulang:=readkey;

 until upcase(ulang)='X';

 end.

Program menghitung sisi miring segitiga siku-siku II

 uses crt;
procedure hitung(A,B : real);

var
r : real;
begin
r:=SQRT(A*A+B*B);
writeln(‘Panjang sisi tegak =’,A:2:2);
writeln(‘Panjang sisi datar =’,B:2:2);
writeln(‘Jadi panjang sisi miring adalah =’,r:2:2);
end;
var
g,b : real;
begin

clrscr;
write(‘Panjang sisi tegak = ‘);
readln(g);
write(‘Panjang sisi datar = ‘);
readln(b);
hitung(g,b);

end.

Program menghitung volume kerucut         

program hitung;

uses wincrt;

const
phi = 3.14;

var
n : byte;
t,r,v : real;

begin

clrscr;
writeln ('Pilihan Perhitungan');
writeln ('1. Volume Kerucut');
writeln ('2. Gak Jadi!');
writeln ('Pilih sesuai keinginan');readln(n);

case n of

1: begin
writeln ('masukkan jari-jari dan tinggi');readln(r,t);
v:= 1/3 * phi * r * r * t ;
writeln ('Volume Kerucut:',v:9,2);
end;
end;
end.