DÙNG PASCAL GIẢI PHƯƠNG TRÌNH BẬC 2

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

DÙNG PASCAL GIẢI PHƯƠNG TRÌNH BẬC 2

Bài gửi by SHINICHI on Mon 04 Apr 2011, 5:22 pm

Program giaiptbac2;
uses crt;
var a,b,c,d : real;
begin
write('nhap he so a: '); readln(a);
write('nhap he so b: '); readln(b);
write('nhap he so c: '); readln(c);
d:=b*b-4*a*c
if (d<0) and (a<>0) then write('phuong trinh da cho vo nghiem');
if (d=0) and (a<>0) then write('nghiem cua phuong trinh la X1=X2=',-b/(2*a));
if (d>0) and (a<>0) then begin
write('nghiem cua phuong trinh la X1=',(-b+sqrt(d))/(2*a));
write('nghiem cua phuong trinh la X2=',(-b-sqrt(d))/(2*a));
end;
if (a=0) and (b<>0) then write('nghiem cua phuong trinh la x=',-c/b);
if (a=0) and (b=0) and (c=0) then write('phuong trinh da cho co vo so nghiem');
if (a=0) and (b=0) and (c<>0) then write('phuong trinh da cho vo nghiem');
readln
end.
Nếu có chỗ nào sai mong mọi người đóg góp ý kiến.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
"mọi thứ đều có thể trừ những thứ ko thể" lol! lol! lol!
avatar
SHINICHI
PRO TOÁN
PRO TOÁN

Nam
Tổng số bài gửi : 50
điểm điểm : 98
Birthday : 30/12/1996
Đến từ : VIỆN TOÁN HỌC VN
Job/hobbies : student

Xem lý lịch thành viên

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết