Program Mencari_Turunan

Program Mencari_Turunan;
uses crt;
function turunan(o,p,q,r :integer): integer;
var
f1: integer;
f2: integer;
begin
f1:=3*o+2*p+q;
f2:=6*o+2*p;
end;
var
a,b,c : integer;
begin
clrscr;
writeln(‘Ini Program Mencari Turunan dari f(x)=ax^3+bx^2+cx+d’);
write(‘masukkan koefisien pertama (a):’);
readln(a);
write(‘masukkan koefisien kedua (b):’);
readln(b);
write(‘masukkan koefisien ketiga (c):’);
readln(c);
writeln(‘Turunan pertama(f1)=’,3*a,’x^2+’,2*b,’x+’,c);
writeln(‘Turunan kedua(f2)=’,6*a,’x+’,2*b);
end.

Untuk mentranslate bahasa

Program mencari jarak pada GLB;

program mencarijarakpadagarislurusberaturan;
procedure hitung(V,t:real);
var
S:real;
begin
S:=V*t;
writeln(‘jarak/S=’,S);
writeln(‘kecepatan/V=’,V);
writeln(‘waktu/t=’,t);
end;
{program utama}
var
V,t:real;
begin
write(‘nilai V?’);
readln(V);
write(‘nilai t?’);
readln(t);
hitung(V,t);
end.

Untuk mentranslate bahasa