GIÁO ÁN BỒI DƯỠNG HỌC SINH GIỎI TỈNH NĂM HỌC 2007 – 2008

CHỦ ĐỀ 1 - NGÀY DẠY : 26/11/2008

( Vòng lặp For …)

I/ MỤC TIÊU :
- Ôn lại kiến thức cũ về vòng lặp For .
- Kiểm tra việc vận dụng về vòng For để giải quyết các bài toán .
+ Nhập và xuất dữ liệu .
+ Hướng giải quyết bài toán có cùng chủ đề .
II/ NỘI DUNG BÀI GIẢNG.
Bài 1:
Viết chương trình tính tích của các số từ 1 tới n . Với n là số nguyên được nhập từ bàn phím
program b1;
uses crt;
var i,n,tich:integer;
begin
clrscr;
tich:=1;
write(`nhap n:`);readln(n);
for i:=1 to n do tich:=tich*i;
writeln(`Tich cac so tu 1 den `,n,` la:`,tich);
readln;
end.
Bài 2:
Viết chương trình tính tổng nghịch đảo của các số từ 1 tới n . Với n là số nguyên được nhập từ bàn phím .
program b2;
uses crt;
var tong,i,n:integer;
begin
clrscr;
tong:=0;
write(`Nhap n:`);readln(n);
for i:=1 to n do
tong:=tong+1/i;
writeln(`Tong nghich dao tu 1 den `,n,` la:`,tong);
readln;
end.
Bài 3: Viết chương trình nhập vào số n nguyên dương . Sau đó xuất ra màn hình các ước số của nó .
program b3;
uses crt;
var n,i:integer;
begin
clrscr;
write(`Nhap n:`);readln(n);
writeln(`Cac uoc cua `,n,` la:`);
for i:=1 to n do if n mod i=0 then
write(i:3);
readln;
end.
Bài 4: Viết chương trình nhập vào n dương sau đó xuất ra màn hình các ước số chẵn của nó.
program b4;
uses crt;
var n,i:integer;
begin
clrscr;
write(`Nhap n:`);readln(n);
writeln(`Cac uoc cua chan `,n,` la:`);
for i:=1 to n do if (n mod i=0) and (i mod 2=0) then
write(i:3);
readln;
end.
Bài 5: Viết chương trình nhập vào n dương sau đó xuất ra màn hình các ước số lẽ của nó.
program b5;
uses crt;
var n,i:integer;
begin
clrscr;
write(`Nhap n:`);readln(n);
writeln(`Cac uoc cua le cua `,n,` la:`);
for i:=1 to n do if (n mod i=0) and (i mod 2=1) then
write(i:3);
readln;
end.
Bài 6: ( Bài tập về nhà ).
Viết chương trình nhập vào n số nguyên dương . Xuất ra màn hình nghịch đảo của tích số
( S = 1 + ½! + 1/3! + …. + 1/n!)
program b6;
uses crt;
var i,n:integer;
tong,tich:real;
begin
clrscr;
tong:=0;
tich:=1;
write(`nhap n:`);readln(n);
for i:=1 to n do
begin
tich:=tich*i;
tong:=tong+1/tich;
end;
writeln(`Tong nghich dao giai thua tu 1 den `,n,` =`,tong:2:1);
readln;
end.
Bài 7: ( Bài tập về nhà ).
Viết chương trình tìm số Amstrong : thoả điều kiện sau : a^3+b^3+c^3=100a+10b+c
program b7;
uses crt;
var i,j,k,n:integer;
begin
clrscr;
write(`Cac so tu 100->999 thoa man DK a^3+b^3+c^3=100a+10b+c la:`);
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (sqr(i)*i+sqr(j)*j+sqr(k)*k=100*i+10*j+k) then