Script Program Persamaan Kuadrat

Persamaan Kuadrat adalah salah satu materi dalam matematika dengan persamaan umum : .


Yang harus diperhatikan dalam persamaan kuadrat, diantaranya :
1. Nilai Diskriminan :
                
2. Persamaan kuadrat akan memiliki 3 nilai yaitu  mempunyai dua akar (syarat : D > 0), mempunyai akar kembar atau hanya satu akar (syarat : D = 0), tidak memiliki akar atau imajiner (syarat : D < 0). 
3. Nilai-nilai akarnya di rumuskan :
                


Berikut Script Programnya : 
program persamaan_kuadrat; 
uses wincrt; 
var  a,b,c : integer; 
     D,x1,x2 : real; 
begin 
writeln('Persamaan Umum : ax^2 + bx + c'); 
write('Masukkan koefisien a b c :');readln(a,b,c); 
D := b * b - 4 * a * c; 
writeln; writeln('Kesimpulan :'); 
if D=0 then 
begin 
x1 := ((0-b) + sqrt(D))/(2*a); 
writeln('Mempunyai akar kembar dengan akar-akarnya:'); 
writeln('x1 = x2 = ',x1:2:2); 
end 
else if D>0 then
begin
x1 := ((0-b) + sqrt(D))/(2*a);
x2 := ((0-b) - sqrt(D))/(2*a);
writeln('Mempunyai dua akar berlainan dengan akar-akarnya:');
writeln('x1 = ',x1:2,'; x2 = ',x2:2:2);
end
else if D<0 then
writeln('Tidak punya akar');
end.

Posted in: pascal