MENGHITUNG NILAI VARIABEL X dan Y dengan MATRIKS atau DETERMINAN MENGGUNAKAN BAHAS PEMOGRAMAN PASCAL

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

 

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 10 :                ');

writeln('      ANNISA ZUHROTUL M.S , APRILIANI A , EMMANUEL MAHARDIKA, FEBRY FITRIA ');

writeln('      145500111  , 145500099 , 145500091  , 145500087');

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.