Giải và biện luận hệ phương trình tuyến tính
{ax+by=m
cx+dy=n
Với các hệ số a,b,c,d,m,n là các số nguyên được nhập từ bàn phím.
Nhớ giải luôn . Giải theo cánh lớp 9 đó nha.Mình mới học lớp 9 thôi
Giải và biện luận hệ phương trình tuyến tính
{ax+by=m
cx+dy=n
Với các hệ số a,b,c,d,m,n là các số nguyên được nhập từ bàn phím.
Nhớ giải luôn . Giải theo cánh lớp 9 đó nha.Mình mới học lớp 9 thôi
Vậy là bạn cũng đang hcoj bồi dưỡng à. Tui cũng vậy, có gì giúp đỡ hén, mà bạn ở đâu vậy, tui ở trên quận 12.
Nó bắt nhập cả x và y thế hai cái x,y có cần nhập từ bàn phìm không. Cái này bạn dùng mấy cái dòng readln thôi mà.
Các bạn định thi vào chuyên tin à?
Theo tui thì :
y:=(n-c*m)/(a*d-b);
x:=(m-b*y)/a;
Các bạn hãy viết chương trình và biện luận dề như trên . MÌnh cũng chả biết nữa các bạn có ai biết thì giải ngay luôn cho mình .Nếu mình ko hiểu chỗ nào mình sẽ hỏi lại các bạn
Thử chương trình này coi nó chạy được ko nha.
Mình viết chứ chưa text. Pascal bị hư rồi.
var a,b,c,d,n,m:integer;
x,y:real;
begin write('nhap a,b,c,d,m,n'); readln(a,b,c,d,m,n);
if (a*d-b)=0 then writeln('pt vo nghiem')
else begin y:=(n-c*m)/(a*d-b);
x:=(m-b*y)/a;
end;
writeln('x= 'x:10:2);
writeln('y= 'y:10:2);
readln;
end.
Được sửa bởi doremon_No1 lúc 08:52 ngày 04-11-2007
cô mình giảng thế này này
DD=ad-cb
DX-md-nb
DY-an-cm
x=DX/DY
y=DY/DD
If DD=0 then
If(DX=o)and(DY=o)then write('VSN');
Else
Else
Nhưng mà mình chả hiểu gì cả
giải giúp mình đi các bạn ơi
Chương trình của mình thiếu trường hợp vô nghiệm.
Xin lỗi nha.
Mình mới sửa xong rồi.
Thử xem đc chưa. Có thể phải chỉnh tí xíu.
Bookmarks