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!)