Giáo án môn Tin học Lớp 8 - Bài 8: Lặp với số lần biết trước

úng 
Câu lệnh 
Điều kiện : thường là một phép so sánh 
Sai 
Trong đó: 
Câu lệnh lặp với số lần lặp chưa xác định trong Pascal: 
Câu lệnh : là câu lệnh đơn hay câu lệnh ghép 
Ví dụ: While S<100 do S:= S+1; 
3. Lệnh lặp với số lần chưa xỏc định 
B1: Khởi tạo S=0; N:=0; 
B2: Nếu S<= 1000 thì thực hiện 
	tăng N thêm 1 đơn vị, 
 ngược lại chuyển tới B4 
B3 : Cộng N vào S => sang B2 
B4: In kết quả: N là số tự nhiên nhỏ nhất sao cho S>1000, Tổng S và kết thúc 
 S:=0; N:=0; 
WHILE S<=1000 DO 
 Begin 	 
 	 N:=N+1; 
 	S:=S+N; 
 END; 
Writeln(‘Số N nhỏ nhất để S>1000’, N) 
Writeln(‘ Tổng đầu tiên >1000’,S); 
Thuật toán 
Chương trình 
Ví dụ 1 : 
cho đến khi S>1000. Cho biết N 
Tính tổng 
Program Bai_toan; 
Uses Crt; 
Var N:Integer; 
 S:Real; 
BEGIN 
 Clrscr; 
 S:=0;N:=0; 
 WHILE s< = 1000 DO 
 BEGIN	 
	N:=N+1; 
	S:=S+N; 
	 END; 
	 Writeln(‘So N nho nhat de tong >1000 la’,N);	 
 Writeln(‘Gia tri cua tong S =',S); 
 Readln; 
E