Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

While Eps1>1.0 do 
begin Eps:=Eps/2; Eps1:=Eps+1 end; ...
37. Каково условие повторения тела цикла в данном фрагменте 
программы? 
...
Repeat 
S:=S+1/N; N:=N+1 
until N>50; ...
38. Какому оператору будет передано управление в данном 
фрагменте программы, если условие j <= x станет ложным? 
...
While j<=x do 
begin i:=i+2; j:=j+i end; 
Write ('Результат: ',(i-1) DIV 2) 
End. 
39. Сколько раз выполниться тело цикла в данном фрагменте 
программы? 
For i:=1 to 50 do S:=S+1/i; 
 
Задания для самостоятельного выполнения 
1. В каждой задаче составьте блок-схему и напишите программу 
решения задач.
2. Оформите отчет по лабораторной работе, который должен 
состоять из следующих разделов: номера лабораторной работы и ее 
названия, условия каждой задачи, ее блок-схемы и программы. 
3. Для задачи 1 использовать оператор цикла с постусловием, 
для задачи 2 – оператор цикла с предусловием, для задачи 3 – опе-
ратор цикла с параметром, для задачи 4 любой оператор цикла. 
 
 

---

65 
Вариант № 1 
1. Составьте таблицу значений функции y= x
2
 – 2x +5 на отрезке 
[a; b] с шагом h. 
2. Сумма в А, руб., лежит на расчетном счету. На сумму начис-
ляется в % каждый год прибыли на ту сумму, которая находится на 
счету. Прибыль со счета не снимается. Через сколько лет данная 
сумма удвоится? 
3. Дан натуральный отрезок [a; b]. Выведите из него все четные 
числа. 
4. В каких двузначных числах удвоенная сумма цифр равна их 
произведению?