Program Mencari Penyelesaian Fungsi Kuadrat

Fungsi : Mengitung nilai persamaan kuadrat bila nilai x diketahui

Hint: Masukan  nilai a,b,c  dan nilai x.

Screen Shot :

uses crt;

var x,y,z,s:integer;

function fungsi(a,b,c,x:integer):integer;

    begin

       fungsi:=a*(x*x)-b*x+c;

    end;

begin

   write('masukan a : ');readln(x);

   write('masukan b : ');readln(y);

   write('masukan c : ');readln(z);

   write('masukan x : ');readln(s);

   writeln('f(x)=',x,'(x^',x,'2)-',y,'x+',z);

   writeln('f(',s,') =',fungsi(x,y,z,s));

   readln;

end.