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.
