May 10
Script untuk mencari akar kuadrat .
uses wincrt;
var
a,b,c: integer;
x1,x2: real;
begin
Writeln(‘——————————-’);
writeln(‘Program Menghitung Akar Kuadrat’);
writeln(‘———by: rhez-qhe—————’);
write(‘Masukkan Bilangan A = ‘);read(a);
write(‘Masukkan Bilangan B = ‘);read(b);
write(‘Masukkan Bilangan C = ‘);read(c);
x1:=(-b+(sqrt(b*b-4*a*c)))/2*a;
x2:=(-b-(sqrt(b*b-4*a*c)))/2*a;
writeln(‘Hasil X1= ‘,x1:8:2);
writeln(‘Hasil X2= ‘,x2:8:2);
write(‘——-mision completed———’);
end.
- Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.
Enjoy this Post!
