Поделиться
Циклы с предусловием.pptx
Цикл с предусловием
Цикл с предусловием
While условие do оператор;
While условие do begin
оператор 1;
оператор 2;
…
оператор n;
end;
Цикл с предусловием
Условия работы
Особенности цикла
Цикл может не выполняться ни разу
Цикл работает, если условие истинно.
Задача 1
Написать программу, определяющую количество цифр в записи произвольного натурального числа.
Задача 1
25 |
25 div 10= |
|
2
0
834 |
834 div 10= |
83
8
0
2 div 10=
83 div 10=
8 div 10=
3169 |
3169 div 10= |
316
316 div 10=
31
31 div 10=
3
3 div 10=
0
Написать программу, определяющую количество цифр в записи произвольного натурального числа.
произвольное натуральное число
x
количество цифр в числе
k
x := x div 10
Условие:
Сокращение числа x на одну цифру:
x > 0
Подсчет количества сокращенных цифр:
k := k + 1
(integer)
(integer)
Дано:
Найти:
Задача 1
while x>0 do begin
x:=x div 10;
k:=k+1;
end;
k := 0;
Задача 2
Написать программу, определяющую количество четных цифр в записи произвольного натурального числа.
Задача 1
25 |
25 div 10= |
|
2
0
834 |
834 div 10= |
83
8
0
2 div 10=
83 div 10=
8 div 10=
3169 |
3169 div 10= |
316
316 div 10=
31
31 div 10=
3
3 div 10=
0
25 mod 10=
5
2
2 mod 10=
834 mod 10=
83 mod 10=
8 mod 10=
4
3
8
3169 mod 10=
316 mod 10=
31 mod 10=
3 mod 10=
9
6
1
3
Задача 2
while x>0 do begin
x:=x div 10;
k:=k+1;
end;
k := 0;
a:=x mod 10;
x:=x div 10;
k:=k+1;
end;
Задача 2
while x>0 do begin
k := 0;
a:=x mod 10;
if a mod 2=0 then
x:=x div 10;
k:=k+1;
end;
Домашнее задание
Написать две программы в среде PascalABC, проверить программу для чисел: 25, 834, 3169.
Материалы на данной страницы взяты из открытых источников либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
