Tiết 39: BÀI TẬP
Sử dụng lệnh lặp for…do
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;
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;
Uses CRT;
Var i:integer;
Begin
Clrscr;
For i:=1 to 5 do
Write(‘ Chao cac ban’, I );
Readln;
End.
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;
Uses Crt;
Var I,n,Tong:integer ;
Begin
Clrscr;
Writeln(‘ nhap so phan tu n=‘ ); readln(n);
For i:=1 to n do
Tong:=0; Tong:=tong+I ; i:=i+1;
Write(‘ tong cua n so tu nhien dau tien la : ‘, Tong);
Readln
End.
Bài tập 4: hãy mô tả thuật toán để tính tổng sau đây ?


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);