program menghitung_akar_persamaan_kuadrat;
uses wincrt;
var
a,b,c,x1,x2,D:real;
akar1,akar2:real;
menu,lagi:char;

procedure pilihan;
begin

clrscr;
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;

begin
lagi:=’y’;
while lagi=’y’do
begin
clrscr;
writeln(‘nama           : afian hasby’);
writeln(‘smstr/kls      : 3/D’);
writeln(‘nim            : 2225092832’);
writeln(‘bahasan        : diskriminan persamaan kuadrat’);
writeln(‘==============================================’);
writeln(‘[1] pengertian diskriminan’);
writeln(‘[2] jenis-jenis diskriminan’);
writeln(‘[3] mencari akar-akar persamaan kuadrat(a*x*x+b*x+c=0) ‘);
writeln(‘——————————————————-‘);
write(‘pilih menu no: ‘);readln(menu);
case menu of
‘1’:begin
clrscr;
writeln(‘menurutku adalah suatu angka yang memiliki kuadrat, disaat kita mau’);
writeln(‘menjabarkannya maka akan muncul kata-kata-atau angka-angka  yang sama’);
writeln(‘yang pastinya berujung perkalian…..!’);
end;

‘2’:begin
clrscr;
writeln(‘jenis-jenis diskriminan’);
writeln(‘———————–‘);
writeln(‘- Jika diskriminan bersifat positif, akan terdapat dua akar berbeda’);
writeln(‘  yang kedua-duanya merupakan bilangan riil. Untuk persamaan kuadrat dengan’);
writeln(‘  koefisien berupa bilangan bulat, apabila diskriminan merupakan suatu’);
writeln(‘  kuadrat sempurna, maka akar-akarnya merupakan bilangan rasional,’);
writeln(‘  sebaliknya dapat pula merupakan bilangan irrasional kuadrat’);
writeln(‘- Jika diskriminan bernilai nol, terdapat eksak satu akar, dan akar yang’);
writeln(‘  dimaksud merupakan bilangan riil. Hal ini kadang disebut sebagai akar ganda’);
writeln(‘- Jika diskriminan bernilai negatif, tidak  terdapat akar riil. Sebagai gantinya’);
writeln(‘  terdapat dua buah akar kompleks (tidak-real), yang satu sama lain merupakan:’);
writeln(‘  konjugat kompleks’);
writeln(‘——————————————————————————–‘);
end;
‘3’:pilihan;
else
writeln(‘lihat yang benar aj sihh…!!!’);
end;
writeln(‘kembali ke menu awal?(y/t)’);readln(lagi);
end;

end.