//
baca
Mathematics, TIK

akar persamaan kuadrat

Hmm.., selamat sore…

hari ini.., sedari pagi, menghajar siswa dr jam pertama sampai jam ke sembilan. cape jg sie yaa.. yaa namanya jg mencerdaskan anak bangsa..

sela sela jam pelajaran iseng-isengan di lab seorang diri, ngtes pascal. udah lama ga bermain pascal.., hehee… udah pd lupa sintaks2nya euw….

kali ini coba saya copy kesini aja. siapa tau berguna….

program pascal untuk mencari akar-akar persamaan kuadrat. mohon mahap bila ada kekurangan…..

 

program pkw;
uses crt;
var a,b,c,D, x1, x2 : real;
begin
clrscr;
textcolor(10);
writeln(‘ —————————————————— ‘);
writeln(‘|  AKAR-AKAR PERSAMAAN KUADRAT |’);
writeln(‘ ——————————————————-‘);
writeln(”);
writeln(‘    ======================’);
writeln(‘    | ax^2 + bx + c = 0  | ‘);
writeln(‘    ======================’);
writeln(”);
textcolor(23);
write(‘masukkan nilai a : ‘); readln(a);
write(‘masukkan nilai b : ‘); readln(b);
write(‘masukkan nilai c : ‘); readln(c);
writeln(”);
textcolor(123);
D:=b*b-4*a*c;
writeln(‘nilai Diskriminan = ‘, D:3:2);
writeln(”);
if a=0 then
begin
x1:=-c/b;
writeln(‘Bukan bentuk persamaan kuadrat, tapi suatu persamaan linear’);
writeln(‘dengan nilai x = ‘, x1:3:2);
readln;
end;

if D=0 then
begin
x1:=-b/(2*a);
writeln(‘nilai x1 = x2 = ‘, x1:3:2);
writeln(‘persamaan kuadrat memiliki 2 akar kembar’);
readln;
end
else
if D>0 then
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(‘nilai x1 = ‘, x1:3:2);
writeln(‘nilai x2 = ‘, x2:3:2);
writeln(‘persamaan kuadrat memiliki 2 akar real yang berbeda’);
readln;
end
else
begin
writeln(‘persamaan kuadrat tidak memiliki akar real’);
readln;
end;
readln;
end.

About wayanbawa

just an ordinary gen..

Diskusi

2 thoughts on “akar persamaan kuadrat

  1. Ok gan numpang ngopas yah🙂

    Posted by Jual Sepatu Futsal | Maret 8, 2013, 6:31 am
  2. Reblogged this on sunyotoutomo and commented:
    program pkw;
    uses crt;
    var a,b,c,D, x1, x2 : real;
    begin
    clrscr;
    textcolor(10);
    writeln(‘ —————————————————— ‘);
    writeln(‘| AKAR-AKAR PERSAMAAN KUADRAT |’);
    writeln(‘ ——————————————————-’);
    writeln(”);
    writeln(‘ ======================’);
    writeln(‘ | ax^2 + bx + c = 0 | ‘);
    writeln(‘ ======================’);
    writeln(”);
    textcolor(23);
    write(‘masukkan nilai a : ‘); readln(a);
    write(‘masukkan nilai b : ‘); readln(b);
    write(‘masukkan nilai c : ‘); readln(c);
    writeln(”);
    textcolor(123);
    D:=b*b-4*a*c;
    writeln(‘nilai Diskriminan = ‘, D:3:2);
    writeln(”);
    if a=0 then
    begin
    x1:=-c/b;
    writeln(‘Bukan bentuk persamaan kuadrat, tapi suatu persamaan linear’);
    writeln(‘dengan nilai x = ‘, x1:3:2);
    readln;
    end;

    if D=0 then
    begin
    x1:=-b/(2*a);
    writeln(‘nilai x1 = x2 = ‘, x1:3:2);
    writeln(‘persamaan kuadrat memiliki 2 akar kembar’);
    readln;
    end
    else
    if D>0 then
    begin
    x1:=(-b+sqrt(D))/(2*a);
    x2:=(-b-sqrt(D))/(2*a);
    writeln(‘nilai x1 = ‘, x1:3:2);
    writeln(‘nilai x2 = ‘, x2:3:2);
    writeln(‘persamaan kuadrat memiliki 2 akar real yang berbeda’);
    readln;
    end
    else
    begin
    writeln(‘persamaan kuadrat tidak memiliki akar real’);
    readln;
    end;
    readln;
    end.

    Posted by sunyotoutomo | Maret 8, 2013, 6:33 am

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: