Program Diskriminan Persamaan Kuadrat

Program dpk;
Uses wincrt;
var a,b,c,D,xxx:real;
begin clrscr;
writeln('Diskriminan Persamaan Kuadrat');
writeln('=============================');
writeln;
writeln;
write('Ketikkan nilai "a": ');readln(a);
write('Ketikkan nilai "b": ');readln(b);
write('Ketikkan nilai "c": ');readln(c);
writeln;
clrscr;
writeln('Hasil'); writeln;
writeln('Rumus : D = b x b - 4 x a x c');
writeln(' = ',b:0:0,' x ',b:0:0,' - 4 x ',a:0:0,' x ',c:0:0);
xxx := -4*a*c; d := b*b+xxx;
writeln;
writeln;
writeln('Diskriminan= ',d:0:2);
if d > 0 then begin writeln('D > 0');
writeln('Maka, persamaan kuadrat memiliki dua akar real yang berlainan.'); end;
if d = 0 then begin writeln('D = 0');
writeln('Maka, persamaan kuadrat memiliki dua akar yang sama(akar kembar),'); writeln('real, dan rasional.'); end;
if d < 0 then begin writeln('D < 0');
writeln('Maka, persamaan kuadrat tidak memiliki akar real atau kedua'); writeln('akarnya tidak real(imajiner).'); end;
gotoxy(60,1);
writeln('a = ',a:0:2);
gotoxy(60,2);
writeln('b = ',b:0:2);
gotoxy(60,3);
writeln('c = ',c:0:2); end.

Posted in: program,program pascal