Dùng turbo pascal

[pungemini]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết một chương trình dùng giải phương trình dạng ax+b=0 với a, b là các số nhập từ bàn phìm

 

[khai221050]

Chương trình dạg này nhiều rồi

program giai_phuong_trinh_by_bkpro; 
uses crt; 
var a,b: integer;
begin 
clrscr; 
writeln('Chuong Trinh Giai PT bac 1: ax+b=0'); 
writeln('Nhap a va b'); readln(a,b); 
If (a=0) and (b<>o) then writeln('Phuong trinh vo nghiem'); 
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem'); 
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a); 
readln; 
end.