Viết chương trình tìm ra nghiệm bài toán sau: Sao: ax+b=c Biết: a, b, c là hằng số được nhập từ bàn phím. Nghiệm là x.

2 câu trả lời

program oken;

uses crt;

var a,b,c: integer;

begin

clrscr;

writeln('giai phuong trinh: a*x+b=c);

write('nhap so a: '); readln(a);

write('nhap so b: '); readln(b);

write('nhap so c: '); readln(c);

writeln('phuong trinh moi: ',a,'*x+',b,'=',c);

writeln('Vay phuong trinh tren co nghiem x=',(c-b)/a);

readln;

end.

Program timnghiem;

Uses crt;

Var a,x,b,c : real;

Begin clrscr;

Writeln('Nhap cac so a,b,c la '); readln(a,b,c);

Writeln('Ta co phuong trinh ',a,'*x+',b,' = ',c,');

Writeln('Nghiem cua phuong trinh tren la :', x = (c-b)/a);

readln

end.

Câu hỏi trong lớp Xem thêm