Program turbo pascal rumus matematika

Program turbo pascal rumus matematika - hallo sahabat RPL !! kali ini ane akan memberikan contoh program turbo pascal rumus matematika, saya membuat artikel ini untuk teman teman sekelas saya dan sekarang boleh untuk teman teman yang diluar sana yang ingin mau lihat contoh program turbo pascal matematika, yoss... langsung saja ke TKP !!.

Menentukan Luas Trapesium

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.

---

Menentukan 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.

---

Mencari Luas dan Keliling Lingkaran

Program Luas_dan_Keliling_Lingkaran;
uses wincrt;
const
phi=3.142857;
var r, Luas, Keliling:real;
begin
write ('masukkan jari-jari lingkaran: ');readln(r);
Luas:=(phi*r*r);
Keliling:=(phi*2*r);

writeln ('luas:', Luas:10:3);
writeln ('keliling:', Keliling:10:3);
end.

---

Luas Segitiga

program luas_segitiga;
Uses wincrt;
Var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;
Begin
clrscr;
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end.

---

Luas Segi Empat

Program luas_segi_empat;
uses wincrt;
var
panjang:integer;
lebar:integer;
luas:integer;
Begin
writeln('panjangnya');
readln(panjang);
writeln('lebarnya');
readln(lebar);
luas:=panjang*lebar;
writeln('luas segi4=',luas);
End.

---

Jenis Akar Persamaan (1)

program jenis_akar_persamaan_1;
uses wincrt;
var
   a,b,c,x,x1,x2,D : real;
begin
     writeln ('berapa a?'); read (a);
     writeln ('berapa b?'); read (b);
     writeln ('berapa c?'); read (c);
     D:=b*b-4*a*c   ;
     if D=0 then
     begin
     x:= -b/(2*a);          
     write ('akar-akarnya real kembar yaitu ',x);
     end else
     if D>0 then
     begin
     x1:= (-b + sqrt(D))/(2*a);
     x2:= (-b - sqrt(D))/(2*a);
     writeln('akarnya real berbeda yaitu x1= ',x1:0:0);
     writeln('x2= ',x2:0:0);
     end else
     begin
     writeln('akarnya tidak real yaitu ');
     end;
end.