tiet 23+24 Bai tap

Bài tập 3: Nhập vào đáy lớn, đáy nhỏ, chiều cao và tính diện tích hình thang.

Tiết 23 + 24:

Bài tập

Bài tập 1: Lập trình in ra tam giác Pascal

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

Program Tam_giac_Pascal; Begin

Writeln(' 1');

Writeln(' 1 1');

Writeln(' 1 2 1');

Writeln(' 1 3 3 1');

Writeln('1 4 6 4 1'); Readln

End.

Bài tập 2: Nhập bán kính hình tròn và tính diện tích hình tròn

Program Hinh_tron;

Var

r:Integer;

s:Real;

Begin

Writeln('CHUONG TRINH TINH DIEN TICH HINH TRON');

Write('-Cho biet ban kinh = ');

Readln(r);

s:=3.1416 * r * r;

Writeln('*Dien tich hinh tron = ',s:6:2,' met vuong');

Readln

End.

Bài tập 3: Nhập vào đáy lớn, đáy nhỏ, chiều cao

và tính diện tích hình thang.

Program Hinh_thang;

Var

a,b,h:Integer;

S:Real;

Begin

Writeln('CHUONG TRINH TINH DIEN TICH HINH THANG'); Write('-Cho biet day ngan = ');

Readln(a);

Write('-Cho biet day dai = ');

Readln(b);

Write('-Cho biet chieu cao = ');

Readln(h);

S := 0.5 * (a + b) * h;

Writeln('+Dien tich hinh thang = ',s:6:2,' met vuong');

Readln