program membentukfungsikuadrat;

uses wincrt;

var x,x1,x2,a,nilai,hasil1,hasil2,hasil,y:integer;

var hasil3,hasil6,hasil7:real;

var hasil4,hasil5:integer;

var nama, NIM:string;

 

begin

writeln (‘selamat datng di program ini’);

writeln (‘sebelum masuk program ini silahkan mengisi jadi diri anda’);

write (‘nama anda: ‘); readln(nama);

write (‘masukan nomor NIM anda: ‘);readln (NIM);

writeln (‘terima kasih kepada saudar/i ‘,nama,’ anda telah mematuhu tata tertib kami’);

writeln (‘semoga program ini dapat membantu anda dalam membentuk fungsi kuadrat’);

readln;

clrscr;

writeln (‘program ini di buat untuk membentuk fungsi kuadrat’);

writeln (‘jika diketahui titik potong grafik dengan sumbu x dan melalui titik sebarang’);

readln;

writeln (‘rumus umunya adalah f(x)=a(x-x1)(x-x2)’);

readln;

write (‘masukan angka x1: ‘);

readln (x1);

write (‘masukan angka x2: ‘);

readln (x2);

writeln (‘sehingga diperoleh’);

writeln (‘f(x)= a(x – ‘,x1,’)(x – ‘,x2,’)’);

readln;

writeln (‘karena grafik melalui titik ketiga’);

write (‘masukan angka x: ‘);

readln (x);

write (‘masukan angka y: ‘);

readln (y);

writeln (y,’=a(‘,x,’-‘,x1,’)(‘,x,’-‘,x2,’)’);

hasil1:= x – x1;

hasil2:= x – x2;

writeln (y,’=a(‘,hasil1,’)(‘,hasil2,’)’);

hasil:= hasil1 * hasil2 ;

writeln (y,’=a(‘,hasil,’)’);

hasil3:= y / hasil;

writeln (‘a=’,hasil3:2:0);

readln;

writeln (‘sehingga diperoleh’);

writeln (‘f(x)=’,hasil3:2:0,’(x-’,x1,’)(x-’,x2,’)’);

hasil4:=x1 + x2;

hasil5:= x1 * x2;

writeln (‘f(x)=’,hasil3:2:0,’(x^2 -’,hasil4,’x +’,hasil5,’)’);

hasil6:=hasil3*hasil4;

hasil7:=hasil3*hasil5;

writeln (‘f(x)=’,hasil3:2:0,’x^2 -’,hasil6:2:0,’x +’,hasil7:2:0);

readln;

writeln (‘jadi, bentuk fungsi kuadranya adalah: ‘);

writeln (‘f(x)=’,hasil3:2:0,’x^2 -’,hasil6:2:0,’x +’,hasil7:2:0);

readln;

writeln (‘terima kasih, anda telah menggunakan program ini ‘);

end.