tugas 7 komputer

MENENTUKAN NILAI VARIABEL X DAN Y

  Berkaitan dengan tugas komputer, kami akan memberikan cara membuat program untuk menentukan nilai variable X dan Y  dengan mengunakan bahasa pemrograman Turbo Pascal sehingga kita tidak perlu susah payah lagi menghitung secara manual, cukup dengan memasukkan data dan tunggu hasilnya. Disini saya menggunakan rumus determinan matriks.

Langkah-langkahnya sebagai berikut:

 
BukaTturbo Pascal atau TPW, masih bingung antara pascal dengan TPW?

santai , sebenarnya keduanya merupakan software yang sama, bedanya TPW 1.5 adalah turbo pascal yang di gunakan untuk komputer yang memiliki Sistem Operasi Windows.

2. Masukkan kode-kode di bawah ini.

 

uses wincrt;

var

x,y,Dx,Dy:real;

a,b,c,p,q,r:integer;

lagi:char;

begin

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

writeln(' Universitas PGRI Adi Buana Surabaya');

writeln('                   Tugas Kelompok 6 : ');

writeln('    Riska ayu agustina, Aida fitriyati, Yontus andra, Nur nihayatul wafiroh');

lagi:='y';

repeat

writeln('Persamaanpertamaax+by=c');

write('berapanilai a:');

readln (a);

write('berapanilai b:');

readln(b);

write ('berapanilai c:');

readln (c);

writeln('Persamaanpertamaax+by=c');

write('berapanilai a:');

readln (p);

write('berapanilai b:');

readln(q);

write ('berapanilai c:');

readln (r);

writeln('makakeduapersamaan:');

writeln(a,'x + ',b,'y = ',c);

writeln(p,'x + ',q,'y = ',r);

Dx:=((q*c)+(-b*r)) div ((a*q)-(b*p));

Dy:=((-p*c)+(a*r)) div ((a*q)-(b*p));

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

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

writeln;

write ('apaandainginmengulang?(y/t)');

readln(lg);

untillg='t'

end.