Урок 19-20
Тема: Операторы цикла на Паскале. Цикл со счетчиком.
Цель: познакомить учащихся с форматом оператора цикла с параметром; объяснить особенности применения оператора;
1.Анализ контрольной работы.
2.Новый материал
·Цикл представляет собой последовательность операторов, которая выполняется неоднократно.
·Оператор цикла for – цикл со счетчиком (используется с заранее известным числом повторений)
Оператор цикла for имеет одну из двух форм:
for переменная:=начальное значение to конечное значение do
оператор;
или
for переменная:=начальное значение downto конечное значение do
оператор;
Текст от слова for до слова do включительно называется заголовком цикла, а оператор после do - телом цикла. Переменная после слова for называется параметром цикла. Для первой формы цикла с ключевым словом to параметр цикла меняется от начального значения до конечного значения, увеличиваясь всякий раз на единицу, а для второй формы ключевым словом downto - уменьшаясь на единицу. Для каждого значения переменной-параметра выполняется тело цикла.
3. Решение задач.
Задача 1. Вычислить 1^2+2^2+…+12^2.
program z1;
uses crt;
var i:integer; s: longint;
begin
s:=0;
for i:=1 to 100 do s:=s+sqr(i);
writeln (s); S= 650
end.
Задача 2. Найти все делители числа n.
program z1;
uses crt;
var n, i: integer; k: real;
begin
read (n);
for i:=1 to n do
if n mod I = 0 then writeln (i);
end.
Задача 3. Напечатать таблицу квадратных корней из чисел от 1 до 20.
program z3;
uses crt;
var i: integer; b: real;
begin
for i:=1 to 20 do
begin
b:= sqrt(i);
writeln (i: 4, b:7:2);
end;
end.
Задача 4. Составить таблицу перевода метров в ярды, если 1м = 0,91 ярда на [1; 20].
program z4;
uses crt;
var i: integer; b: real;
begin
for i:=1 to 20 do
begin
b:= i*0.91;
writeln (i: 4, b:7:2);
end;
end.
Задача 5. Сберкасса начисляет 30% годовых. Какой станет сумма S, положенная в банк на n лет.
program z5;
uses crt;
var i: integer; b: real;
begin
writeln (‘Введите сумму’); read (s);
writeln (‘Введите кол-во лет’); read (n);
for i:=1 to n do
s:= s+s*0.3;
writeln (s:7:2);
end.
Задача 6. Найти все натуральные корни, меньшие 100, уравнения x^4- 10x^3+38x^2-79x+70=0.
program z6;
uses crt;
var x: integer;
begin
for x:=1 to 100 do
if sqr(sqr(x))- 10*x* sqr(x)+38* sqr(x)-79*x+70=0 then writeln (x);
end.
Задача 7. Вычислить n!
program z1;
uses crt;
var n,i:integer; s: longint;
begin
read (n); s:=1;
for i:=1 to n do s:=s*i ;
writeln(s);
end.
4. Итог урока.
5. Домашнее задание.
-
Напечатать таблицу перевода дюймов в см. 1 дюйм = 2.54 см
-
Вычислить
