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