Tugas Ke-7, Matkul Komputer

Assalamu’alaikum . . .

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

Hay,  bertemu lagi dengan Riska. Seperti biasa, ini adalah tugas mata kuliah Komputer dan kali ini Riska akan memaparkan bagaimana cara menghitung nilai variabel X dan Y dengan matrik atau determinan menggunakan TPW (Turbo Pascal).

1.   Sebelum Riska memaparkan tentang programnya berikut Riska akan memberikan flowcartnya kepada Anda

2.     Sekarang Riska akan membuat programnya supaya dapat dibaca oleh komputer dari baris teratas hingga baris terakhir. Programnya sebagai berikut :

uses wincrt;

var

a,b,c,p,q,r,n,x,y:real;

begin

writeln('      Menghitung Nilai Variabel X dan Y dengan Matrik atau Determinan');

writeln('                                  Tugas Ke-7');

writeln('                             Riska Ayu Agustina');

writeln('                            145500168 / 2014 - D');

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.

3.     Masukkan kode-kode diatas ke TPW. Untuk mengetahui hasilnya, coba Anda pilih Run atau tekan (ctrl+f9).

4.     Setelah Anda tekan enter, hasilnya akan muncul seperti berikut :

Misal, Anda ingin menuliskan persamaan pertama dengan angka-angka berikut,

Berapa Nilai Koefisien a =      { isikan 3 }

Berapa Nilai Koefisien b =      { isikan -2 }

Berapa Nilai Koefisien c =      { isikan 6 }, maka hasilnya :

     Misal, Anda ingin menuliskan persamaan kedua dengan angka-angka berikut,

Berapa Nilai Koefisien a =      { isikan 2 }

Berapa Nilai Koefisien b =      { isikan 5 }

Berapa Nilai Koefisien c =      { isikan 23 }, maka hasilnya :

5.     Setelah langkah diatas telah Anda laksanakan, Anda hanya perlu menekan enter untuk mengetahui hasil akhirnya yaitu mengetahui nilai dari variabel X dan Y, dan hasilnya adalah

Finish !

Yeah . . .

Udah dulu ya, ilmu yang bisa Riska bagikan. Semoga bermanfaat buat Anda semuanya. Amin . . . Makasih banyak yaa .

Wassalamu’alaikum