Program Fungsi (Pascal)

Dengan menginput nilai x, tentukanlah:

Berikut sintaks program menghitung fungsi di atas :

program Nilai_x;

uses crt;

var u,v,w,x,y: real;

begin

clrscr;

writeln('masukkan nilai x = '); readln(x);

u:=3+exp(1/3*ln(x));

v:=exp(4*ln(u));

w:=7*exp(5*ln(x))+exp(1/6*ln(x));

y:=(u/w)+7*sqr(x);

writeln('hasil dari ((3+x^1/3)^4)/7x^5+x^1/6)+7x^2 = ',y:2:2);

readln;

end.

Selamat mencoba.