2. Какое значение примет переменная х в результате выполнения следующих фрагментов программ?

1) x:=1; while x<10 do x:=x+3; x:=x+1; Ответ: ______.

2) x:=1; while x<10 do begin x:=x+3; x:=x+1; end; Ответ: ______.

3) x:=1; while x<>1 do begin x:=x+3; x:=x+1; end; Ответ: ______.

4) x:=1; while x<100 do begin x:=x*2; end; Ответ: _____

Д ополнительное задание

1.В ЭВМ вводятся по очереди координаты n точек. Определить, сколько из них попадет в круг радиусом r и с центром в точке (а,b).

2.Составьте программу вывода на экран всех простых чисел, не превосходящих заданного n (простым называется натуральное число больше 1, имеющее только два делителя: 1 и само это число).

3.В 1202г. Итальянский математик Леонард Фибоначчи предложил такую задача пара кроликов каждый месяц дает приплод – двух кроликов ( самца и самку), от которых через два месяца уже получается новый приплод. Сколько кроликов будет через год, если в начале года имелась одна пара ? Согласно условию задачи, числа, соответствующие количеству кроликов, которые появляются через каждые месяц, составляют последовательность 1,1,2,3,5,8,13,21,34

4. Дано натуральное число N. Определить:

• количество цифр числа;

• сумму цифр;

• младшую и старшую цифры числа;

• есть ли в записи числа цифра 5.

III. Оператор цикла с постусловием REPEAT

Основные понятия

Структура цикла с REPEAT:

Repeat <тело_цикла> until <условие>;

Внимание! Проверка условия осуществляется после каждого выполнения тела цикла, а сам цикл выполняется до тех пор, пока условие не станет истинным.

Задания

Задача сложности A

1. Вычислить сумму ряда s = sin(1) + sin(2) + ... +sin(n), для n введённого с клавиатуры.

2. Вычислите значение функции y=x³-x²+16x-43 для x изменяющегося в диапазоне от -4 до 4 включительно с шагом 0,5.

3. Написать программу вычисления суммы всех двухзначных чисел.

Задача сложности B

1. Вычислить сумму ряда

2. Дано натуральное число. Определить, является ли оно простым.

3 .Написать программу, которая требует пароль. Например, пароль 111, и если он правильный, то заполняет все строки экрана “МОЛОДЕЦ”.Если после пятой попытки пароль все равно не верен – выйти из программы.

Задача сложности C

1. Вычислить сумму ряда

2. Вводится последовательность из N целых чисел. Найти наибольше из всех отрицательных.

3. Написать программу, которая вводит любые символы, но комментирует только русские буквы. Завершение работы программы – по нажатию клавиши “Я”.

Контрольные вопросы

1. Тест №3.

2. Какое значение примет переменная х в результате выполнения следующих фрагментов программ?

1) x:=1; repeat x:=x+1; until x>10; Ответ: ______.

2) x:=1; repeat x:=x+3; x:=x+1; until x>10; Ответ: ______.

3.Дано действительное число 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.