[Pascal] Viết Chương Trình Tính Diện Tích Tam Giác

• 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 tính diện tích tam giác

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

   Viết chương trình Pascal tính diện tích tam giác Ngôn ngữ lập trình: pascal CODE: Select All Program Dien_tich_tam_giac;Uses Crt;Var a,b,c:Integer; p,s:Real;Begin Clrscr; Writeln('DIEN TICH TAM GIAC'); Writeln('------------------'); Write('-Nhap so thu nhat: '); Readln(a); Write('-Nhap so thu hai : '); Readln(b); Write('-Nhap so thu ba : '); Readln(c); If (a+b>c) And (b+c>a) And (c+a>b) Then Begin Writeln('+Dung la Tam giac'); p:=0.5*(a+b+c); s:=Sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('+Dien tich= ',s:10:2); End Else Writeln('+Khong phai la Tam giac'); 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-tinh-dien-tich-tam-giac.2236.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: 151 (Thành viên: 0, Khách: 73, Robots: 78) 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