Ai giúp em bài Pascal này dzới ! (Liên quan tới tính mạng đó)

[leila14081990]

Tóm lại là em mù về Pascal, em chỉ rành về Macromedia thui
Tự nhiên trường lúc bắt học Pascal (ko có thực hành), lúc bắt học về Web, dzậy seo hiểu chứ
Có thể giúp em bài tập này ko ? Thanks

Viết chương trình Pascal giải 2 hệ phương trình bậc nhất 2 ẩn số sau :

a1*x + b1*y = m
a2*y + b2*y = n

Với a1, b1, a2, b2, m, n nhập từ bàn phím
Với nghiệm x, y được tính theo quy tắc sau :
x = (mb2 - nb1)/(a1b2 - a2b1)
y = (na1 - ma2)/(a1b2 - a2b1)

 

[Nguyen_Kain]

Tóm lại là em mù về Pascal, em chỉ rành về Macromedia thui
Tự nhiên trường lúc bắt học Pascal (ko có thực hành), lúc bắt học về Web, dzậy seo hiểu chứ
Có thể giúp em bài tập này ko ? Thanks

Viết chương trình Pascal giải 2 hệ phương trình bậc nhất 2 ẩn số sau :

a1*x + b1*y = m
a2*y + b2*y = n

Với a1, b1, a2, b2, m, n nhập từ bàn phím
Với nghiệm x, y được tính theo quy tắc sau :
x = (mb2 - nb1)/(a1b2 - a2b1)
y = (na1 - ma2)/(a1b2 - a2b1)

Bài này ko khó đâu ! Đại khái như sau :
Nhập các số a1,a2,b1,b2,m,n vào
Đặt x = (m*b2 - n*b1)/(a1*b2 - a2*b1)

Tương tự với y
Thêm 1 cái IF nữa nè : Nếu (a1*b2 - a2*b1) = 0 lúc này sẽ có 2 trường hợp :
+ nếu (m*b2 -n*b1) = 0 và (n*a1 - m*a2) = 0 -> Phương trình có VSN
+ Nếu (m*b2 -n*b1) # 0 hoặc (n*a1 - m*a2) # 0 -> Pt Vô nghiệm

Bằng lời thì như vậy , còn viết ra thì nhờ ai đó viết hộ vậy (thông cảm vì ôn C nhiều quá nên Pascal cũng quên dần dần )

 

[backstaber]

Tôi viết thử bài này coi: (sai thôi chết ráng chịu ^^)

program VD1;
uses crt;
var
x,y,a1,b1,a2,b2,m,n: float;
begin
write('Nhap vao gia tri cua a1:');readln(a1);
write('Nhap vao gia tri cua b1:');readln(b1);
write('Nhap vao gia tri cua a2:');readln(a2);
write('Nhap vao gia tri cua b2:');readln(b2);
write('Nhap vao gia tri cua m:');readln(m);
write('Nhap vao gia tri cua n:');readln(n);
if (a1b2 - a2b1) <> 0 then
begin
x:=(m*b2 - n*b1)/(a1*b2 - a2*b1);
y:=(n*a1 - m*a2)/(a1*b2 - a2*b1);
writeln('Gia tri cua bieu thuc:');
writeln('x=',x:0:3);
writeln('y=',y:0:3);
end
else
begin
if ((m*b2 -n*b1) = 0) and ((n*a1 - m*a2) = 0) then
writeln('Phuong trinh vo so nghiem');
if ((m*b2 -n*b1) <> 0) or ((n*a1 - m*a2) <> 0) then
writeln('Phuong trinh vo nghiem');
end;
readln;
end.

còn mấy phần linh tinh như làm vòng lặp để trả lời lại thì pác tự làm nhé :)

 

[red_strike]

Bài này khá dễ !
Còn nếu muốn tốt hơn thì có thể nghiên cứu các cách giải khác các trường hợp !
but như vầy thì đủ rùi !

 

[leila14081990]

Bác có thể giúp em phần vòng lặp lun ko ?
Thật ra bài này ông thầy giao cho nhóm làm nhưng nhóm em lại toàn học về Thiết kế Web, còn Pascal thì học lý thuyết (ko có thực hành) nên bọn em chẳng hiểu gì hết.
Em chỉ biết về vòng lặp For trong Macromedia thui, còn Pascal em mù. Có phải phần còn lại dùng lệnh While...do ko ?

 

[red_strike]

Bó giò lun học ở đâu mà thảm vậy ++ !
Tui cũng chịu chỉ học C not Pascal !