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 )
Tôi viết thử bài này coi: (sai thôi chết ráng chịu ^^) PHP: 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é :)
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 !
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 ?
