Pemrograman Bahasa Pascal bag1.

Mencari Akar Persamaan Kuadrat Dengan Pascal

Pada artikel kali ini, pak menteri akan memberi sedikit(cuma sedikit) conto penggunaan bahasa pemrograman pascal untuk menghitung akar persamaan kuadrat. sebagai tambahan info, pak menteri menggunakan Turbo pascal for DOS versi 7.0, namun Anda juga bisa menggunakan free pascal sebagai alternatif. Berikut langkah langkahnya....

1. Jalankan Turbo pascal for DOS atau free pascal...



2. Selanjutnya ketikkan listing program berikut

uses crt;
var a,b,c,d,x1,x2:real;
ulang:char;

begin
repeat
clrscr;
writeln;
writeln('MENGHITUNG AKAR PERSAMAAN KUADRAT');
writeln;
writeln;
writeln('Bentuk akar persamaan kuadrat adalah = Ax^2+Bx+C=0');
writeln;
write('Masukkan nilai a =');readln(a);
write('Masukkan nilai b =');readln(b);
write('Masukkan nilai c =');readln(c);
writeln;
writeln;
d:=(b*b)-(4*a*c);
writeln('Diskriminan D = ',d:0:2);
writeln;
if d=0 then
begin
x1:=-b/(2*a);
x2:=x1;
writeln('Akar real');
writeln;
writeln('x1=x2 =',x1:0:1);
end
else
if d>0 then
begin
x1:=(-b)+(sqrt(d)/(2*a));
x2:=(-b)-(sqrt(d)/(2*a));
writeln('Akar real');
writeln;
writeln('x1 = ',x1:0:1);
writeln('x2 = ',x2:0:1);
end
else
if d<0>
begin
x1:=(-b/2*a)+(sqrt(-d)/(2*a));
x2:=(-b/2*a)-(sqrt(-d)/(2*a));
writeln('Akar imajiner');
writeln;
writeln('x1 = ',x1:0:1,'(i)');
writeln('x2 = ',x2:0:1,'(i)');
end;
writeln;
writeln;
writeln('Tekan sembarang tombol untuk mengulang atau X untuk keluar!');
ulang:=readkey;
until upcase(ulang)='X';
end.

Pada program di atas, output program akan menghasilkan 3 keadaan. yaitu apabila d=0 maka x1=x2=bilangan real, jika d>0 maka x1,x2 = bil. real dengan rumus seperti pada flow chart di bawah, jika d<0 x2 =" bil.">Untuk lebih memahami alur kerja dari program di atas, anda bisa perhatikan flow chart di bawah ini.



3. Setelah selesai membuat programn seperti listing program di atas, jalankan dengan menekan ctrl+F9 (RUN), sehingga hasilnya seperti berikut ini.

Sekian Surat dari pak menteri, mohon maaf apabila program tersebut kemungkinan masih terdapat beberapa bug. Untuk itu pak menteri menanti Kritik dan saran dari penduduk blogger yang tercinta.

Cukup sekian sampai jumpa di edisi berikutnya, tetap bersama Pak Menteri.

Happy Blogging