viết phương trình để giải bài toán ax+b=0 Hiển thị họ tên,lớp,và nghiệm x
1 câu trả lời
Program baitap;
Uses crt;
Var a,b:real;
Begin
Clrscr;
Write('a='); Readln(a);
Write('b='); Readln(b);
Writeln('Tên:XXXXXXXXXXXX');
Writeln('Lop:YYY');
If a=0 then
If b=0 then writeln('Phuong trinh co vo so nghiem')
Else writeln(' Phuong tring vo nghiem')
Else writeln('Nghiem cua phuong trinh la x=',-b/a:9:2);
Readln
End.
[Chỗ XXX bạn thay tên và chỗ YYY bạn thay lớp của bạn vào nhé!!]
Câu hỏi trong lớp
Xem thêm
