Cara membuat program algoritma fungsi linear di TP 7

Asslmkm, ketemu lagi dengan awak di amtsal's blog, kali ini saya akan melanjutkan artikel ttg turbo pascal, sekarang awak akan membahas yang ada hubunganx dgn matimatic..he,,hee,,ngeri kali ini...kayak islam ktp saja..
kok awak banyak bicaara, langusng saja awak akan membuat algoritma di turbo pascal untuk mencari nilai suatu fungsi,, ni dia algritmanya:


program fungsi(x);
uses crt;
var
x,y: real;
begin
clrscr;
       writeln('==================================================');
       writeln('Menghitung nilai f(x)=(x^7+(x)^1/2+3*x-1)/(x)^1/3)');
       writeln('==================================================');
       writeln;
       write('Masukkan nilai x: '); readln(x);
       y:=(exp(7*ln(x))+exp(1/2*ln(x))+3*x-1)*(exp(-1/3*ln(x)));
       writeln('Jadi hasil untuk f(x)=(x^7+(x)^1/2+3*x-1)/(x)^1/3)');
       writeln('adalah: ',y:6:1);
writeln;
readkey;
end.

cukup sekian dan syukran,,mohon komentar untuk kebaikan dan perbaikan blog ini,,waslmkm..