Bismillahirrahmanirrahim.
Assalamualaikum..
jumpa lagi nih di tugas selanjutnya. kali ini akan dijelaskan tentang membuat flowcart dan program input_output pascal untuk menentukan nilai x dan y dari dua persamaan linear 2 variabel. tentunya akan ditampilkan dahulu flowcart untuk mempermudah membuat programnya.
 |
| Klik gambar untuk lebih jelas. |
setelah itu kita dapat membuat programnya, seperti di bawah ini:
uses wincrt;
var
x,y,nx,ny,p:real;
a,b,c,d,e,f:integer;
begin
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);
p:=((a*e)-(b*d));
nx:=(((e*c)+(-b*f)) div (p));
ny:=((-d*c)+(a*f)) div ((a*e)-(b*d));
writeln('nilai x:',nx:2:2);
writeln('nilai y:',ny:2:2);
end.
setelah di-Run atau tekan ctrl+F9 kita dapat menjalankan program untuk mencari nilai x dan y dari dua persamaan linear dua variabel.
silakan mencoba. ^_^
wassalammualaikum.
SEMOGA BERMANFAAT. :D
