tugas 7

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

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

2.     Sekarang Saya aka
n membuat programnya supaya dapat dibaca oleh komputer dari baris teratas hingga bariss terakhir. Programnya sebagai berikut :

uses wincrt;
var
x,y,det,dex,dey:real;
a,b,c,d,e,f:integer;
lagi:char;

begin
writeln('      Menghitung Nilai Variabel X dan Y dengan Matrik atau Determinan');
writeln('                                  Tugas Ke-7');
writeln('                             Avita Budi Susianingrum');
writeln('                            145500200 / 2014 - D');
writeln('  -------------------------------------------------------------------------');
writeln;
writeln('Menghitung x dan y dengan Determinan');
repeat
writeln('Persamaan Pertama ax+by=c');
write('Berapa nilai a:');
readln (a);
write('Berapa nilai b:');
readln(b);
write ('Berapa nilai c:');
readln (c);
writeln('Persamaan Kedua ax+by=c');
write('Berapa nilai a:');
readln (d);
write('Berapa nilai b:');
readln(e);
write ('Berapa nilai c:');
readln (f);
writeln('Maka kedua persamaan:');
writeln(a,'x + ',b,'y = ',c);
writeln(d,'x + ',e,'y = ',f);
dex:=((e*c)+(-b*f)) div ((a*e)-(b*d));
dey:=((-d*c)+(a*f)) div ((a*e)-(b*d));
writeln('nilai x:',dex:2:2);
writeln('nilai y:',dey:2:2);
write ('Apa anda ingin mengulang?(y/t) ');
readln (lagi);
until lagi='t'
end.

Terimakasih :)