Algoritma Menghitung Persamaan Kuadrat

Berikut adalah Algoritma Perhitungan persamaan kuadrat:

program Menghitung_akar_persamaan_kuadrat;

uses crt;

var A,B,C: integer;

x1,x2,D:real;

begin

clrscr;

writeln;

writeln(' PROGRAM KOMPUTER');

writeln(' Nama : Lia Amaliyah');

writeln(' NIM : 070821');

writeln(' Kelas : 4A');

readln; writeln;

writeln(' MENGHITUNG AKAR PERSAMAAN KUADRAT ');

writeln(' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');

writeln;

write(' > koefisien A: ');

read(A);

write(' > koefisien B: ');

read(B);

write(' > koefisien C: ');

read(C);Writeln;

write(' maka persamaan kuadratnya adl sebagai berikut:');

readln; writeln;

writeln;

writeln( A,'x*x + ',B,'x + ',C,' = 0');

writeln;readln;

if A=0 then

begin

writeln;

writeln(' bukan persamaan kuadrat');

readln;writeln;

end

else

begin

D:=(B*B)-(4*A*C);

writeln(' Diskriminannya adalah ',d:2:2);readln;

writeln;writeln;

if D>0 then

begin

writeln(' Memiliki akar-akar real yang berbeda');

writeln;

x1:=(-B+sqrt(D))/(2*A);

x2:=(-B-sqrt(D))/(2*A);

writeln(' akar-akarya adalah : ',x1:2:2,' dan ',x2:2:2);

end

else

if D=0 then

begin

writeln(' Memiliki akar yang sama(akar kembar), real dan rasional');

writeln;

x1:=-b/(2*A);

x2:=-b/(2*A);

writeln(' akar-akarya : ',x1:2:2);

end

else

writeln(' Tidak Memiliki akar real atau kedua akarnya tidak real (imajiner)');

end;

readln;

end.

(Hasil akhirnya adalah sebagai berikut!)