Program Mencari_turunan;
uses crt;
var
a,b,c,d : integer;
begin
clrScr;
writeln(‘Program ini mencari’);
writeln(‘Turunan Pertama Persamaan Dasar’);
writeln(‘Dengan Bentuk Umum’);
writeln(‘f(x)=ax^3+bx^2+cx+d’);
write(‘Masukkan nilai a = ‘);
readln(a);
write(‘Masukkan nilai b = ‘);
readln(b);
write(‘Masukkan nilai c = ‘);
readln(c);
writeln(3*a,’x^2+’,2*b,’x+’,c);
end.