III. Оператор цикла с постусловием Repeat
Основные понятия
Repeat <тело_цикла> until <условие>;
Проверка условия осуществляется после каждого выполнения тела цикла, а сам цикл выполняется до тех пор, пока условие не станет истинным.
Задание
Выполните задания, размещённые на слайде № 62 презентации.
Контроль знаний
1. Какое значение примет переменная х в результате выполнения приведённых ниже фрагментов программ?
x:=1; repeat x:=x+1; until x>10;
Ответ: ______.
|
x:=1; repeat x:=x+3; x:=x+1; until x>10;
Ответ: ______.
|
2. Дано
действительное число A.
Найдите первое значение числа N,
при котором сумма
превышает
A.
Какая из предложенных программ решает
эту задачу? Ответ: ________.
VAR N:integer; А, s:real; BEGIN Read(A); s:=0; N:=1; repeat s:=s+1/N; N:=N+1; until s>A; WriteLn (N); END.
|
VAR N:integer; А, s:real; BEGIN Read(A); s:=1; N:=1; repeat s:=s+1/N; N:=N+1; until s>A; WriteLn (N); END.
|
VAR N:integer; А, s:real; BEGIN Read(A); s:=0; N:=1; repeat s:=s+1/N; N:=N+1; until s<=A; WriteLn(N); END. |
VAR N:integer; А, s:real; BEGIN Read(A); s:=0; N:=1; repeat s:=s+1/N; until s>A; WriteLn (N); END.
|
Тема 6. Символьный тип
Цель
Научиться использовать на практике операции по обработке переменных типа Char.
Задачи
Дать основное понятие данным типа Char.
Научиться инициализировать переменные типа Char в программе.
Научиться использовать на практике основные операции, применимые к данным типа Char.
Основные понятия
Задания
1. Выполните задания, размещённые на слайде № 70 презентации.
2. Обсуждение урока 25 «Какой ты за собой оставишь след, или Типизированные константы» интерактивного электронного учебника.
Контроль знаний
1. Каким будет значение переменной y после выполнения приведённых ниже фрагментов программ?
x:=30; case 3+x div 8 of 1, 2, 3: y:=10; 4..7: y:=20; 8..30: y:=30; else y:=100; end;
Ответ: __________. |
x:= 'c'; case succ(x) of '0'.. '9': y:=1; 'b': y:=2; 'c': y:=3; 'd': y:=4; 'e' : y:=5; else y:=100; end;
Ответ: __________. |
x:=2*3; case x of 2, 3: y:=1; 4: y:=2; 6-1, 1: y:=3; 7, 5: y:=4; 1, 2, 5+1: y:=5; else y:=100; end;
Ответ:_________. |