Program Bentuk_Umum_Persamaan_Kuadrat;

 

uses wincrt;

 

var a,b,c, hasil : integer;

 

var nama,persamaankuadrat : string;

 

 

 

begin

writeln(‘Hai aku sedang memprogram’);

 

writeln(‘INI PROGRAM BENTUK UMUM PERSAMAAN KUADRAT’);

 

write(‘Masukan nama anda:’);

 

readln(nama);

 

 

clrscr;

 

writeln(‘Mari kita mulai !’);

 

writeln(‘Persamaan kuadrta adalah:’);

 

writeln(‘Suatu persamaan yang mempunyai bentuk umum ax^2+bx+c=0’);

 

writeln(‘Untuk mengujinya’);

 

write(‘Masukan koefisien persamaan kuadrat a=’);

 

readln(a);

 

writeln(‘Persamaan kuadrat:ax^2+bx+c=0’);

 

if a=0 then write(‘Ini bukan persamaan kuadrat’);

 

readln;

 

 

clrscr;

 

writeln(‘Selesai !’);

 

writeln(‘Terimakasih’);

 

 

 

end.