TUGAS 7 KOMPUTER, MENENTUKAN VARIABEL X DAN Y

TUGAS 7 KOMPUTER, MENENTUKAN VARIABEL X DAN Y

MENENTUKAN NILAI VARIABEL X DAN Y

                Berkaitan dengan tugas komputer, saya akan memberikan tutorial tentang cara membuat program untuk menentukan nilai variable X dan Y  dengan mengunakan bahasa pemrograman turbo pascal sehingga kita tidak perlu repot-repot lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya. Disini saya menggunakan rumus determinan matriks.

Langkah-langkahnya sebagai berikut:

1. Buka turbo pascal atau tpw, masi binngung antara pascal dengan TPW?

santai , sebenarnya keduanya merupakan software yang sama, bedanya TPW adalah turbo pascal yang di gunakan untuk komputer yang memiliki sistim operasi windows.

2. Masukkan kode-kode di bawah ini.

uses wincrt;

var

x,y,Dx,Dy:real;

a11,a12,k1,a21,a22,k2:integer;

lagi:char;

begin

Writeln(' Menghitung Nilai variabel x dan y dengan Matriks dan Determinan');

writeln('                   Tugas Kelompok 9 : ');

writeln('     SHILVIA PUTRI M.P,DWI MARDIANA, WINDA PARAMITA');

lagi:='y';

repeat

writeln('Persamaan pertama ax+by=c');

write('berapa nilai a:');

readln (a11);

write('berapa nilai b:');

readln(a12);

write ('berapa nilai c:');

readln (k1);

writeln('Persamaan kedua ax+by=c');

write('berapa nilai a:');

readln (a21);

write('berapa nilai b:');

readln(a22);

write ('berapa nilai c:');

readln (k2);

writeln('maka kedua persamaan:');

writeln(a11,'x + ',a12,'y = ',k1);

writeln(a21,'x + ',a22,'y = ',k2);

Dx:=((a22*k1)+(-a12*k2)) div ((a11*a22)-(a12*a21));

Dy:=((-a21*a22)+(a11*k2)) div ((a11*a22)-(a12*a21));

writeln('nilai x:',Dx:2:2);

write('nilai y:',Dy:2:2);

writeln;

write ('apa anda ingin mengulang?(y/t)');

readln(lagi);

clrscr;

until lagi='t';

donewincrt;

end.

                Demikian program untuk menentukan variable X dan Y dengan menggunakan rumus determinan matriks di dalam turbo pascal. Kurang lebihnya kami dari kelompok 9 mohon maaf. Terimakasih dan selamat mencoba J.

Nama Kelompok 9:

1. Shilvia Putri Muslina Pradana             145500059
2. Winda Paramita                                       145500072

3. Dwi Mardiana                                           14550006