[Pascal] Viết Chương Trình Giải Phương Trình Bậc 2

• Trang chủ
• Diễn đàn
  • Tìm kiếm diễn đàn
  • Bài viết gần đây
• Thành viên
  • Thành viên tiêu biểu
  • Đang truy cập
  • Hoạt động gần đây
  • Trạng thái

Tên tài khoản hoặc địa chỉ Email: Mật khẩu: Bạn đã quên mật khẩu? Duy trì đăng nhập Login with Facebook

DIỄN ĐÀN SINH VIÊN CNTT QUẢNG NINH!

Diễn đàn sinh viên CNTT Quảng Ninh Trang chủ Diễn đàn Công nghệ phần mềm Lập trình ứng dụng Desktop Pascal [Pascal] Viết chương trình giải phương trình bậc 2

Thảo luận trong 'Pascal' bắt đầu bởi Trần Văn Cường, 19/6/16.

1. 

   Trần Văn Cường I love CNTT Thành viên BQT Thành viên BQT

   Tham gia ngày: 8/11/15 Bài viết: 3,693 Đã được thích: 43 Điểm thành tích: 48 Giới tính: Nam Nghề nghiệp: Sinh Viên Nơi ở: Quảng Ninh thân yêu! Web: https://www.facebook.com/DiendanCNTTQN/ #1 Trần Văn Cường, 19/6/16

   Bài trước: [Pascal] Viết chương trình giải phương trình bậc nhất [Pascal] Viết chương trình giải phương trình bậc 2 Ngôn ngữ lập trình pascal CODE: Select All Program PTB2;Uses Crt;Var a,b,c:Integer; Delta,x,x1,x2:Real;Begin Clrscr; Writeln('GIAI PHUONG TRINH BAC 2'); Writeln('-----------------------'); Write('-Nhap he so a= '); Readln(a); Write('-Nhap he so b= '); Readln(b); Write('-Nhap he so c= '); Readln(c); Delta:=sqr(b)-4*a*c; If Delta < 0 Then Writeln('+Phuong trinh vo nghiem') Else If Delta=0 Then Begin X:=-b/2*a; Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2); End Else Begin X1:=-b-Sqrt(Delta)/2*a; X2:=-b+Sqrt(Delta)/2*a; Writeln('+Nghiem thu nhat = ',X1:6:2); Writeln('+Nghiem thu hai = ',X2:6:2); End; Writeln; Writeln(' Bam phim <Enter> de ket thuc'); Readln;End.

   Bình Luận Bằng Facebook

   data-href="https://cnttqn.com/threads/pascal-viet-chuong-trinh-giai-phuong-trinh-bac-2.2222.html" Bài viết mới Hướng dẫn Cài Đặt Tubo Pascal 7.0 Full bởi Nguyễn Thành Đạt It, 7/9/17 lúc 4:04 AM [Pascal] Viết chương trình tính số ngày của tháng bởi Trần Văn Cường, 19/6/16 lúc 5:14 AM

(Bạn phải Đăng nhập hoặc Đăng ký để đăng bài viết) Show Ignored Content

• Login with Facebook

Tên tài khoản hoặc địa chỉ Email: Bạn đã có tài khoản rồi?

• Tích vào đây để đăng ký
• Vâng, Mật khẩu của tôi là:
• Bạn đã quên mật khẩu?

Duy trì đăng nhập Đăng ký!

Bài viết mới

• Proshow Producer 8.0 Full - Tạo video chuyên nghiệp từ ảnh Mới nhất: MyCreditRNBs, 24/10/20 Chỉnh sửa Video
• Proshow Producer 9.0 Full - Tạo video chuyên nghiệp từ ảnh Mới nhất: chu duc, 8/11/19 Chỉnh sửa Video
• Phần mềm Microsoft Office 2003 Full Mới nhất: thanhnienmoi12, 5/6/19 Tiện ích văn phòng
• [Vector] Trọn bộ tranh ảnh trường Mầm Non, Tiểu Học Mới nhất: Cao Thi Dung, 26/3/19 Mầm non - THCS - THPT
• Market - Backdrop chủ đề Văn Nghệ, Hội Thi File Coreldraw P2 Mới nhất: duhoctoancau, 20/10/18 CorelDraw

Thành viên Online

Tổng: 144 (Thành viên: 0, Khách: 50, Robots: 94) Diễn đàn sinh viên CNTT Quảng Ninh Trang chủ Diễn đàn Công nghệ phần mềm Lập trình ứng dụng Desktop Pascal