[Lập Trình Pascal]Chương Trình Giải Phương Trình Bậc 2

Skip to content

program ptb2; uses crt; var a,b,c :integer; delta:real; x1,x2:real; begin      clrscr;      Writeln(‘Chuong trinh giai phuong trinh bac 2’);      Write(‘Nhap vao he so a : ‘); Readln(a);      Write(‘Nhap vao he so b : ‘); Readln(b);      Write(‘Nhap vao he so c : ‘); Readln(c); delta:=b*b-4*a*c;     if (delta<0) then Writeln(‘Phuong trinh vo nghiem’);     if (delta=0) then     begin        x1:=-b/(2*a);       Write(‘Phuong trinh co nghiem duy nhat x = ‘);writeln(x1)    end;    if (delta>0) then    begin       x1:=(-b-sqrt(delta))/(2*a); x2:=(-b+sqrt(delta))/(2*a);       Writeln(‘Phuong trinh co 2 nghiem phan biet : ‘);       Write(‘x1 = ‘);Writeln(x1);       Write(‘x2 = ‘);Writeln(x2);    end;    Readln; end.

Share this:

• Twitter
• Facebook

Like Loading...

Related

Post navigation

Previous Previous post: [Lập trình Pascal] Bài 1:Các thủ tục nhập xuất cơ bảnNext Next post: [Lập trình Pascal] Bài 2 : Biến

Leave a comment Cancel reply

Δ

Bài viết mới

• [Lập trình Pascal] Chuỗi ký tự
• [Lập trình Pascal] Bài 4 : Cấu trúc lặp
• Chuyện ở West Point.
• Harvard, bốn rưỡi sáng
• [Lập trình Pascal] Vẽ hình tam giác cân với chiều cao bất kì

Tìm kiếm

Search for:

Quote

Your future is what you do today , not tomorrow

Thống kê

• 23,123 lượt truy cập

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

• Comment
• Reblog
• Subscribe Subscribed
  • Nguyen Minh Hien Blog
  Sign me up
  • Already have a WordPress.com account? Log in now.
• • Nguyen Minh Hien Blog
  • 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