Презентация к уроку информатика 9 класс : "Циклы с предусловием"
Оценка 5

Презентация к уроку информатика 9 класс : "Циклы с предусловием"

Оценка 5
pptx
12.12.2020
Презентация к уроку информатика 9 класс : "Циклы с предусловием"
Циклы с предусловием.pptx

Цикл с предусловием

Цикл с предусловием

Цикл с предусловием

Цикл с предусловием While условие do оператор;

Цикл с предусловием While условие do оператор;

Цикл с предусловием

While условие do оператор;

While условие do begin
оператор 1;
оператор 2;

оператор n;
end;

Цикл с предусловием Условия работы

Цикл с предусловием Условия работы

Цикл с предусловием

Условия работы

Особенности цикла

Цикл может не выполняться ни разу

Цикл работает, если условие истинно.

Задача 1 Написать программу, определяющую количество цифр в записи произвольного натурального числа

Задача 1 Написать программу, определяющую количество цифр в записи произвольного натурального числа

Задача 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…

Задача 1 25 25 div 10= 2 0 834 834 div 10= 83 8 0 2 div 10= 83 div 10= 8 div 10= 3169…

Задача 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;

Задача 1 while x>0 do begin x:=x div 10; k:=k+1; end ; k := 0;

Задача 1

while x>0 do begin
x:=x div 10;
k:=k+1;
end;

k := 0;

Задача 2 Написать программу, определяющую количество четных цифр в записи произвольного натурального числа

Задача 2 Написать программу, определяющую количество четных цифр в записи произвольного натурального числа

Задача 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…

Задача 1 25 25 div 10= 2 0 834 834 div 10= 83 8 0 2 div 10= 83 div 10= 8 div 10= 3169…

Задача 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 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
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;

Задача 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;

Задача 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.

Скачать файл