BÀI TẬP PASCAL CHƯƠNG 2 VÀ 3

CHƯƠNG 2: CHƯƠNG TRÌNH ĐƠN GIẢN.
Bài 1: Viết chương trình tính Z=5x
4
+ 3y. In kết quả ra màn hình.
Program bai1;
Var Z,x,y:integer;
Begin
Write(‘nhap x,y’); readln(x,y);
Z:=5*sqr(x)*sqr(x) + 3*y; {Z:=5*x*x*x*x + 3*y;}
Writeln(Z);
Readln
End.
Bài 2: Viết chương trình tính .
2 2
M a b= +
. In kết quả ra màn hình.
Program bai2;
Var a,b:integer;
M: real;
Begin
Write(‘Nhap a,b’); readln(a,b);
M:=sqrt(sqr(a) + sqr(b));
Writeln(M:2:4);
Readln
End.
Bài 3: viết chương trình in ra màn hình tam giác sau:
* * * * * * * * * *
* * * * * * * *
* * * * * *
* * * *
* *

*
Bài 4: Viết chương trình tính diện tích hình thang. In kết quả ra màn hình.
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.
Bài 5: Viết chương tính diện tích tam giác. In kết quả ra màn hình.
Program Tam_Giac;
Var
a,b,c:Integer;
p,s:Real;
Begin
Writeln('CHUONG TRINH TINH DIEN TICH TAM GIAC');
Write('-Cho biet canh thu nhat = ');
Readln(a);
Write('-Cho biet canh thu hai = ');
Readln(b);
Write('-Cho biet canh thu ba = ');

Readln(c);
p := 0.5 * (a + b + c);
s := sqrt(p*(p-a)*(p-c)*(p-c));
Writeln('+Dien tich hinh tam giac = ',s:6:2,' met vuong');
Readln
End.
BÀI TẬP TỰ LÀM
Bài 1: Viết chương trình tính diện tích hình cầu. In kết quả ra màn hình.
Bài 2: Viết chương trình tính diện tích hình chữ nhật. In kết quả ra màn hình
Bài 3: Viết chương trình tính chu vi, diện tích hình tròn. In kết quả ra màn hình.
**********************************************************************
CHƯƠNG 3: CẤU TRÚC RẼ NHÁNH VÀ LẶP
Bài 1: Viết chương trình nhập từ bàn phím số nguyên dương N. Kiểm tra xem N có chia hết cho 3 và
5 hay không. In kết ra màn hình.
Program bai1;
var N:integer;
begin
write('nhap N=');
readln(n);
if (n mod 3=0) and (n mod 5=0) then
writeln(n,'chia het cho 3 va 5')
else
writeln(n,'khong chia het cho 3 va 5');
readln
end.
Bài 2: Viết chương trình in ra màn hình từ 1 10.
program bai2;
var i:integer;
begin
for i:=1 to 10 do

write(i:4);
readln
end.
Bài 3: Viết chương trình in ra màn hình từ 10 1.
Bài 4: Viết chương trình tính tổng S=1 +2 +3 + …+ N. In kết quả ra màn hình.
var s,n,i:integer;
begin
write('nhap n');
readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln(s);
readln
end.
Bài 5: Lập trình tính giá trị biểu thức S=1
2
+2
2
+…+ N
2
. In kết quả ra màn hình.
program bai4;
var s,n,i:integer;
begin
write('nhap n');
readln(n);
s:=0;
for i:= 1 to n do
s:=s+sqr(i);

writeln(s);
readln
end.
BÀI TẬP TỰ LÀM
Bài 1: Lập trình tìm tất cả các số hoàn hảo nhỏ hơn số n cho trước với n được nhập từ bàn
phím, trong đó số hoàn hảo là bằng tổng các ước số của nó không kể chính nó, ví dụ: 6 là
một số hòan hảo vi 6=1 + 2+3.
Bài 2. Viết chương trình tính tổng bậc 3 của N số nguyên đầu tiên. In kết quả ra màn hình.
Bài 3: Viết chương trình tìm ước số của số nguyên N. In kết quả ra màn hình.
Bài 4: Viết chương trình tính tổng nghịch đảo N số nguyên đầu tiên. In kết quả ra màn hình.
Bài 5:Viết chương trình tính tổng bình phương các số lẻ từ 1 N. In kết quả ra màn hình.
Bài 6: Viết chương trình tính N!. In kết quả ra màn hình.
Bài 7: Viết chương trình tính a
n
. In kết quả ra màn hình.
Bài 8: Viết chương trình giải phương trình bậc 2 ax
2
+ bx + c=0(a<>0). In kết quả ra màn
hình.
Bài 9: Viết chương trình tính tổ hợp chập K của N. In kết quả ra màn hình.
Bài 10. Viết chương trình tìm UCLN và BSCNN. In kết quả ra màn hình.