belajar pascal 5 (repeat2)

belajar pascal 5 repeat

program cari_akar;
uses crt;
var A, B, C : real;
diskriminan, akar1, akar2 : real;
jawab : char;
begin
repeat
clrscr;
writeln('mencari akar persamaan kuadrat dari aX^2 + bX + c = 0');
writeln('======================================================');
write('masukkan koefisisen kuadrat persamaan (A) :'); readln(A);
write('masukkan koefisisen linier persamaan (B) :'); readln(B);
write('masukkan konstanta persamaan   (C):'); readln(C);
writeln;
diskriminan := sqr(B) - 4*A*C;
if diskriminan < 0 then writeln ('akar-akar persamaan imajiner')
else
begin
if diskriminan =0 then
begin
akar1:=-B;
writeln('akar-akar persamaan tunggal = X=',akar1:7:2);
end
else
begin
akar1 := -B + sqrt(diskriminan)/(2*A);
akar2 := -B - sqrt(diskriminan)/(2*A);
writeln('akarrpersamaan I = X1=',akar1:7:2);
writeln('akarrpersamaan I = X2=',akar2:7:2);
end;
end;
writeln;
write('ada persamaan lainnnya[Y/T]');
repeat
read(jawab);
until jawab in ['Y','y','T','t'];
until jawab in ['T','t'];
end.



hasil program: