Imagine and Creative

Welcome to Blogspot. ShareIn-Share-Out

Low Definition

Welcome to Blogspot. ShareIn-Share-Out

With natural

Here's an mp3 file that was uploaded as an attachment: Juan Manuel Fangio by Yue And here's a link to an external mp3 file: Acclimate by General Fuzz Both are CC licensed. Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque sed felis. Aliquam sit amet felis. Mauris semper, velit semper laoreet dictum, ...

Games

Some block quote tests: Here's a one line quote. This part isn't quoted. Here's a much longer quote: Lorem ipsum dolor sit amet, consectetuer adipiscing elit. In dapibus. In pretium pede. Donec molestie facilisis ante. Ut a turpis ut ipsum pellentesque tincidunt. Morbi blandit sapien in mauris. Nulla lectus lorem, varius aliquet, ...

History

I'm just a lowly contributor. My posts must be approved by the editor.Mauris semper, velit semper laoreet dictum, quam diam dictum urna, nec placerat elit nisl in quam. Etiam augue pede, molestie eget, rhoncus at, convallis ut, eros. Aliquam pharetra. Nulla in tellus eget odio sagittis blandit. Maecenas at ...

Mencari akar-akar dari persamaan kuadrat

Posted by Yusuf Maulana Penayata - - 0 komentar

program cariX1_X2;
{by Yusuf Maulana P}
uses crt;
var a,b,c,d,e,x1,x2:real;

begin
clrscr;
writeln ('|Mencari akar-akar dari persamaan kuadrat|');
writeln;
write ('Masukkan nilai A = ');readln(a);
write ('Masukkan nilai B = ');readln(b);
write ('Masukkan nilai C = ');readln(c);
d:=(b*b)-(4*a*c);
writeln;writeln ('Jawab :');
writeln;writeln ('Diskriminan D = ',d:4:2);writeln;
if d>0 then
begin
e:=SQRT(d);
x1:=(-b+e)/(2*a);
x2:=(-b-e)/(2*a);
writeln ('Karena D > 0, maka akar-akarnya riil dan berbeda');
writeln;
writeln ('Dengan x1 = ',x1:4:2);writeln;
writeln (' dan x2 = ',x2:4:2);
end
else if d<0 then
begin
writeln ('Karena D<0, maka akar-akarnya imajiner');
writeln;
writeln ('Jadi, tidak memiliki akar-akar');
end
else if d=0 then
begin
e:=SQRT(d);
x1:=(-b+e)/(2*a);
x2:=(-b-e)/(2*a);
writeln ('Karena D=0, maka akar-akarnya riil dan kembar');
writeln;
writeln ('Dengan x1 = x2 = ',x1:4:2);
end;
readln;
end.
{http://uufparapara.blogspot}

Hasil Output :