Câu hỏi:

13/07/2026 33

Viết chương trình tính diện tích hình chữ nhật, tam giác, hình bình hành, hình thang trong pascal

Xem lời giải

Câu hỏi trong đề: Trắc nghiệm tổng hợp Tin học năm 2023 có đáp án !!

Quảng cáo

Trả lời:

Giải bởi Vietjack

* Tính diện tích hình chữ nhật

program dthcn;

var

a, b, c : integer;

begin

Write ('Nhap chieu dai:'); read (a);

Write ('Nhap chieu rong:'); read (b);

s := a * b;

Write ('Dien tich hinh chu nhat la:',s);

Readln

End.

* Tính diện tích hình thang

program dtht;

var

a, b, h:Integer;

s:real;

begin

Write('Nhap day lon:');readln(a);

Write('Nhap day nho:');readln(b);

Write('Nhap chieu cao:');readln(h);

s:=((a+b)*h)/2;

WriteLn ('Dien tich hinh thang la:',s);

readln

end.

* Tính diện tích tam giác

program dttg;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := 1/2 * a * h;

Write ('Dien tich tam giac la:',s);

Readln

End.

* Tính diện tích hình bình hành

program dthbh;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := a * h;

Write ('Dien tich hinh binh hanh la:',s);

Readln

End.

* Tính diện tích hình tròn

program dthtr;

const

pi=3.14;

var

r:Real;

s:Real;

begin

Write('Nhap ban kinh:'); readln(r);

s:=r*r*pi;

write('Dien tich hinh tron:',s);

readln

end.

Hot: 1000+ Đề thi cuối kì 2 file word cấu trúc mới 2026 Toán, Văn, Anh... lớp 1-12 (chỉ từ 60k). Tải ngay

Các sản phẩm khác của Vietjack:

CÂU HỎI HOT CÙNG CHỦ ĐỀ

Câu 1

Giao thức Token Ring là một giao thức sử dụng phương pháp điều khiển kiểu:

A. Hỏi vòng (Polling)

B. Giữ chỗ trước(Reservation)

C. Truy cập ngẫu nhiên không sử dụng khe thời gian (Stochastic without time slot).

D. Truy cập ngẫu nhiên sử dụng khe thời gian (Stochastic with time slot).

Lời giải

B. Giữ chỗ trước(Reservation)

⇒Reservation là một thuật ngữ vô cùng phổ biến trong lĩnh vực kinh doanh.

Giải thích: Token Ring (được định nghĩa theo chuẩn IEEE 802.5) là một chuỗi bit đặc biệt, có token có thể truyền dữ liệu qua mạng. Token Ring xử lý mức độ ưu tiên, trong đó một số node có thể ưu tiên cho token, chứa thông tin định tuyến.

Câu 2

Một số nguyên dương n được gọi là số đặc biệt nếu n chia hết cho tổng các chữ số của n. Ví dụ, số 27 là số đặc biệt Viết chương trình C++ kiểm tra xem số nhập vào có phải là số đặc biệt hay không? Nếu n là số đặc biệt in ra 1, nếu không phải in ra 0.

Xem đáp án

Lời giải

#include<iostream>
using namespace std;
int main() {
int n;
cin>>n;
int n1=n,sum=0;
while (n1!=0) {
sum+=n1%10;
n1/=10;
}
if (n%sum==0) {
cout<<"1";
} else {
cout<<"0";
}
}

Câu 3