Giải Phương Trình Bậc 2 | VN4000 PASCAL

Trang chủ » Giải Pt Bậc 2 Pascal » Giải Phương Trình Bậc 2 | VN4000 PASCAL

Có thể bạn quan tâm

VN4000 PASCAL

Lý thuyết và Bài tập Lập trình Pascal

  • Home
  • About us

Giải bất phương trình bậc nhất Tìm giá trị lớn nhất trong 4 số a, b, c, d

Giải phương trình bậc 2

January 2, 2012

vn4000 Ví dụ và Bài tập lập trình Pascal Leave a comment

Chương trình giải phương trình bậc 2 (ax2 + bx + c =0)

Program Phuong_Trinh_Hai; Uses crt; Var a,b,c,d,x,x1,x2:real; Begin Writeln(‘GIAI PHUONG TRINH BAC II:’); Write(‘Nhap he so a=’);readln(a); Write(‘Nhap he so b=’);readln(b); Write(‘Nhap he so c=’);readln(c); If a=0 then If b=0 then If c=0 then Writeln(‘Phuong trinh co vo so nghiem’) Else Writeln(‘Phuong trinh vo nghiem’) Else Writeln(‘Phuong trinh co mot nghiem: x=’,-c/b:4:2) Else Begin d:=b*b-4*a*c; If d=0 then Writeln(‘Phuong trinh co nghiem kep: x=’,-b/(2*a):4:2) Else If d<0 then Writeln('Phuong trinh vo nghiem') Else Begin x1:= (-b+sqrt(d))/(2*a); x2:= (-b-sqrt(d))/(2*a); Write('Phuong trinh co hai nghiem: ‘); Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2); End; End; Readln; End.

Share this:

  • Facebook
  • X
Like Loading...

Related

Comments are closed.

Giải bất phương trình bậc nhất Tìm giá trị lớn nhất trong 4 số a, b, c, d

Tìm kiếm

Bài viết mới

  • Bài 29 FULL SCREEN cho DOSBOX
  • Bài 28 Runtime Error 200
  • Bài 27 Một Số Hàm Số
  • Bài 26 Cấu trúc rẽ nhánh và lựa chọn phần 3
  • Bài 25 Cấu trúc rẽ nhánh và lựa chọn phần 2

Danh mục

  • Lý thuyết lập trình Pascal
  • Ví dụ và Bài tập lập trình Pascal

Blog at WordPress.com.

Privacy & Cookies: This site uses cookies. By continuing to use this website, you agree to their use. To find out more, including how to control cookies, see here: Cookie Policy
  • Reblog
  • Subscribe Subscribed
    • VN4000 PASCAL
      • Sign me up
    • Already have a WordPress.com account? Log in now.
    • VN4000 PASCAL
    • Customize
    • Subscribe Subscribed
    • Sign up
    • Log in
    • Copy shortlink
    • Report this content
    • View post in Reader
    • Manage subscriptions
    • Collapse this bar
%d Design a site like this with WordPress.comGet started

Từ khóa » Giải Pt Bậc 2 Pascal