Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.

Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть

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

Содержание

2. 1. Запишите конструкцию цикла с предусловием. В каких случаях применяется цикл с предусловием?
3. 2. Запишите правильную структуру последовательности операторов.а:=2; b:=l; while a+b
4. 3. Запишите правильную структуру последовательности операторов. Какими
5. 4. Дана последовательность операторов, вычисляющих факториал f
6. 5. Найдите и исправьте ошибки в следующем
7. Ответы:while do begin группа операторов end; Когда до выполнения цикла количество повторов неизвестно.
8. 2. а:=2; b:=1;while a+b
9. 3. a:=2; b:=3;while a
10. 5. read(n);p:=n; a:=0;while p>=0 do begina:=a*10+p mod 10; p:=p div 10 end;
11. Вы уже умеете организовать цикл при помощи
12. Если условие истинно, то исполнительная часть оператора
13. Иногда при решении задач возникает необходимость выполнить
14. repeat повторяй операторыuntil ; до тех пор,
15. Конструкция repeat... until работает аналогично циклу while.
16. Например:repeat read (Number);Sum:=Sum+Number; until Number=- 1 repeati:= i+1; writeln (Sqr(i)) until Number=-1
17. Практическая работа
18. Задание 1. Определите, является ли данное число
19. Решение:Var i, Number : integer; {возможный делитель
20. Задание 2. Выведите на экран строку из
21. Задание 3. Выведите квадраты натуральных чисел, не
22. Задание 4. Найдите НОД двух чиселРешение:Var х,
23. Вывод Как программируется цикл с постусловием на языке Паскаль?Для каких целей лучше его использовать?
24. Домашнее заданиеСоставить программу нахождения НОД трех чисел.
25. program dz1;Var А, В, С, nod: integer;
26. Скачать презентацию
27. Похожие презентации

1. Запишите конструкцию цикла с предусловием. В каких случаях применяется цикл с предусловием?

Проверочная работа «Цикл с предусловием»

2. Запишите правильную структуру последовательности операторов.а:=2; b:=l; while a+b

3. Запишите правильную структуру последовательности операторов. Какими будут значения переменных а и

4. Дана последовательность операторов, вычисляющих факториал f числа я, которая содержит пять

5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного

Ответы:while do begin группа операторов end; Когда до выполнения цикла количество повторов неизвестно.

5. read(n);p:=n; a:=0;while p>=0 do begina:=a*10+p mod 10; p:=p div 10 end;

Вы уже умеете организовать цикл при помощи оператора while. Напомним, что при

Если условие истинно, то исполнительная часть оператора while будет выполняться до тех

Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один

repeat повторяй операторыuntil ; до тех пор, пока условие не будет вернымЕсть

Конструкция repeat... until работает аналогично циклу while. Различие заключается в том, что

Например:repeat read (Number);Sum:=Sum+Number; until Number=- 1 repeati:= i+1; writeln (Sqr(i)) until Number=-1

Задание 1. Определите, является ли данное число простым. Примечание. Простым называется число,

Решение:Var i, Number : integer; {возможный делитель и исследуемое число} Beginwriteln ('Какое

Задание 2. Выведите на экран строку из звездочекРешение:Var i, n: integer;beginwrite('Количество знаков:');

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

Задание 4. Найдите НОД двух чиселРешение:Var х, у: integer;BeginWriteln ('Введите два числа');

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

Домашнее заданиеСоставить программу нахождения НОД трех чисел. НОД(а,b,с)=НОД(НОД(а,b,с).Составить программу нахождения НОК двух

program dz1;Var А, В, С, nod: integer; BeginReadln(A,B,C); RepeatIf A>B then A:=A

program dz2;var n, m, i, nok: integer; Beginwrite('введите два числа');readln(n, m);if(m0) and

Слайды презентации

Слайд 2 1. Запишите конструкцию цикла с предусловием.
В каких

случаях применяется цикл с предусловием?

Слайд 3 2. Запишите правильную структуру последовательности операторов.
а:=2; b:=l; while

a+b

будет повторен цикл и какими будут значения переменных a, b, s после его завершения?

Слайд 4 3. Запишите правильную структуру последовательности операторов. Какими будут

3. Запишите правильную структуру последовательности операторов. Какими будут значения переменных а

значения переменных а и b после выполнения операторов?
а:=1; b:=l;

while а<=8 do а:=а+1; b:=b+l.

Слайд 5 4. Дана последовательность операторов, вычисляющих факториал f числа

4. Дана последовательность операторов, вычисляющих факториал f числа я, которая содержит

я, которая содержит пять ошибок. Найдите эти ошибки, предварительно

записав операторы в правильном виде.
k:=l;f:=0;
while kk:=k+l,
Примечание. Факториалом натурального числа называется произведение всех натуральных чисел от 1 до этого числа, т. е. n!=1*2*3*...*(n—2)*(n—1)*n.

Слайд 6 5. Найдите и исправьте ошибки в следующем фрагменте

5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для

программы, определяющей для заданного натурального числа n число, записанное

цифрами числа n в обратном порядке.
р:=n;
while р>=0 do begin
а:=а+р mod 10;
р:=р div 10
end;

Слайд 7 Ответы:
while do begin группа операторов end;

Когда до выполнения цикла количество повторов неизвестно.

Слайд 8 2.
а:=2;
b:=1;
while a+b

раза;
a = 5, b = 3, s =

Слайд 9 3. a:=2; b:=3;
while a

8, b = 4.
4. k:=1; f:=l;
while k

k:=k+l;
end;

Слайд 10 5. read(n);
p:=n; a:=0;
while p>=0 do
begin
a:=a*10+p mod 10;

p:=p div 10
end;

Слайд 11 Вы уже умеете организовать цикл при помощи оператора

Вы уже умеете организовать цикл при помощи оператора while. Напомним, что

while.
Напомним, что при выполнении этого оператора компьютер вычисляет

значение условия.

Слайд 12 Если условие истинно, то исполнительная часть оператора while

Если условие истинно, то исполнительная часть оператора while будет выполняться до

будет выполняться до тех пор, пока это условие не

примет значение false.
Если значение условия есть false в самом начале, то исполнительная часть оператора while вообще не будет выполняться.

Слайд 13 Иногда при решении задач возникает необходимость выполнить тело

Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы

цикла хотя бы один раз, а потом исследовать условие,

повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.

Слайд 14 repeat повторяй операторы
until ; до тех пор, пока

repeat повторяй операторыuntil ; до тех пор, пока условие не будет

условие не будет верным
Есть небольшое отличие в организации цикла

repeat по сравнению с while: для выполнения в цикле repeat нескольких операторов не следует помещать эти операторы в операторные скобки begin... end. Зарезервированные слова repeat и until действуют как операторные скобки.

Слайд 15 Конструкция repeat... until работает аналогично циклу while. Различие

Конструкция repeat... until работает аналогично циклу while. Различие заключается в том,

заключается в том, что цикл while проверяет условие до

выполнения действий, в то время как repeat проверяет условие после выполнения действий, это гарантирует хотя бы одно выполнение действий до завершения цикла.

Слайд 16 Например:
repeat
read (Number);
Sum:=Sum+Number;
until Number=- 1
repeat
i:= i+1;

writeln (Sqr(i))
until Number=-1

Слайд 17 Практическая работа

Слайд 18 Задание 1.
Определите, является ли данное число простым.

Задание 1. Определите, является ли данное число простым. Примечание. Простым называется

Примечание. Простым называется число, которое не имеет делителей, кроме

1 и самого себя.

Слайд 19 Решение:
Var i, Number : integer; {возможный делитель и

Решение:Var i, Number : integer; {возможный делитель и исследуемое число} Beginwriteln

исследуемое число}
Begin
writeln ('Какое число должно быть проверено?');
read

(Number);
i:=l;
repeat
i:=i+l;
until Number mod i=0;
if Number=i then writeln(Number,'является простым')
else writeln(Number,'делится на',i);
End.

Слайд 20 Задание 2. Выведите на экран строку из звездочек
Решение:
Var

Задание 2. Выведите на экран строку из звездочекРешение:Var i, n: integer;beginwrite('Количество

i, n: integer;
begin
write('Количество знаков:'); readln(n);
i:=l;
repeat
write(' (*)');
i:=i+l
until

i>n;
end.

Слайд 21 Задание 3. Выведите квадраты натуральных чисел, не превосходящих

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

50.
Решение:
var х, n: integer;
begin
write('Enter n:'); readln(n);
x:=l;
repeat
у:=х*х;
if y

then write(y,' ');
x:=x+1;
until y>n;
end.

Слайд 22 Задание 4. Найдите НОД двух чисел
Решение:
Var х, у:

Задание 4. Найдите НОД двух чиселРешение:Var х, у: integer;BeginWriteln ('Введите два

integer;
Begin
Writeln ('Введите два числа'); readln(x, у);
Repeat
If х>у then х:=х

mod у else у:=у mod х;
Until (х=0) Or (у=0);
Writeln ('НОД=',х+у));
End.

Слайд 23 Вывод
Как программируется цикл с постусловием на языке

Паскаль?
Для каких целей лучше его использовать?

Слайд 24 Домашнее задание
Составить программу нахождения НОД трех чисел. НОД(а,b,с)=НОД(НОД(а,b,с).
Составить

Домашнее заданиеСоставить программу нахождения НОД трех чисел. НОД(а,b,с)=НОД(НОД(а,b,с).Составить программу нахождения НОК

программу нахождения НОК двух чисел, используя формулу А х

B = НОД (A, В) х НОД (A, В).

Слайд 25 program dz1;
Var А, В, С, nod: integer;
Begin
Readln(A,B,C);

program dz1;Var А, В, С, nod: integer; BeginReadln(A,B,C); RepeatIf A>B then

Repeat
If A>B then A:=A mod B else B:=B mod

A;
Until (A=0) or (B=0);
Writeln('HOД=’ ,A+B);
nod:=A+B;
Repeat
If nod>C then nod:=nod mod С else C:=C mod nod;
Until (nod=0) or (C=0);
Writeln ('НОД=’,nod+C);
End.