Program Pascal Menentukan Akar Persamaan Kuadrat

klik my Facebook here

program akar_pk;

{menentukan akar-akar persamaan kuadrat}

uses wincrt;

label 10;

var a,b,c,D,x,x1,x2,z1,z2:real;

    lagi:char;

    pilih:byte;

begin

     begin

     10:writeln;

     writeln('===================================================');

     writeln(' ***selamat datang di program persamaan kuadrat*** ');

     writeln('===================================================');

     writeln('');

     writeln('1.menentukan akar-akar persamaan kuadrat dengan rumus ABC');readln;

     writeln('2.menentukan akar-akar persamaan kuadrat dengan rumus lain');readln;

     writeln('3.selesai');readln;

     pilih:=9;

     while (pilih<1) or (pilih>3) do

     begin write('pilih nomor (1-3), ok?');readln(pilih);

     end;

     clrscr;

     if pilih=1 then                  

     begin

     write('***menentukan akar-akar persamaan kuadrat dengan rumus ABC***');readln;

     writeln('');readln;

     write('langkah-langkahnya adalah sebagai berikut.');readln;

     write('masukkanlah nilai a = ');readln(a);

     if a=0 then

     begin

     write('');readln;

     writeln('ingat! a tidak boleh sama dengan nol');

     write('');readln;

     write('masukkanlah nilai a=');readln(a);

     end;

     if a>0 then

     begin

     write('masukkanlah nilai b =');readln(b);

     write('masukkanlah nilai c =');readln(c);

     D:=SQR(b)-(4*a*c);

     writeln('');readln;

     writeln('D=',D:1:2);

     writeln('');readln;

     end;

     if D<0 then

     begin

     z1:=-b/(2*a);

     z2:=SQRT(-D)/(2*a);

     writeln('karena D<0 maka "PK tidak mempunyai akar real (akarnya bilangan kompleks)"');

     writeln('yaitu:');readln;

     writeln('x1=',z1:1:2,'+',z2:1:8,'i');

     writeln('x2=',z1:1:2,'-',z2:1:8,'i');

     end;

     if D=0 then

     begin

     x:=-b/(2*a);

     writeln('karena D=0, maka "PK memnpunyai dua akar real yang sama", yaitu', x:1:2);

     end;

     if D>0 then

     begin

     x1:=(-b+SQRT(D))/(2*a);

     x1:=(-b-SQRT(D))/(2*a);

     writeln('karena D>0, maka "PK mempunyai dua akar real yang berlainan"');

     writeln('yaitu;');readln;

     writeln('x1=',x1:1:8);

     writeln('x2=',x2:1:8);

     end;

     writeln('');readln;

     write('mau coba lagi (Y/T)?');readln(lagi);

     clrscr;

     if (lagi='Y') or (lagi='y') then goto 10;

     if (lagi='T') or (lagi='t') then

     writeln('===================================');readln;

     writeln('***cukup sekian dan terima kasih***');readln;

     writeln('===================================');readln;

     end;

     if pilih=2 then

     begin

     write('***menentukan akar-akar persamaan kuadrat dengan rumus lain***');readln;

     writeln('');readln;

     write('langkah-langkahnya adalah sebagai berikut.');readln;

     write('masukkanlah nilai a =');readln(a);

     end;

     if a=0 then

     begin

     write('');readln;

     writeln('ingat! a tidak boleh sama dengan nol');

     write('');readln;

     write('masukkanlah nilai a=');readln(a);

     end;

     if a>0 then

     begin

     write('masukkanlah nilai b =');readln(b);

     write('masukkanlah nilai c =');readln(c);

     D:=SQR(b)-(4*a*c);

     writeln('');readln;

     writeln('D=',D:1:2);

     writeln('');readln;

     end;

     if D<0 then

     begin

     z1:=-b/(2*a);

     z2:=SQRT(-D)/(2*a);

     writeln('karena D<0, maka "PK mempunyai akar real (akarnya bilangan kompleks)"');

     writeln('yaitu:');readln;

     writeln('x1=',z1:1:2,'+',z2:1:8, 'i');

     writeln('x2=',z1:1:2,'-',z2:1:8, 'i');

     end;

     if D=0 then

     begin

     x:=-b/(2*a);

     writeln('karena D=0, maka "PK mempunyai dua akar real yang sama",yaitu',x:1:2);

     end;

     if D>0 then

     begin

     x1:=(-2*c)/(b+SQRT(D));

     x2:=(-2*c)/(b+SQRT(D));

     writeln('karena D>0, maka "PK mempunyai dua akar real yang berlainan"');

     writeln('yaitu:');readln;

     writeln('x1:=',x1:1:8);

     writeln('x2:=',x2:1:8);

     end;

     writeln('');readln;

     write('mau coba lagi(Y/T)?');readln(lagi);

     clrscr;

     if (lagi='Y') or (lagi='y') then goto 10;

     if (lagi='T') or (lagi='t') then

     writeln('===================================');readln;

     writeln('***cukup sekian dan terima kasih***');readln;

     writeln('===================================');readln;

     end;

     clrscr;

     if pilih=3 then

     begin

     clrscr;

     writeln('anda tidak ingin melakukan apa-apa');readln;

     write('');readln;

     writeln('^^^^^cukup sekian^^^^^');readln;

     writeln('     * *   * *          ');readln;

     writeln('    *    *    *        ');readln;

     writeln('   *           *        ');readln;

     writeln('   *   trims   *         ');readln;

     writeln('    *         *           ');readln;

     writeln('     *       *            ');readln;

     writeln('      *     *             ');readln;

     writeln('       *   *             ');readln;

     writeln('        * *            ');readln;

     writeln('         *             ');readln;

     end;

     end.

     end.