Đọc bản đầy đủ ở đây: https://thuvienvatly.com/forums/index.php?topic=11566 : Lập thuật toán Pascal giải phương trình bậc hai. : Alexman113 09:24:15 PM Ngày 23 August, 2012 Các bạn, anh chị giúp em viết chương trình giải phương trình bậc hai trong Pascal với, em xin cảm ơn.
: Trả lời: Lập thuật toán Pascal giải phương trình bậc hai. : Hà Văn Thạnh 12:05:53 AM Ngày 24 August, 2012 Các bạn, anh chị giúp em viết chương trình giải phương trình bậc hai trong Pascal với, em xin cảm ơn. lâu quá không lập trình quên cấu trúc pascal rời nhưng giải thuật như saukhai báo biến a,b,c,delta nhập a,b,c if a=0 then xuất ra ("khong la PT bac 2") else Delta = b^2-4*a*c if (Delta<0) then xuất "PTVN" else if (Delta=0) then xuat ("PT co nghiem kep",x1=x2=-b/2a) else xuat ("PT co 2 2nghiem",x1=-b+can(Delta)/2a,x2=-b-can(Delta)/2a) end if end if end if : Trả lời: Lập thuật toán Pascal giải phương trình bậc hai. : tinhoc 12:15:00 PM Ngày 24 August, 2012 trước hết xin cảm ơn thầy Hà Văn Thạnh.
@Alexman113: thầy Hà văn Thạnh đã có bài gợi ý chính xác rồi đấy. e dựa trên gợi ý đó để viết 1 bài hoàn chỉnh nhé. nếu gặp rắc rối trong việc chạy chương trình thì e hãy gửi lên bài code để mọi ng giúp e sửa lỗi ( nếu có) trong quá trình làm nhé. E cũng không cần thắc mắc tại sao không có bài giải rõ rảng đâu. Vì ở những topic tương tự ntn cũng đã nói rõ về việc này rồi. Chỉ gợi ý tạo hướng đi và sửa lỗi chứ ko giải hoàn toàn. Thanks!!! ^-^ : Trả lời: Lập thuật toán Pascal giải phương trình bậc hai. : Mclaren-Bi 03:35:56 PM Ngày 24 August, 2012 Bạn Alexman có thể tham khảo tại đây
PROGRAM Giai_phuong_trinh_bac_hai; USES Crt; VAR a,b,c,delta:real; BEGIN Clrscr; Writeln('Nhap 3 he so a, b, c cua PT :' ); Readln(a,b,c); If a=0 then If b=0 then If c=0 then write('PT co vo so nghiem.' ) Else Write('PT vo nghiem.' ) Else Write('PT co nghiem la: x=',-c/b ) Else begin delta:=b*b-4*a*c; If delta<0 then write('PT vo nghiem.' ) Else If delta=0 then Write('PT co nghiem kep: x1=x2=',-b/(2*a)) Else Write('PT co 2 nghiem pb: x1=',(-b-sqrt(delta))/(2*a),' ; x2=', (-b+sqrt(delta))/(2*a) ); end; Readln; END. : Trả lời: Lập thuật toán Pascal giải phương trình bậc hai. : phongproacma 10:30:51 PM Ngày 22 September, 2012 Bạn Alexman mình nghĩ bạn viết sai rồi, theo mình biết thì kiểu số thực Real là khoản: 2,9*10^-39 tới 3,4*10^38VAR a,b,c,delta:real; [/color] vậy nhở đâu nhập vào các hệ số là số âm thì sao. bạn xem lại nha : Trả lời: Lập thuật toán Pascal giải phương trình bậc hai. : Mclaren-Bi 10:42:19 AM Ngày 23 September, 2012 Bạn Alexman mình nghĩ bạn viết sai rồi, theo mình biết thì kiểu số thực Real là khoản: 2,9*10^-39 tới 3,4*10^38VAR a,b,c,delta:real; [/color] vậy nhở đâu nhập vào các hệ số là số âm thì sao. bạn xem lại nha |