Algoritma Menghitung Persamaan Kuadrat

Berikut adalah Algoritma Perhitungan persamaan kuadrat:

program Menghitung_akar_persamaan_kuadrat;

uses crt;

var A,B,C: integer;

x1,x2,D:real;

begin

clrscr;

writeln;

writeln(' PROGRAM KOMPUTER');

writeln(' Nama : Lia Amaliyah');

writeln(' NIM : 070821');

writeln(' Kelas : 4A');

readln; writeln;

writeln(' MENGHITUNG AKAR PERSAMAAN KUADRAT ');

writeln(' %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%');

writeln;

write(' > koefisien A: ');

read(A);

write(' > koefisien B: ');

read(B);

write(' > koefisien C: ');

read(C);Writeln;

write(' maka persamaan kuadratnya adl sebagai berikut:');

readln; writeln;

writeln;

writeln( A,'x*x + ',B,'x + ',C,' = 0');

writeln;readln;

if A=0 then

begin

writeln;

writeln(' bukan persamaan kuadrat');

readln;writeln;

end

else

begin

D:=(B*B)-(4*A*C);

writeln(' Diskriminannya adalah ',d:2:2);readln;

writeln;writeln;

if D>0 then

begin

writeln(' Memiliki akar-akar real yang berbeda');

writeln;

x1:=(-B+sqrt(D))/(2*A);

x2:=(-B-sqrt(D))/(2*A);

writeln(' akar-akarya adalah : ',x1:2:2,' dan ',x2:2:2);

end

else

if D=0 then

begin

writeln(' Memiliki akar yang sama(akar kembar), real dan rasional');

writeln;

x1:=-b/(2*A);

x2:=-b/(2*A);

writeln(' akar-akarya : ',x1:2:2);

end

else

writeln(' Tidak Memiliki akar real atau kedua akarnya tidak real (imajiner)');

end;

readln;

end.

(Hasil akhirnya adalah sebagai berikut!)

Algoritma Menghitung nilai mahasiswa

Berikut adalah algoritma cara menghitung nilai mahasiswa akhir semester:

program Menghitung_Nilai_Akhir_Mahasiswa;

uses crt;

var nama,mata_kuliah: string;

tugas,UTS,UAS,nilai: integer;

Nilai_Akhir: real;

begin

clrscr;

writeln;

writeln(' PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA ');

writeln('^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^');

writeln;

writeln(' Masukkan Identitas Diri!');

write(' Nama : ');

readln(nama);

write(' NIM : ');

readln;

write(' Kelas : ');

readln;

write(' Mata Kuliah : ');

readln(mata_kuliah);

write(' Alamat : ');

readln;

writeln;writeln;

write(' > Masukkan Nilai Tugas : ');

readln(tugas);

write(' > Masukkan Nilai UTS : ');

readln(UTS);

write(' > Masukkan Nilai UAS : ');

readln(UAS);

writeln;

Nilai:=25*tugas+25*uts+50*uas;

write(' Jumlah Nilai anda adalah : ',nilai);

writeln;

nilai_akhir:=nilai/100;

write(' NILAI AKHIR ANDA = ',nilai_akhir:0:2);

writeln;

writeln;

case nilai of

0..2500 : writeln(' Astaghfirullah ',NAMA,'. NILAI ANDA adalah E ');

2600..3900 : writeln(' MAAF ',NAMA,'. NILAI ANDA = D . ');

4000..6500 : writeln(' ',NAMA,'. NILAI ANDA = C ');

6600..7900 : writeln('',NAMA,'. NILAI ANDA = B ');

8000..10000: writeln('ALHAMDULILLAH ',nama,'. NILAI ANDA Adalah A.Pertahankan Prestasimu!!!');

else

writeln('Nilai anda tidak ditemukan');

end;

readln;

end.

(Hasilnya adalah sebagai berikut!)

Algorima Menghitung SPLTV

Berikut ini Algoritma Sistem Persamaan Linier Tiga Variabel (SPLTV):

program Menghitung_SPLTV;

uses crt;

var A,B,C,D,E,F,G,H,P,Q,R,S:integer;

x,y,z,N,K,L,M:real;

begin

clrscr;

writeln(' PROGRAM KOMPUTER');

