Рабочие листы
к вашим урокам
Скачать
1 слайд
Операторы циклов
2 слайд
Цикл – это структура, в которой некоторая серия команд выполняется несколько раз.
3 слайд
В языке программирования паскаль существует три типа циклов:
FOR – цикл с заданным числом повторений (цикл с параметром)
REPEAT – цикл с постусловием
WHILE – цикл с предусловием
4 слайд
Оператор цикла с параметром
(с заданным числом повторений).
For счетчик: = нач. знач. to кон. знач. do
Begin
<Операторы>;
end;
счетчик - переменная типа INTEGER;
нач_знач - начальное значение - переменная типа INTEGER;
кон_знач - конечное значение - переменная типа INTEGER;
5 слайд
Пример 1.
Вывести на экран 25 раз слово "Привет".
Program f1;
Var i : integer;
begin
For i:=1 to 25 do
begin
Writeln (‘Привет ‘);
end;
end.
6 слайд
Задание:
Вывести на экран все целые числа от 10 до 100 .
Program f11;
Var i : integer;
begin
For i:=10 to 100 do
begin
Writeln (i);
end;
end.
7 слайд
Пример 2.
Найти сумму чисел от 1 до 23.
Program f2;
Var I : integer;
S : integer;
Begin
S := 0 ;
For i:=1 to 23 do
begin
S := S+I;
end;
Writeln ( ‘ S= ‘ , S ) ;
End.
I
неопределен
S
0
I
1
S
S=s+i
S=0+1=1
I (2 шаг)
i=i+1
i=1+1=2
S
S=s+i
S=1+2=3
I (3 шаг)
i=i+1
i=2+1=3
S
S=s+i
S=3+3=6
I (4 шаг)
i=i+1
i=3+1=4
S
S=s+i
S=6+4=10
I (5 шаг)
i=i+1
i=4+1=5
S
S=s+i
S=10+5=15
I (6 шаг)
i=i+1
i=5+1=6
S
S=s+i
S=15+6=21
8 слайд
Задание:
Найти сумму натуральных чисел от 50 до 75
Program f22;
Var i : integer;
S : integer;
Begin
S := 0 ;
For i:=50 to 75 do S := S+i;
begin
Writeln ( ‘ S= ‘ , S ) ;
end;
End.
9 слайд
Пример 3.
Вывести на экран делители числа N.
Var n, i : integer;
begin
Writeln (‘введите число n’);
Readln (n);
For i:=1 to n do
begin
If n mod i=0 then Writeln (i, ‘ ‘);
end;
end.
10 слайд
Задание:
Найти все числа от 33 до 555, которые кратны 13.
Program f33;
Var i : integer ;
Begin
For i := 33 do 555 do
begin
If i mod 13 = 0 then write ( i , ‘ ‘) ;
end;
End.
11 слайд
Пример.
Program f4
Var Y : real;
x : integer ;
Begin
For x := -5 to 5 do
begin
Writeln ( 0.5*x-2 ) ;
end;
End.
Вывести на экран значения функции y=0,5x-2 для x от -5 до 5.
12 слайд
Program z;
Var i : integer;
S: real;
begin
S:=0;
For i:=1 to 10 do
begin
S:=S+1/i;
end;
Writeln (‘Сумма чисел = ‘, S);
end.
Пример.
Вычислить сумму ряда:
13 слайд
Задание:
Составьте программу вычисления суммы ряда:
Рабочие листы
к вашим урокам
Скачать
6 653 557 материалов в базе
Настоящий материал опубликован пользователем Струкова Юлия Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Мини-курс
3 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.