program menuOke;

uses wincrt;

var  pilih :char;
tanya :string;

procedure titikpuncak;

var Xp,Yp,y,x,i:integer;

var hasil,hasil1,hasil2,hasil3,hsl,hsl1,has,has1,hasl,hasil5:real;

begin

clrscr;

writeln (‘cara untuk membentuk fungsi kuadrat’);

writeln (‘jika diketahui titik puncak dan melalui titik sebarang’);

writeln (‘fungsi kuadrat tersebut dapat dinyatakan dalam bentuk’);

readln;

writeln (‘f(x)= a(x-Xp)^2 + Yp’);

readln;

write (‘masukan nilai titik puncak Xp: ‘);

readln (Xp);

write (‘masukan nilai titik puncak Yp: ‘);

readln (Yp);

writeln (‘maka f(x)= a(x-’,Xp,’)^2 + ‘,Yp);

readln;

writeln (‘karena grafik fungsi tersebut melalui titik sebarang, maka’);

write (‘masukan nilai x: ‘);

readln (x);

write (‘masukan nilai y: ‘);

readln (y);

writeln (‘maka ‘,y,’= a(‘,x,’-‘,Xp,’)^2 +’,Yp);

hasil:=(x-Xp);

writeln (‘maka ‘,y,’= a(‘,hasil:2:0,’)^2 +’,Yp);

hasil5 :=1;

for i:=1 to 2 do

begin

hasil1 :=hasil*hasil;

end;

writeln (‘maka ‘,y,’= a(‘,hasil1:2:0,’) +’,Yp);

hasil2:=y-Yp;

writeln (‘maka ‘,hasil2:2:0,’= a’,hasil1:2:0);

hasil3:=hasil2/hasil1;

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

if(hasil3 = 0) or (hasil3 = -0) then writeln (‘INI BUKAN BENTUK FUNGSI KUADRAT’);

readln;

writeln (‘sehingga diperoleh’);

readln;

writeln (‘f(x)= a(x-‘,Xp,’)+’,Yp);

hsl:=Xp+Xp;

hsl1:=Xp*Xp;

writeln (‘f(x)=’, hasil3:2:0,'(x^2 -‘,hsl:2:0,’x + ‘,hsl1:2:0,’)+’,Yp);

has:=hasil3*hsl;

has1:=hasil3*hsl1;

writeln (‘f(x)=’,hasil3:2:0,’x^2 -‘,has:2:0,’x + ‘,has1:2:0,’+’,Yp);

hasl:=has1+Yp;

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

readln;

writeln (‘THANKS FOR YOUR INVITATION…..!!!’);   writeln;

end;

procedure sumbux;

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

var hasil3,hasil6,hasil7:real;

var hasil4,hasil5:integer;

begin

clrscr;

writeln (‘cara untuk membentuk fungsi kuadrat’);

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

readln;

writeln (‘rumus umumnya 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);

if hasil3=0 then writeln (‘THIS IS NOT BENTUK FUNGSI KUADRAT’);

readln;

writeln (‘sehingga diperoleh’);

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

hasil4:=x1 + x2;

for i:=1 to 2 do

begin

hasil5 :=x1*x2;

end;

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 (‘THANKS FOR YOUR INVITATION…..!!!’); writeln;

end;

begin
clrscr;
writeln (‘===================================’);
writeln (‘NAMA : ERICK DAMAX YP’);
writeln (‘NIM : 2225092695’);
writeln (‘KELAS : 3D NR’);
writeln (‘===================================’);
repeat
clrscr;
writeln (‘================================’);

writeln (‘MEMBENTUK FUNGSI KUADRAT’);

writeln (‘================================’);

writeln (‘1. jika berpotongan dengan sumbu x’);

writeln (‘2. jika diketahui titik puncaknya’);

writeln (‘================================’);

write (‘Pilih menu nomor 1 atau nomor 2:’); readln (pilih);

case pilih of

‘1’ :sumbux;

‘2’: titikpuncak;

else

clrscr;

GotoXY(20,7);write (‘SYNTAX ERROR, PLEASE TRY IT AGAIN !!!’);

end;

writeln;
writeln;
GotoXY(19,10);writeln  (‘lanjut [tekan yes], keluar [tekan exit]: .’);
writeln;
gotoxy(33,11);readln (tanya);

until (tanya=’exit’) or (tanya=’EXIT’);
Clrscr;
GotoXY(17,7);writeln (‘THANKS FOR YOUR INVITATION…..!!!’);
GotoXY(28,10);Writeln;
GotoXY(27,13);Writeln(‘erick_damax@yahoo.co.id’);
GotoXY(24,16);Writeln(‘eriesyudharies.wordpress.com’);

END.

 

untuk melihat program, silahkan download disini