Bài 10 - Cấu trúc lặp- tiết 1-2

Bµi 10 1. LÆp Cã 2 d¹ng: - LÆp víi sè lÇn biÕt tr­íc - LÆp víi sè lÇn ch­a biÕt tr­íc FOR <biÕn ®Õm> := <gt ®Çu> TO <gt cuèi> DO <C©u lÖnh>; b® > gt cuèi §óng a. D¹ng lÆp tiÕn Sai 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do b® : = gt ®Çu C©u lÖnh b® : = b® + 1 FOR <b®> := <gt cuèi> DOWNTO <gt ®Çu> DO <C©u lÖnh>; b® < gt ®Çu §óng b. D¹ng lÆp lïi Sai 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do b® : = gt cuèi C©u lÖnh b® : = b® - 1 VÝ dô: * ThuËt to¸n lÆp tiÕn: B1: NhËp sè a; B2: S:=1/a; N:=0; B3: N:=N+1; B4: Khi N <=100 th× S:= S + 1/(a+ N) råi quay l¹i B3; B5: §­a ra S råi kÕt thóc. 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do TÝnh tæng 1 1 1 1 S1 = + + + . + a a +1 a + 2 a +100 * Ch­¬ng tr×nh lÆp tiÕn: Program Tong_lap_tien; Uses crt; Var S : real; a, N : integer; BEGIN Clrscr ; Write(‘nhap so a = ’); Readln(a); S:=1/a; For N := 1 to 100 do S := S + 1/(a + N); Writeln(‘Tong S = ’, S:8:2); Readln END. 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do Bµi 10 VÝ dô: * ThuËt to¸n lÆp lïi: B1: NhËp sè a; B2: S:=1/a; N:=101; B3: N:=N - 1; B4: Khi N >=1 th× S := S + 1/(a+ N) råi quay l¹i B3; B5: §­a ra S råi kÕt thóc. 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do TÝnh tæng 1 1 1 1 S1 = + + + . + a a +1 a + 2 a +100 * Ch­¬ng tr×nh lÆp lïi: 2. LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do Program Tong_lap_lïi; Uses crt; Var S : real; a, N : integer; BEGIN Clrscr ; Write(‘nhap so a = ’); Readln(a); S:=1/a; For N := 100 downto 1 do S := S + 1/(a + N); Writeln(‘Tong S = ’, S:8:2); Readln END. Ví dụ: * Thuật toán : B1: Nhập số N; B2: d := 0; i := 0; B3: i := i + 1; B4: Khi i < N thì B4.1: Nếu i chia 3 dư 0 thì d := d+1 B4.2: Quay lại B3; B5: Nếu d=0 thì thông báo không có số nào thoả mãn rồi kết thúc, nếu không thì đưa ra số các số chia hết cho 3 là d rồi kết thúc. 2. Lặp với số lần biết trước, Câu lệnh for-do Cho N nguyên dương. Có bao nhiêu số nguyên dương nhỏ hơn N chia hết cho 3? [...]...2 LÆp víi sè lÇn biÕt tr­íc, C©u lÖnh for-do * Ch­¬ng tr×nh : Program Chia_3; Uses crt; Var N, i, d : integer; BEGIN Clrscr ; Write(‘nhap so N =’); Readln(N); d := 0; For i := 1 to N - 1 do If i mod 3 = 0 then d := d + 1; If d=0 then Writeln(‘Khong co so nao thoa man’) else Writeln('So cac so thoa man la: ',d:5); . Bµi 10 1. LÆp Cã 2 d¹ng: - LÆp víi sè lÇn biÕt tr­íc - LÆp víi sè lÇn ch­a biÕt tr­íc FOR <biÕn ®Õm>. C©u lÖnh for-do b® : = gt cuèi C©u lÖnh b® : = b® - 1 VÝ dô: * ThuËt to¸n lÆp tiÕn: B1: NhËp sè a; B2: S:=1/a; N:=0; B3: N:=N+1; B4: Khi N < =100 th× S:=