writeln(' Nama : Lia Amaliyah');

writeln(' NIM : 070821');

writeln(' Kelas : 4A');

readln;

writeln;

writeln;

writeln(' MENGHITUNG SPLTV (Sistem Persamaan Linear Tiga Variabel) ');

writeln(' ------------------------------------------------------- ');

readln;

writeln;

write('Masukkan nilai x pada persamaan pertama: ');

read(A);

write('Masukkan nilai y pada persamaan pertama: ');

read(B);

write('Masukkan nilai z pada persamaan pertama: ');

read(C);

write('Masukkan konstanta hasil pada persamaan pertama: ');

read(D);writeln;

write('Masukkan nilai x pada persamaan kedua: ');

read(E);

write('Masukkan nilai y pada persamaan kedua: ');

read(F);

write('Masukkan nilai z pada persamaan kedua: ');

read(G);

write('Masukkan konstanta hasil pada persamaan kedua: ');

read(H);writeln;

write('Masukkan nilai x pada persamaan ketiga: ');

read(P);

write('Masukkan nilai y pada persamaan ketiga: ');

read(Q);

write('Masukkan nilai z pada persamaan ketiga: ');

read(R);

write('Masukkan konstanta hasil pada persamaan ketiga: ');

read(S);writeln;

writeln;

writeln('maka persamaannya adalah sebagai berikut:');

readln;writeln;

writeln(' persamaan pertama : ',A,'x + ' ,B,'y + ' ,C,'z =',D);

writeln(' persamaan kedua : ',E,'x + ' ,F,'y + ' ,G,'z =',H);

writeln(' persamaan ketiga : ',P,'x + ' ,Q,'y + ' ,R,'z =',S);

writeln;

N:=(A*F*R)+(B*G*P)+(C*E*Q)-(P*F*C)-(Q*G*A)-(R*E*B);

K:=(D*F*R)+(B*G*P)+(C*H*Q)-(D*F*C)-(Q*G*D)-(R*H*B);

L:=(A*H*R)+(D*G*P)+(C*E*S)-(P*H*C)-(S*G*A)-(R*E*D);

M:=(A*F*S)+(B*H*P)+(D*E*Q)-(P*F*D)-(Q*H*A)-(S*E*B);

write('Akan diperoleh:');readln;

write('Determinannya = ',N:2:2);

readln;

write('Determinan x adalah = ',K:2:2);

readln;

write('Determinan y adalah = ',L:2:2);

readln;

write('Determinan z adalah = ',M:2:2);

readln;

writeln;writeln;

if N=0 then

writeln('Jadi, PERSAMAAN INI TIDAK MEMILIKI PENYELESAIAN')

else

begin

x:=K/N;

y:=L/N;

z:=M/N;

writeln('MAKA....');

writeln('NILAI x = ',x:2:2);

writeln('NILAI y = ',y:2:2);

writeln('NILAI z = ',z:2:2);

end;

writeln;

writeln;

writeln('*****************************FINISH******************');

readln;

end.

(hasilnya akan didapat berikut ini!)

Algortima menghitung Luas dan Keliling Lingkaran

Berikut adalah contoh dari algoritma untuk menghitung Luas dan Keliling lingkaran:

program menghitung_luas_dan_keliling_lingkaran;

uses crt;

const pi=3.14;

var r,L,k: real;

begin

ClrScr;

writeln;

writeln(' PROGRAM_KOMPUTER ');

Writeln(' Nama : Lia Amaliyah');

writeln(' NIM : 070821');

writeln(' Kelas : 4A');

readln; writeln;

writeln(' MENGHITUNG LUAS DAN KELILING LINGKARAN');

Writeln(' **************************************');

writeln;

write(' masukkan nilai r = ');

readln(r);

writeln;

L:=pi*r*r;

k:=2*pi*r;

writeln(' maka Luas lingkarannya adalah ', L:2:0);

writeln;readln;

writeln(' dan Keliling lingkarannya adalah ', k:2:0);

writeln;readln;

writeln(' ********* FINISH ********');

readln;

end.

(Hasilnya akan di dapat sebagai berikut ini)

Menghitung sepuluh bilangan ganjil yang pertama

