Bài 7. Câu lệnh lặp

Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Tiết 39: BÀI TẬP
Sử dụng lệnh lặp for…do
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 1: Các câu lệnh sau có hợp lệ không vì sao ?
For i:= 100 to 1 do writeln(‘A’);
For i:=1.5 to 10.5 do writeln(‘A’);
For i=1 to 10 do writeln(‘A’);
For i:=1 to 10 do writeln(‘A’);
Var x:real ; Begin For i:=1 to 10 do writeln(‘A’); end;
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 2: Viết chương trình In ra màn hình 5 dòng chữ
“ Chao cac ban” ?
Program Vong_lap;
Var i:integer;
Begin
For i:=1 to 5 do
Write(‘ Chao cac ban’ );
Readln;
End.
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 3: Viết chương trình tính tổng của n số tự nhiên đầu tiên ? N nhập vào từ bàn phím.
Program tinh_tong;
Var i,n,Tong:integer ;
Begin
Writeln(‘ nhap so phan tu n=‘ ); readln(n);
Tong:=0;
For i:=1 to n do
Tong:=Tong+i;
Write(‘ tong cua n so tu nhien dau tien la : ‘, Tong);
Readln;
End.
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 5:Ta kí hiệu N! là tích N số tự nhiên đầu tiên:
N! = 1.2.3…N
- Viết chương trình tính N! với N là số tự nhiên được nhập vào từ bàn
phím.

Program Tính_Giai_thua;
Var i, N: integer;
P: longint;
Begin
write (‘Nhap N = ‘); readln (N);
P:= 1;
For i:= 1 to N do P:= P*i;
Writeln (N,’! = ’,P);
Readln;
end.
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 5: Em hãy viết chương trình tính tổng các số nguyên liên tiếp từ n đến m với n,m là các số nguyên dương nhập vào từ bàn phím

Program tinh_tong;
Var m, n, i: integer;
S: longint;
Begin
write (‘Nhap n = ‘); readln ( n);
write (‘Nhap m=‘); readln ( m);
S:=0;
For i:= n to m do S:= S + i;
Writeln (‘Tong cua S = ’,s); Readln ;
end.
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Bài tập 6: hãy mô tả thuật toán để tính tổng sau đây ?


Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Thuật toán
Bước 1: Gán A:=0 ;
Bước 2: i:=i+1;
Bước 3: A:=A+1/i*(i+2);
Trường PT DTNT Buôn Đôn - GV: Đỗ Việt Dũng
Chương trình
Program Tong;
Var A:real;
i,n:integer;
Begin
Write(‘Nhap n:’); readln(n);
A:=0;
For i:=0 to n do A:=A+(1/i*(i+2));
Write(‘Tong A la:’,A:4:2);
Readln;
End.