Tiet 23+24 Bai tap

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
End.