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