Pascal :Viết Chương Trình Giải Hệ 2 Phương Trình Bậc Nhất 2 ẩn: $\left ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

hieppnguyen
Chưa có nhóm

Trả lời
239
Điểm
1738
Cảm ơn
130

Tin Học
Lớp 11
50 điểm
hieppnguyen - 14:39:34 15/10/2021

Pascal :Viết chương trình giải hệ 2 phương trình bậc nhất 2 ẩn: $\left \{ {{ax+by=c} \atop {hx+iy=k}} \right.$ Giúp gấp với mấy bro :))

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

shamsiel
Chưa có nhóm

Trả lời
10754
Điểm
114829
Cảm ơn
5909

shamsiel

25/10/2021

program giai_hept ;uses crt;var a, h, b, i, c, k, x, y, Dx, Dy, D: real;beginclrscr;write ('a = '); readln (a);write ('b = '); readln (b);write ('c ='); readln (c);write ('h ='); readln (h);write ('i ='); readln (i);write ('k ='); readln (k);D := a*b- h*i;Dx := c*i- k*b;Dy := a*k- h*c;if D <> 0 thenbeginwriteln(' phuong trinh co nghiem :');x := Dx/D;y := Dy/D;writeln(' x=', x : 8 : 2);writeln ('y=', y : 8 : 2);endelseif (Dx = 0) and (Dy = 0) and (D = 0) Thenwriteln (' vo dinh ')elsewriteln ('vo nghiem ');readln;end.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn 2
Báo vi phạm

Đăng nhập để hỏi chi tiết avatar

newborn
Accueil des développeurs 3

Trả lời
4327
Điểm
2541
Cảm ơn
1958

newborn

04/08/2023

var a1,b1,c1,a2,b2,c2,d,dx,dy: integer;begin readln(a1,b1,c1,a2,b2,c2); d:=a1*b2-a2*b1; dx:=c1*b2-c2*b1; dy:=a1*c2-a2*c1; if (d=0) then begin if (dx+dy=0) then write('Hpt vo so nghiem') else write('Hpt vo nghiem') end else begin writeln('x = ',dx/d:0:2); writeln('y = ',dy/d:0:2); end;end.

Hãy giúp mọi người biết câu trả lời này thế nào?