ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК 33

Август 27, 2022

Главная
Информатика
ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК 33

Содержание

2. В процессе решения множества задач часто требуется повторять те или иные действия. При этом бывают разные
3. Для разных ситуаций существуют различные циклические конструкции. В языке программирования Паскаль их три, в соответствии с
4. Цикл while является циклом с предусловием, while do begin группа операторов end; В заголовке цикла находится
5. Тело цикла выполнится столько раз, сколько раз логическое выражение вернет true. Поэтому очень важно в теле
6. Например, нужно распечатать n звездочек Решение: Var i, n: integer; begin write('Количество знаков: '); readln(n); i:=l;
7. Практическая работа
8. Задание 1. Найдите сумму всех натуральных чисел из промежутка [1, m] Решение: Program Summa; Var i,
9. Задание 2. Найдите сумму n чисел, вводимых с клавиатуры Решение: Program Summa; Var i, N :
10. Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50 Решение: var x, n: integer; begin write('n=');
11. Задание 4. Возведите число в степень Решение: Var num, deg: integer; res: real; i: byte; begin
12. Как программируется цикл с предусловием на языке Паскаль?
13. Домашнее задание Вывести все четные числа, начиная с числа N и кончая числом М. Числа N
14. 1. Program dz1; var х, n, m: integer; begin write('n='); readln(n); write('m='); readln(m); x:=n; while x
16. Скачать презентацию

Слайд 2

В процессе решения множества задач часто требуется повторять те или иные

действия. При этом бывают разные ситуации.
Например:
количество повторений известно до выполнения тела цикла;
до выполнения тела цикла количество повторений неизвестно;
тело цикла должно выполниться хотя бы один раз.

Слайд 3

Для разных ситуаций существуют различные циклические конструкции.
В языке программирования Паскаль

их три, в соответствии с пунктами, описанными выше.
Самой универсальной и поэтому чаще других используемой конструкцией цикла является второй вариант (цикл while).

Слайд 4

Цикл while является циклом с предусловием, while <логическое выражение> do begin

группа операторов end;
В заголовке цикла находится логическое выражение. Если оно истинно, то тело цикла выполняется, если ложно — то нет. Если тело цикла было выполнено, то ход программы снова возвращается в заголовок цикла. Условие выполнения тела снова проверяется (находится значение логического выражения).

Слайд 5

Тело цикла выполнится столько раз, сколько раз логическое выражение вернет true.

Поэтому очень важно в теле цикла предусмотреть изменение переменной, фигурирующей в заголовке цикла, таким образом, чтобы когда-нибудь обязательно наступала ситуация false.
Иначе произойдет так называемое зацикливание.

Слайд 6

Например, нужно распечатать n звездочек
Решение:
Var i, n: integer;
begin
write('Количество знаков:

'); readln(n);
i:=l;
while i<=n do begin
write('(*)'); i:=i+1;
end;
end.

Слайд 7

Практическая работа

Слайд 8

Задание 1. Найдите сумму всех натуральных чисел из промежутка [1, m]
Решение:

Program Summa;
Var i, m: integer; x, S: real;
Begin
write('Сколько чисел для сложения?');
readln(m); S:=l; i:=l;
while i<=m do begin S:=S+i; i:=i+l; end;
write('Cyммa равна ',s:5:2);
End.

Слайд 9

Задание 2. Найдите сумму n чисел, вводимых с клавиатуры
Решение:
Program Summa;
Var i,

N : integer; x, S : real;
Begin
write('Сколько чисел для сложения?'); readln(N);
S:=0; i:=1;
while i<=N do begin
write('Введите ‘, i ,’-e число’);
readln(x); S:=S+x; i:=i+l; end;
write('Сумма введенных чисел равна ',s:5:2);
End.

Слайд 10

Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50
Решение:
var x,

n: integer;
begin
write('n='); readln(n);
x:=l;
while sqr(x)write(sqr(x),' '); x:=x+l
end; end.

Слайд 11

Задание 4. Возведите число в степень
Решение:
Var num, deg: integer; res: real;

i: byte;
begin
write('Число'); readln(num);
write('Cтепень'); readln(deg);
res:=l; i:=0;
while ires:=res*num; i:=i+1
end;
if deg<0 then
res:=l/res;
writeln(res:10:5);
end.

Слайд 12

Как программируется цикл с предусловием на языке Паскаль?

Слайд 13

Домашнее задание
Вывести все четные числа, начиная с числа N и кончая

числом М. Числа N и М задает пользователь.
Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле.)

Слайд 14

1. Program dz1;
var х, n, m: integer;
begin
write('n='); readln(n); write('m='); readln(m);
x:=n;
while

x<=m do begin
if x mod2 =0 then write(x,' ');
x:=x+l
end;
end.

ПРОГРАММИРОВАНИЕ ЦИКЛОВ УРОК 33

Содержание

В процессе решения множества задач часто требуется повторять те или иные

Для разных ситуаций существуют различные циклические конструкции. В языке программирования Паскаль

Цикл while является циклом с предусловием, while <логическое выражение> do begin

Тело цикла выполнится столько раз, сколько раз логическое выражение вернет true.

Например, нужно распечатать n звездочекРешение: Var i, n: integer; beginwrite('Количество знаков:

Практическая работа

Задание 1. Найдите сумму всех натуральных чисел из промежутка [1, m]Решение:

Задание 2. Найдите сумму n чисел, вводимых с клавиатурыРешение:Program Summa;Var i,

Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50Решение: var x,

Задание 4. Возведите число в степеньРешение:Var num, deg: integer; res: real;