uses wincrt;
var
a,b,c,d : integer;
x1,x2 : real;
begin
clrscr;
writeln (' Mencari Akar Persamaan Kuadrat');
writeln (' ');
writeln (' ');
writeln ('Bentuk Persamaan Kuadrat :
ax^2+bx+c=0');
write ('Masukkan Nilai a = ') ;readln (a);
write ('Masukkan Nilai b = ') ;readln (b);
write ('Masukkan Nilai c = ') ;readln (c);
d:= (b*b) - (4*a*c);
writeln (' D = ', d);
if d<0 then
begin
writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar-Akar yang Immaginier');
end
else
if d=0 then
begin
writeln ('Persamaan Kuadrat Tersebut Mempunyai Akar-Akar yang Sama');
x1:= (-b)/(2*a);
writeln('x1,x2 = ', x1:0:2);
end
else
if d>0 then
begin
writeln ('Persamaan Kuadrat Tersebut Mempunyai 2 Akar Real yang
Berbeda');
x1:= ((-b)+sqrt(d))/(2*a);
x2:= ((-b)-sqrt(d))/(2*a);
writeln ('x1 = ',x1:0:2);
writeln ('x2 = ',x2:0:2);
end;
writeln (' ');
writeln (' Terima Kasih');
end.
min, izin bertanya ni, jika misalnya kita input data yang salah pada nilai a,b dan c (seharusnya angka yang harus di input) tiba-tiba kita input huruf atau tanda baca, bagaimana kodingnya agar otomatis memberikan komentar bahwa input kita itu salah.
BalasHapusthanks min