Cara Menghitung Nilai Variabel X dan Y dengan Matriks atau Determinan Menggunakan Bahasa Pemograman Pascal

Tugas komputer ke-7 adalah membuat program Menentukan Luas dan Jenis Segitiga, saya akan memberikan tutorial tentang cara membuat program Menghitung Nilai Variabel X dan Y dengan Matriks atau Determinan Menggunakan Bahasa Pemograman Pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya. Tentunya akan ditampilkan dahulu flowcart untuk mempermudah membuat programnya.

     KELOMPOK 5

setelah membuat flowchart, kemudian membuat programnya :


uses wincrt;
var
a,b,c,p,q,r,n,x,y:real;
begin
writeln('      Menghitung Nilai Variabel X dan Y dengan Matriks atau Determinan');
Writeln('                  Tugas Kelompok 5 :                ');
writeln('      WAHYUDI EDO , MIRA DEWI , RURI DWI   , ANGGA WISNU ');
writeln('      145500074   , 145500085 , 145500062  , 145500094');
writeln('      PRODI : PENDIDIKAN MATEMATIKA B-2014');
writeln('  -------------------------------------------------------------------------');
writeln;
writeln(' Persamaan Pertama : aX + bY = c ');
write(' Berapakah Nilai Koefisien a = ');readln(a);
write(' Berapakah Nilai Koefisien b = ');readln(b);
write(' Berapakah Nilai Koefisien c = ');readln(c);
writeln(' Persamaan Kedua : aX + bY = c ');
write(' Berapakah Nilai Koefisien a = ');readln(p);
write(' Berapakah Nilai Koefisien b = ');readln(q);
write(' Berapakah Nilai Koefisien c = ');readln(r);
writeln;
writeln(' Maka, Ke-2 Persamaan : ');
writeln( a:0:0,'X + ',b:0:0,'Y = ',c:0:0);
writeln( p:0:0,'X + ',q:0:0,'Y = ',r:0:0);
writeln;
writeln(' Jadi,');
n:= p/a;
y:= ( c*n-r)/(b*n-q);
x:= ( c-b*y)/a;
writeln(' Nilai Variabel X = ',x:0:2);
writeln(' Nilai Variabel Y = ',y:0:2);
readln;
donewincrt;

end.