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.