Program Menghitung persamaan kuadrat

program akar_persamaan_kuadrat;
uses wincrt;
var a,b,c:integer;
d, x1, x2, :real;
begin

clrscr;
write(‘masukkan koefisien persamaan kuadrat :’); readln (a,b,c);
writeln(‘persamaan kuadrat :’,a,’x^2+’,b,’x+’,c);
if a=0 then write (‘ini bukan persamaan kuadrat’);
else
begin
d:=(b*b)-4*a*c;
if d>0 then
begin
writeln(‘persamaan kuadrat ini memiliki akar yang berbeda”);
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
writeln(‘akar-akarnya:’,x1:3:2,’ dan ‘,x2:3:2);
end
else if d=0 then
begin
writeln(‘punya akar kembar’);
x1:= -b/(2*a);
writeln (‘akar-akarnya:’ x1:3:2)’
end
else
writeln (‘persamaan kuadrat anda berakar kompleks’);
end;
end.

program menghitung rata-rata, nilai maksimum, nilai minimum

program menghitung_nilai;

uses wincrt;

var x,y,z, jml,maks,min:integer;

mean : real;

begin



writeln(‘===================================’);

writeln(‘= menghitung jumlah rata-rata =’);

writeln(‘= dan nilai maks, min =’);

writeln(‘= dari 3 data =’);

writeln(‘===================================’);

write(‘masukkan data pertama:’); readln(x);

write(‘masukkan data kedua :’); readln(y);

write(‘masukkan data ketiga :’); readln (z);

jml:=x+y+z;

mean:=jml/3;

if x>y then

begin

if ((x>z) and (y>z)) then

begin

maks:=x;

min:=z;

end

else if ((x<z) and (y<z)) then

begin

maks:=z;

min:=y;

end

else

begin

maks:=x;

min:=y;

end

end

else

begin

if ((x>z) and (y>z)) then

begin

maks:=y;

min:=z;

end

else is ((x<z) and (y<z)) then

begin

maks:=z;

min:=x;

end

else

begin

maks:=y;

min:=x;

end

end;

writeln(‘jumlah data =’,jml);

writeln(‘rata-rata =’,mean:1:2);

writeln(‘nilai maksimum =’,maks);

writeln(‘nilai minimum =’,min);

readln;

end.

menghitung persamaan kuadrat

ciri-ciri persamaan kuadrat biasanya bertipe
ax2+bx2+c=0
Masalahnya, jika a=0. Jika a=0 berarti bukan persamaan kuadrat. Maka harus dicek dulu.
Kemudian cek nilai diskriminan D= b^2-4ac . Cek D>0 atau D=0 atau D<0 .
D>0 punya dua akar real yang berbeda
D=0 akar kembar
D<0 akar kompleks

algoritma:
1. baca a,b,c
2. jika a=0 proses selesai. Jika tidak, lanjut
3. D=b2-4ac
4. ~ jika D>0 maka ax2+bx2+c=0
memiliki akar real yang berbeda
~jika D=0 maka punya akar kembar yaitu x=-b/2a
~ jika D<0 maka punya akar kompleks
x+=(-b/2a+i(akar 4ac-b2/2a))
x-=(-b/2a-i(akar 4ac-b2/2a))

5. tulis X1 dan X2

algoritma menghitung nilai rata-rata, nilai terbesar, nilai terkecil dari 3

asumsikan bahwa input yang diambil (3 bilangan bulat), adalah x,y,z. Tipe data yang

kita gunakan adalah integer. Dari variabel x, y, z, kita bisa menghitung rata-rata dengan

algoritma

a) baca nilai x, y, z

b) jumlahkan x, y, z (untuk mendapatkan jumlah 3 bilangan tersebut)

c) bagilah jumlah tersebut dengan 3

d) tulis jumlah dan rata-rata



Untuk menghasilkan nilai maksimum dan minimum, kita perlu menuliskan program

kembali.

a) bandingkan nilai x dan y

jika x>y

bandingkan dengan nilai z. Selidiki apakah x>zdan y>z ? jika ya, berarti nilai

maksimum adalah x dan nilai minimum adalah z. Jika tidak, bandingkan apakah x<z

dan y<z? Jika ya, berarti nilai maksimum z dan minimum y. Jika tak terpenuhi maka

maksimum adalah x dan minimum adalah y

jika x<y

bandingkan dengan z. Apakah x>z dan y>z? Jika ya, berarti nilai maksimum adalah

y dan nilai minimum adalah z.jika tidak, bandingkan apakah x<z dan b<z ? jika ya,

berarti nilai maks adalah z dan nilai min adalah x. Jika tidak memenuhi, berarti

maksimum y dan minimum x.