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

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

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

2. Запишите правильную структуру последовательности операторов.а:=2; b:=l; while a+b<8 do begin a:=a+l; b:=b+l end; s:=a+b. Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после его завершения?

3. Запишите правильную структуру последовательности операторов. Какими будут значения переменных а и b после выполнения операторов?а:=1; b:=l; while а<=8 do а:=а+1; b:=b+l.

4. Дана последовательность операторов, вычисляющих факториал f числа я, которая содержит пять ошибок. Найдите эти ошибки, предварительно записав операторы в правильном виде.k:=l;f:=0; while k<n do f=f*kk:=k+l,Примечание. Факториалом натурального числа называется произведение всех натуральных чисел от 1 до этого числа, т. е. n!=1*2*3*...*(n—2)*(n—1)*n.

5. Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке.р:=n;while р>=0 do beginа:=а+р mod 10; р:=р div 10 end;

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

2. а:=2; b:=1;while a+b<8 do begin a:=a+l;b:=b+l end;s:=a+b.2 раза; a = 5, b = 3, s = 8.

3. a:=2; b:=3;while a<=7 doа:=а+1; b:=b+l; а = 8, b = 4.4. k:=1; f:=l;while k<=n do f=f*k; k:=k+l; end;

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

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

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

Иногда при решении задач возникает необходимость выполнить тело цикла хотя бы один раз, а потом исследовать условие, повторять ли его еще раз. Эту задачу выполнит другой вид цикла Repeat.

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

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

repeat read (Number);Sum:=Sum+Number; until Number=- 1 repeati:= i+1; writeln (Sqr(i)) until Number=-1

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

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

Var i, Number : integer; {возможный делитель и исследуемое число} Beginwriteln ('Какое число должно быть проверено?'); read (Number); i:=l; repeati:=i+l;until Number mod i=0;if Number=i then writeln(Number,'является простым')else writeln(Number,'делится на',i);End.

Задание 2. Выведите на экран строку из звездочекРешение:Var i, n: integer;beginwrite('Количество знаков:'); readln(n);i:=l; repeatwrite(' (*)'); i:=i+l until i&gt;n;end.

Задание 3. Выведите квадраты натуральных чисел, не превосходящих 50.Решение: var х, n: integer; beginwrite('Enter n:'); readln(n);x:=l;repeatу:=х*х;if y&lt;n then write(y,' ');x:=x+1;until y&gt;n;end.

Задание 4. Найдите НОД двух чиселРешение:Var х, у: integer;BeginWriteln ('Введите два числа'); readln(x, у);RepeatIf х&gt;у then х:=х mod у else у:=у mod х;Until (х=0) Or (у=0); Writeln ('НОД=',х+у)); End.

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

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

program dz1;Var А, В, С, nod: integer; BeginReadln(A,B,C); RepeatIf 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; RepeatIf nod>C then nod:=nod mod С else C:=C mod nod; Until (nod=0) or (C=0); Writeln ('НОД=’,nod+C); End.

program dz2;var n, m, i, nok: integer; Beginwrite('введите два числа');readln(n, m);if(m<>0) and (n<>0) thenbeginnok:=n*m; i:=nok;while i>0 do beginif (i mod n=0) and (i mod m=0) then nok:=i; i:=i-1; end;writeln('NOK',m,'i',n,'raven',nok)end else writeln ('Na nol delit nelzya');end.