Coding Pertidaksamaan Kuadrat

Assalamuaalaikum sobat readers. hhmmm, setiap orang mempunyai kesempatan yang sama perihal kesuksesan, Namun cara bahkan hasilnya yang akan membedakan.  kesuksesan sejati bukanlah terlihat dalam hal banyaknya kekayaan  yang ia punya. Namun, bagaimana cara ia dapat memanfaatkan apa yang telah ia dapatkan untuk jalan kebaikan. yupps, bicara tentang sama dan berbeda (read:tak sama) teringat akan materi matematika terkait pertidaksamaan kuadrat. Kalau sebelumnya ane share coding turbo pascal persamaan kuadrat. kali ini ane share coding program pertidaksamaan kuadrat. Ciee.. mereka tampak sama tapi mereka ada sedikit perbedaan. yuk dicoba saja programnya.. semoga bermanfaat :)


program pertidaksamaan_kuadrat;
uses wincrt;

var
tanda: string;
coba: char;
a,b,c,D : integer;
 x1,x2 : real;



begin

repeat
 clrscr;

 writeln ('                         **** Program pertidaksamaan Kuadrat ***');
 writeln (' ');
 writeln (' ');
 writeln ('                         Bentuk Persamaan Kuadrat : ax^2+bx+c = 0   ');
 writeln(' ');
 write ('Masukkan Nilai a = ') ;readln (a);
 writeln( ' ');
 write ('Masukkan Nilai b = ') ;readln (b);
 writeln(' ');
 write ('Masukkan Nilai c = ') ;readln (c);
 writeln(' ');
 write ('tanda pertidaksamaan : ') ;readln(tanda);
 writeln(' ');
 writeln ('bentuk pertidaksamaan kuadrat : ',a,'x^2 + ',b,' x + ',c,' ' ,tanda, ' 0');

 D:= (b*b) - (4*a*c);
 writeln (' ');
 writeln ('Nilai Diskriminan  = ', D);

 if D < 0 then
 begin
    writeln ('Tidak mempunyai himpunan penyelesaian');

 end
 else
  if D=0 then
  begin
    write ('himpunan penyelesaiannya adalah : ');
    x1:= (-b)/(2*a);
    if tanda = '<' then
    writeln('x < ', x1:0:2) else

    if tanda = '>' then
    writeln('x > ',x1:0:2) else

    if tanda = '>=' then
    writeln('x >= ',x1:0:2) else

    if tanda = '<=' then
    writeln('x <= ',x1:0:2);

 
  end
  else
   if D > 0 then
   begin                                
   write ('himpunan penyelesaiannya adalah : ');
   x1:= ((-b)+sqrt(d))/(2*a);
   x2:= ((-b)-sqrt(d))/(2*a);
 
 
   if tanda = '<' then
   writeln ('',x2:0:2,' < x < ',x1:0:2,'')  else


   if tanda = '<=' then
   writeln ('',x2:0:2,' <= x <= ',x1:0:2,'')  else

   if tanda = '>' then
   writeln ('x < ',x2:0:2,' atau  x > ',x1:0:2) else


   if tanda = '>=' then                    
   writeln ('x <= ',x2:0:2 ,' atau  x >= ',x1:0:2);

 
   end;
   writeln (' ');

 writeln (' ');

writeln ('                                Terima Kasih');



 writeln (' ');
 write ('coba lagi? (Y or N):  '); readln (coba);

until (coba = 'N') or (coba = 'n');


end.