Giải phương trình bậc nhất hai ẩn bằng pascal
Lập trình giải hệ phương trình bậc nhất hai ẩn bằng pascal: aX + bY =c và a1X + b1Y = c1
Program HPT_BAC_NHAT_2_AN;
uses crt;
var a,b,c: real;
d,e,f: real;
x,y: real;
traloi: c-har;
begin
repeat
clrscr;
writeln('Giai he phuong trinh bac nhat 2 an');
writeln('------------------------------------------------');
write('nhap he so a= ');readln(a);
write('nhap he so b= ');readln(b);
write('nhap he so c= ');readln(c);
write('nhap he so a1= ');readln(d);
write('nhap he so b1= ');readln(e);
write('nhap he so c1= ');readln(f);
readln;
if ((a*e)-(d*b))<>0 then
begin
x:= ((c*e)-(f*b))/((a*e)-(d*b));
y:= ((a*f)-(d*c))/((a*e)-(d*b));
writeln('vay phuong trinh co mot nghiem x=',x,' va y=',y);
end;
if ((a*e)-(d*b))=0 then
begin
if (((c*e)-(f*b))<>0) or (((a*f)-(d*c))<>0) then
writeln('he phuong trinh vo nghiem HI!HI!...HI!');
if (((c*e)-(f*b))= 0) and (((a*f)-(d*c))=0) then
writeln('he co vo so nghiem x thuoc R va y=(c-ax)/b nghiem cua he la nghiem cua ax+by=c');
end;
writeln('ban co muon tiep tuc thuc hien nua khong (Y/N)?');readln(traloi);
until (traloi='N') or(traloi='n');
writeln('nhan ENTER de ket thuc chuong trinh');
readln
end.
Sách giải st
Ý kiến bạn đọc
Theo dòng sự kiện
Những tin mới hơn
Những tin cũ hơn
BÀI XEM NHIỀU
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 3: Giới thiệu chung về tế bào.
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 1: Giới thiệu khái quát chương trình môn Sinh học
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 2: Các cấp độ tổ chức của thế giới sống
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 6: Trao đổi chất và chuyển hoá năng lượng ở tế bào
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 4: Thành phần hoá học của tế bào
-
Câu hỏi Sinh học 10 Cánh diều, Chủ đề 5: Cấu trúc của tế bào