Program Mencari Turunan

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.

Mencari Sisi Miring Segitiga Siku-siku

program mencarisisimiringsegitigasikusiku;
uses crt;
procedure hitung(A,B : real);

var
r : real;
begin
r:=SQRT(A*A+B*B);
writeln(‘Panjang sisi tegak =’,A:2:2);
writeln(‘Panjang sisi datar =’,B:2:2);
writeln(‘Jadi panjang sisi miring adalah =’,r:2:2);
end;
var
g,b : real;
begin

clrscr;
write(‘Panjang sisi tegak = ‘);
readln(g);
write(‘Panjang sisi datar = ‘);
readln(b);
hitung(g,b);

end.