Viết Chương Trình Giải Phương Trình Bậc 2 (ax2+ Bx + C =0)

Tháng Ba 11, 2019

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

Program GIAI_PHUONG_TRINH_BACII; Uses crt; Var a,b,c,d,x,x1,x2: real; Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC II: '); Writeln('-------------------------------------------'); 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); Writeln('Pt co 2 nghiem la x1= ',x1:4:2 ,' va x2=',x2:4:2); End; End; Readln End.

Chia sẻ:

  • Twitter
  • Facebook
Thích Đang tải… Bài Tập Pascal Cơ Bản

Posted by:

123webshop

Previous Post Next Post

Bình luận về bài viết này Hủy trả lời

Δ

About Me

An English diarist and naval administrator. I served as administrator of the Royal Navy and Member of Parliament. I had no maritime experience, but I rose to be the Chief Secretary to the Admiralty under both King Charles II and King James II through patronage, diligence, and my talent for administration.

  • Tumblr
  • Share Icon
  • Instagram

Bài viết mới

  • Learn ChatGPT | Free Courses On ChatGPT
  • Machine Learning | Learn Machine Learning Easily
  • Đề thi chuyên Tin PTNK Tp Hồ Chí Minh các năm
  • Tải miễn phí bộ tài liệu mà bất kỳ học sinh, sinh viên nào yêu thích CNTT
  • Viết chương trình giải phương trình bậc 2 (ax2+ bx + c =0)

Bản tin

Nhập email của bạn…

subscribe

Trang này sử dụng cookie. Tìm hiểu cách kiểm soát ở trong: Chính Sách Cookie
  • Bình luận
  • Đăng lại
  • Theo dõi Đã theo dõi
    • The More You Share, The More You Get!
    • Theo dõi ngay
    • Đã có tài khoản WordPress.com? Đăng nhập.
    • The More You Share, The More You Get!
    • Sửa trang web
    • Theo dõi Đã theo dõi
    • Đăng ký
    • Đăng nhập
    • URL rút gọn
    • Báo cáo nội dung
    • Xem toàn bộ bài viết
    • Quản lý theo dõi
    • Ẩn menu
%d Tạo trang giống vầy với WordPress.comHãy bắt đầu

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