program PERSAMAAN_DAN_FUNGSI_KUADRAT;
uses wincrt;

procedure garis;
begin
writeln(‘@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@’)
end;

var
alas,tinggi,s,p,l:integer;
luas1,luas2,luas3:real;
lain:char;
pass:integer;
bil1,bil2,hasil1,hasil2:integer;

a,b,c,D:real;
akar1,akar2:real;
lagi,pilihan,maning:char;
const
e=’x’;
f=’+’;

procedure lainnya;
begin
clrscr;
repeat
writeln(‘[5] luas segitiga’);
writeln(‘[6] luas persegi panjang’);
writeln(‘[7] luas bujur sangkar’);
garis;
write(‘pilih no:’);readln(lain);
case lain of
‘5’:begin
clrscr;
writeln(‘LUAS SEGITIGA’);
garis;
write(‘alas   = ‘);readln(alas);
write(‘tinggi = ‘);readln(tinggi);
luas1:=(alas*tinggi)/2;
writeln(‘maka luas segitiga tersebut adalah ‘,luas1:4:2);
end;
‘6’:begin
clrscr;
writeln(‘LUAS PERSEGI PANJANG’);
garis;
write(‘panjang = ‘);readln(p);
write(‘lebar   = ‘);readln(l);
luas2:=p*l;
writeln(‘maka luas persegi panjang tersebut adalah ‘,luas2:4:0);
end;
‘7’:begin
clrscr;
writeln(‘LUAS BUJUR SANGKAR’);
garis;
write(‘sisi= ‘);readln(s);
luas3:=s*s;
writeln(‘maka luas bujur sangkar tersebut adalah ‘,luas3:4:0);
end;
else
writeln(‘maning-maning NGAWUR..!!!’);
end;
write(‘mau mencari luas lagi?(Y/T):’);readln(maning);
maning:=upcase(maning);
writeln;
until maning=’T’;
end;

procedure selesai;
begin
clrscr;
writeln(‘terima kasih anda telah menggunakan program saya’);
garis;
end;

begin
writeln(‘masukan password:’);readln(pass);
if pass=2763 then

begin
lagi:=’y’;
while lagi=’y’do
begin
clrscr;
begin
writeln(‘          W  E  L  C  O  M  E’);
writeln(‘        @@@@@@@@@@@@@@@@@@@@@@@’);
writeln(‘NAMA     : EDI SUHAEDI’);
writeln(‘SMT/KLS  : 3/D’);
writeln(‘KELOMPOK : 2’);
writeln(‘BAHASAN  : PERSAMAAN DAN FUNGSI KUADRAT’);
writeln(‘——————————————————–‘);

writeln(‘MATERI PERSAMAAN DAN FUNGSI KUADRAT’);
writeln(‘————————————-‘);
writeln(‘[1] AKAR PERSAMAAN KUADRAT DAN DISKRIMINAN’);
writeln(‘[2] MENYUSUN PERSAMAAN KUADRAT’);
writeln(‘[3] LAINNYA’);
writeln(‘[0] SELESAI’);
writeln(‘————————————-‘);
write(‘pilih materi no:’);readln(pilihan);
case pilihan of
‘1’: begin
clrscr;
writeln(‘AKAR PERSAMAAN KUADRAT’);
writeln(‘———————-‘);
writeln(‘mencari akar-akar persamaan kuadrat (a*x*x+b*x+c*x=0)’);
writeln(‘—————————————————–‘);
write(‘masukkan a=’);readln(a);
write(‘masukkan b=’);readln(b);
write(‘masukkan c=’);readln(c);
writeln(‘————————————-‘);
D:=(b*b)-4*a*c;
if D=0 then
begin
akar1:=-b/2*a;
akar2:=akar1;
writeln(‘D=’,D:4:2);
writeln(‘karena D=0, maka akar-akar persamaan kuadratnya adalah sama: ‘);
writeln(‘x[1]=x[2]=’,akar1:4:2);
writeln(‘————————————————————-‘);
end;
if D >0 then
begin
akar1:=(-b+sqrt(D))/2*a;
akar2:=(-b-sqrt(D))/2*a;
writeln(‘D=’,D:4:2);
writeln(‘karena D>0, maka akar-akar persamaan kuadratnya real & berlainan:’);
writeln(‘x[1]=’,akar1:4:2,’ dan x[2]=’,akar2:4:2);
writeln(‘—————————————————————–‘);
end;
if D<0 then
begin
writeln(‘D=’,D:4:2);
writeln(‘karena D<0, maka akar-akar persamaan kuadratnya adalah imajiner’);
writeln(‘—————————————————————‘);
end;
end;

‘2’: begin
clrscr;
writeln(‘MENYUSUN PERSAMAAN KUADRAT’);
writeln(‘————————–‘);
writeln(‘Ket : x[1] dan x[2] merupakan akar persamaan kuadraat,’);
writeln(‘      x*x dibaca x kuadrat’);
writeln(‘——————————————————–‘);
writeln(‘rumus umum menyusun akar persamaan kuadrat baru: x*x-(x[1]+x[2])x+(x[1]*x[2])=0  ‘);
writeln(‘——————————————————————————–‘);
writeln(‘SILAHKAN MENCOBA….!!!’);
write(‘masukan x[1]=’);readln(bil1);
write(‘masukan x[2]=’);readln(bil2);

hasil1:=(bil1+bil2);
writeln(‘x[1]+x[2]=’,hasil1);
hasil2:=(bil1*bil2);

writeln(‘x[1]*x[2]=’,hasil2);
writeln(‘—————————————————-‘);
write(‘maka persamaan kuadratnya adalah: x*x-‘,hasil1,e,f,hasil2);
writeln(‘=0’);
writeln(‘—————————————————-‘);
writeln(‘NOTE: berlaku hanya untuk BILANGAN BULAT’) ;
writeln(‘                          ==============’);

end;

‘3’: lainnya;
‘0’: selesai;
else
writeln(‘anda tadi pilih no berapa?… NGAWUR!!!!’);
end;
writeln(‘KEMBALI KE MENU AWAL?(y/t)’);readln(lagi);
end;
end;
end;
end.