Lập Trình Pascal: Viết Các Chương Trình Con Tính Diện Tích Tam Giác ...

• Giới thiệu
  • Giới thiệu về trang web Bài kiểm tra
• Môn học
  • Âm nhạc
  • Anh văn
  • Công dân
  • Công nghệ
  • Địa lí
  • Hoá học
  • Lịch sử
  • Mĩ thuật
  • Sinh học
  • Thể dục
  • Tin học
  • Toán học
  • Văn học
  • Vật lí
  • Quốc Phòng
  • Dạy và học
  • Ngoại khoá
  • Mầm Non
  • Giáo án
  • Đề tài
  • Khoa học
  • Đạo đức
• Kiểm tra trắc nghiệm
• Thư viện sách
• Điều khoản sử dụng
  • Chính sách bảo mật (Quyền riêng tư)
  • Điều khoản và điều kiện sử dụng
• Tìm kiếm

© 2020 Bài Kiểm Tra.com. All Rights Reserved.

• Trang nhất
• Tin học

Thứ hai, 25/11/2024, 14:31 Lập trình Pascal: Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình 2019-12-18T00:23:43+07:00 2019-12-18T00:23:43+07:00 Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cáchchọn trong bảng chọn lệnh sau:0. Không làm gì hết và trở về màn hình soạn thảo.1. Tính diện tích hình vuông2. Tính diện tích hình tròn3. Tính diện tích tam giác4. Tính diện tích hình chữ nhật chương trình con tính diện tích tam giác, chương trình con tính diện tích, chương trình con tính diện tích hình tròn, chương trình con tính diện tích hình vuông https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg Bài Kiểm Tra https://baikiemtra.com/uploads/bai-kiem-tra-logo.png Thứ tư - 18/12/2019 00:22

• In ra

Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cáchchọn trong bảng chọn lệnh sau:0. Không làm gì hết và trở về màn hình soạn thảo.1. Tính diện tích hình vuông2. Tính diện tích hình tròn3. Tính diện tích tam giác4. Tính diện tích hình chữ nhật

Program TINH_DIEN_TICH; Uses crt; Procedure HV; Var s,a:real; Begin Writeln('TINH DIEN TICH HINH VUONG:'); Write('Nhap chieu dai cua canh a = ');readln(a); s:=a*a; Writeln('Dien tich hinh vuong = ',s:6:2); End; Procedure HT; Var s,r:real; Begin Writeln('TINH DIEN TICH HINH TRON:'); Write('Nhap ban kinh R = ');readln(r); s:=pi*r*r; Writeln('Dien tich hinh tron = ',s:6:2); End; Procedure TG; Var a, b, c,s,p:real; Begin Writeln('TINH DIEN TICH TAM GIAC:'); Write('nhap a =');readln(a); Write ('nhap b =');readln(b); Write('nhap c =');readln(c); If ((a+b)>c)and((b+c)>a)and((a+c)>b) then Begin p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln('Chu vi tam giac:',2*p:4:2) ; Writeln('Dien tich tam giac:',s:4:2); End Else Writeln(a,', ',', ',c,' khong phai la ba canh cua tam giac') ; End; Procedure CN; Var a, b, s:real; Begin Writeln('TINH DIEN TICH HINH CHU NHAT:'); Write('Nhap chieu dai a =');readln(a); Write('Nhap chieu rong b= ');readln(b); s:= a*b; Writeln('Dien tich hinh chu nhat, s= ',s:6:2); End; Procedure menu; Var d:integer; Begin Clrscr; Writeln('CHON MOT TRONG CAC PHUONG AN SAU:'); Writeln('----------------------------------'); Writeln('0: Quay ve man hinh soan thao'); Writeln('1: Tinh dien tich hinh vuong'); Writeln('2: Tinh dien tich hinh tron'); Writeln('3: tinh dien tich tam giac'); Writeln('4: Tinh dien tich hinh chu nhat'); Writeln('===================='); Write(' Hay chon mot phuong an: '); readln(d); Writeln('===================='); Writeln; Case d of 0: Exit; 1: HV; 2: HT; 3: TG; 4: CN; End; End; Begin menu; Readln; End.

Tags: Lập trình Pascal

Ý kiến bạn đọc

Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thích

Theo dòng sự kiện

Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Cõi lá

Soạn Ngữ văn lớp 11 sách Chân trời sáng tạo, bài 1: Ai đã đặt tên cho dòng sông

Xem tiếp...

Những tin cũ hơn

Lập trình Pascal: Dùng chương trình con lập tam giác Pascal bằng tổ hợp

Lập trình Pascal: Dùng chương trình con tính tổ hợp

GIẢI BÀI TẬP

Lớp 1	Lớp 2	Lớp 3	Lớp 4	Lớp 5
Lớp 6	Lớp 7	Lớp 8	Lớp 9
Lớp 10	Lớp 11	Lớp 12
Bài học	Bài soạn		Bài giảng
Bài giới thiệu		Bài hướng dẫn
Bài làm văn		Bài trắc nghiệm
Kiểm tra 15P		Kiểm tra 1 tiết
Kiểm tra HK1		Kiểm tra HK2
Thi vào lớp 10		Tốt nghiệp THPT

BÀI LUYỆN THI

Lớp 1	Lớp 2	Lớp 3	Lớp 4	Lớp 5
Lớp 6	Lớp 7	Lớp 8	Lớp 9
Lớp 10	Lớp 11	Lớp 12
Kiểm tra 15 phút		Kiểm tra 1 tiết
Kiểm tra học kì 1		Kiểm tra học kì 2
Luyện thi theo Bài học
Luyện thi THPT Quốc Gia

THÀNH VIÊN Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site Nhập mã do ứng dụng xác thực cung cấp Thử cách khác Nhập một trong các mã dự phòng bạn đã nhận được. Thử cách khác Đăng nhập Đăng ký © 2020 Bàikiểmtra.com. All Rights Reserved. Bạn đã không sử dụng Site, Bấm vào đây để duy trì trạng thái đăng nhập. Thời gian chờ: 60 giây