input =n, n bilangan real, output = bilangan ganjil,
b=Un - Un-1
Proses : S10= 5 (2n+9b)
Algoritmanya:
Secara Struktur bahasa:
1. Tetapkan nilai n
2. Tetapkan nilai b
3. Hitung jumlah S10
4. Tulis bilangan ganjil

SPLTV

Ax + By + Cz = D ………… (i)

Ex + Fy + Gz = H …………(ii)

Px + Qy + Rz = S ………… (iii)

Eliminasi persamaan (i) dan (ii)

Ax + By + Cz = D xG AGx + BGy + CGz = DG

Ex + Fy + Gz = H xC ECx + FCy + GCz = HC -

(AG – EC)x + (BG – FC)y = DG – HC ............ (4)

Eliminasi persamaan (i) dan (iii)

Ax + By + Cz = D xR ARx + BRy + CRz = DR

Px + Qy + Rz = S xC PCx + QCy + RCz = SC -

(AR – PC)x + (BR – QC)y = DR – SC ............... (v)

Eliminasi persamaan (4) dan (5)

(AG – EC)x + (BG – FC)y = DG – HC x(BR-QC)

(AR – PC)x + (BR – QC)y = DR – SC x(BG-FC)

(AG – EC)(BR-QC)x + (BG – FC)(BR-QC)y = (DG – HC)(BR-QC)

(AR – PC)(BG-FC)x + (BR – QC)(BG-FC)y = (DR – SC)(BG-FC) -

[(AG – EC)(BR-QC) – (AR – PC)(BG-FC)]x = (DG – HC)(BR-QC)

x = (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC)]

Masukkan nilai x ke persamaan (iv) atau (v)

misalnya ke persamaan (iv)

(AG – EC)x + (BG – FC)y = DG – HC

(AG – EC) (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC) + (BG – FC)y = DG-HC

y = (DG – HC)/ (BG – FC) - (AG – EC) (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG- FC) ] (BG – FC)

Masukkan nilai x dan y ke salah satu persamaan awal, persamaan (i), (ii),atau (iii)

misalnya ke persamaan (i)

Ax + By + Cz = D

A (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC)] + B (DG – HC)/ (BG – FC) - (AG – EC) (DG – HC)(BR-QC) / [(AG - EC) (BR-QC) – (AR – PC)(BG-FC) ] (BG – FC) + Cz = D

z = D/C - [A (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC)] + B ((DG – HC) / (BG – FC)) - (AG – EC) (DG – HC)(BR-QC) / [(AG - EC) (BR-QC) – (AR – PC)(BG-FC) ] (BG – FC)] /C

Jadi,

x = (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC)]

y = (DG – HC)/ (BG – FC) - (AG – EC) (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC) ] (BG – FC)

z = D/C - [A (DG – HC)(BR-QC) / [(AG – EC)(BR-QC) – (AR – PC)(BG-FC)] + B ((DG – HC) / (BG – FC)) - (AG – EC) (DG – HC)(BR-QC) / [(AG - EC) (BR-QC) – (AR – PC)(BG-FC) ] (BG – FC)] /C

Menghitung volume balok

Misal : input p, l, t

output = V,

Proses : V= p x l x t

Algoritmanya:

Secara Struktur bahasa:

1. Baca nilai p, l dan t

2. Hitung volume

3. Tulis hasil Volume

Menghitung keliling dan luas lingkaran jika r diketahui

Misal : input =R, output = L dan K,
Proses : L = pi* r2
dan K = 2 * pi * r
Algoritmanya:
Secara Struktur bahasa:
1. Tetapkan nilai pi = 3.14
2. Bacalah nilai R (jari-jari)
3. Hitung luas(L)
4. Hitung keliling(K)
5. Tulis L dan K

Menghitung FPB

Langkah-langkah yang digunakan adalah:

a. Diberikan dua buah bilangan bulat positif misalnya m dan n dengan m>n.

b. Bagilah m dengan n, misalnya hasilnya adalah r.

c. Apabila r = 0 ,maka stop dan hasilnya adalah bahwa r itu sendiri merupakan FPB dari m dan n.

d. Jika r maka lanjutkan ke langkah selanjutnya yaitu ganti m dengan n dan n dengan r,