Program Mencari Turunan

Program MencariTurunan;
Uses crt;
var
a, b, turunan_pertama: integer;
Begin
ClrScr;
writeln(‘Program ini dipakai untuk mencari turunan pertama’);
writeln(‘dari persamaan dengan bentuk umum :’);
writeln(‘f(x) = a sin^2 x + b cos^2 x’);
write(‘Masukkan nilai a = ‘);
readln(a);
write(‘Masukkan nilai b = ‘);
readln(b);
writeln( 2*a,’ sin x cos x – ‘,2*b,’ cos x sin x’);
end.

Program Mencari Luas Permukaan Tabung

Program MencariLuasPermukaanTabung;

procedure hitung(r,t : real);
var
LPT, LST : real;
begin
LPT := 2*3.14*r*r;
LST := 2*3.14*r*t;
writeln(‘Jari-jari = ‘,r:2:2);
writeln(‘Tinggi = ‘,t:2:2);
writeln(‘Luas permukaan tabung = ‘,LPT:2:2);
writeln(‘Luas selimut tabung = ‘,LST:2:2);
end;
var
r, t : real;
begin
write(‘Masukan nilai Jari-jari = ‘);
readln(r);
write(‘Masukan nilai tinggi = ‘);
readln(t);
hitung(r, t);

end.