Menghitung nilai variabel X dan Y dengan matriks atau determinan menggunakan bahasa pemograman pascal

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

Tugas ini adalah membuat program Menentukan Luas dan Jenis Segitiga, kami akan memberikan langkah - langkah bagaimana 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 berikut ini 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.