ЛАБОРАТОРНАЯ РАБОТА № 5а

Тема: Использование операторов цикла в программе на TurboPascal 7.0

Цель работы: Изучение возможностей использования оператора, реализующего цикл по условию. Овладение практическими навыками использования операторов Repeat…Until, While..Do

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

Структура оператора цикла с предусловием

While < логическое выражение > Do

Begin

P1;

P2;

Pn;

End;

Следующий оператор;

Оператор цикла While работает по следующему алгоритму: если логическое выражение после служебного слова While имеет значение True, то выполняются операторы P1, P2, PN записанные после слова Do, после чего проверка логического выражения повторяется. Если логическое выражение имеет значение False, то происходит выход из цикла и выполняется Следующий оператор

Структура оператора цикла с постусловием

Repeat

P1;

P2

Pn;

Until < логическое выражение>;

Следующий оператор;

Цикл с оператором Repeat начинается с выполнения операторов внутри цикла, поэтому цикл, организованный с помощью оператора Repeat, в любом случае выполнится хотя бы один раз. Затем проверяется логическое выражение и если оно истинно, то осуществляется выход из цикла. Если же значение логического выражения ложно, то выполнение операторов P1, P2, PN повторяется, а затем вновь проверяется логическое выражение.

 

Пример выполнения работы:

Условие   Вычислить сумму ряда. 1+1/1! +1/2! +1/3! +… Вычисления заканчивать при достижении заданной степени точности Е (т.е. очередной член ряда становится меньше введенной точности).   Var S, E: Real; N, I: Integer; Begin S: =1; Readln(E); I: =1; F: =1; {I основание факториала, F факториал} While 1/F> E do Begin S: =S+1/F; I: =I+1; F: =F*I; End; Writeln(s); End.

Условие:   Вычислить сумму целых чисел от 1 до 50, используя, оператор циклаRepeat Var k, sum: Integer; Begin k: =0; sum: =0; Repeat k: =k+1; sum: =sum+k; Until k=50; Writeln(' Сумма чисел от 1 до 50 = ', sum); End.

 

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

 

· Когда используются операторы цикла по условию?

· Как работает оператор цикл с предусловием?

· Как работает оператор цикл с постусловием?

 

Варианты к лабораторной работе №5а

(ваш номер по журналу соответствует номеру варианта)

 

№	Задание 1 Задание 2 Задание 3 Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности Е
	Найти минимальное число, больше 300, которое нацело делится на 19.
Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода второго нуля.
1/10+2/100+3/1000+..
	Ввести число. Определить сумму цифр во второй половине числа Пример, N=123456, результат 15.
Ввести целое числоN.Найти сумму первых N чётных натуральных чисел
1+1/101+1/201+1/301+…
	Ввести число. Получить другое число, путем удаления цифр 0 и 1, сохранив порядок следования оставшихся цифр. Пример, 201304, результат 234.
Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало =0.
1+1/22+ 1/32+ 1/42+ 1/52+…
	Ввести число N. Вывести число, получаемое выписыванием в обратном порядке цифр числа N. (например, 1234, результат 4321).
Последовательно вводятся числа, найти их произведение. Ввод остановить после ввода первого отрицательного значения.
1/(20*40)+2/(30*50)+3/(40*60)+..
	Ввести число. Вычислить сумму первой и последней цифры.
Вывести на экран чётные числа от 2 до 30.
1+2/2! +3/4! +4/6! +5/8! …
	Ввести число n. Приписать по 1 в начало и в конец записи числа n (например, N=345, результат 13451).
Вводится последовательность ненулевых чисел, 0-конец последовательности. Определить, сколько раз последовательность меняет знак
x+x2/2! + x3/3! + x4/4! + x5/5! +…
	Ввести число. Определить является ли оно степенью 3 (число 27 является, а 21 нет).
Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода первого нуля.
1/(2*4)+2/(3*5)+3/(4*6)+..
	Дано число N(N> 9) определить количество нулей, идущих подряд в младших разрядах данного числа. Пример, N=127000, результат удовлетворительно.
Ввести число (> 99). Найти среднее арифметическое всех цифр числа
1+1/10+1/100+1/1000+…
	Ввести число. Получить другое число путем замены нулей на 9
Ввести число n. Выяснить, входит ли цифра 3 в запись числа n
0, 0012+0, 0022/2! + 0, 0032/3! + …
	Определить, является ли последовательность цифр натурального числа при просмотре их справа налево возрастающей последовательностью. (например, 247 – да, 4628 – нет)
Ввести число n. Поменять порядок цифр числа n на обратный.
10+20/2! +30/4! +40/6! +50/8! …
	Ввести число. Определить, сколько раз в нем встречается цифра 8.
Ввести число. Определить, сколько раз в нем встречается цифра 1.
x2+x2/2! + x2/3! + x2/4! + x2/5! +…
	Ввести число. Определить, сколько раз в нем встречается цифра 4.
Вычислить сумму нечётных чисел от 1 до 99.
1+1/45+1/90+1/135+…
	Ввести число. определить сумму его цифр.
Определить сумму квадратов всех целых чисел в интервале, заданном значениями M и N.
1+1/2! +1/4! +1/6! +…
	Ввести число. Найти наименьшую цифру в записи числа.
Ввести число n. Определить, входит ли в состав числа цифры 2 и 3
1+1/3! +1/6! +1/9! +…
	Ввести число. Поменять местами первую и последнюю цифры числа (например, дано 2345, результат 5342).
Вводится последовательность чисел, 0-конец последовательности. Определить, содержит ли последовательность хотя бы два равных соседних числа.
0, 012+0, 022/2! + 0, 032/3! + …
	Найти минимальное число, больше 200, которое нацело делится на 12.
Ввести число n. Переставить первую и последнюю цифры числа n.
1+2/2! +3/4! +4/6! +5/8! …
	Вводится последовательность целых ненулевых чисел, признак окончания ввода – ввод 0. определить является ли последовательность возрастающей.
Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.
1/(3*4)+2/(4*5)+3/(5*6)+..
	Ввести число. Определить, сколько раз в нем встречается цифра 5
Ввести число n. Вывести две первые цифры числа
1+1/500+1/1000+1/1500+…
	Ввести число. определить количество четных цифр.
Ввести число n. Определить, входит ли в состав числа цифры 0 и 1.
1+0, 1/23+ 0, 1/33+ 0, 1/43+ …
	Ввести число. Вычислить сумму первой и последней цифры.
Последовательно вводятся числа, найти их произведение. Ввод остановить если произведение стало больше 50.
0, 12+0, 012/2! + 0, 0012/3! + …
	Ввести число. Определить является ли оно степенью 2 (число 16 является, а 22 нет).
Последовательно вводятся числа, найти их произведение. Ввод остановить после ввода второго отрицательного значения.
1/(2*4)+2/(3*5)+3/(4*6)+..
	Дано число N(N> 9) определить количество нулей в записи числа, кроме нулей в младших разрядах данного числа. Пример, N=10207000, результат 2.
Последовательно вводятся числа, найти их произведение. Ввод остановить после ввода значения которое больше 50.
1+1/23+ 1/33+ 1/43+ 1/53+…
	Ввести число. Найти наибольшую цифру в записи числа.
Ввести число (> 99). Найти сумму всех цифр числа.
1/(1*2*3)+2/(2*4*6)+3/(3*6*9)+..
	Ввести число. Получить другое число, путем удаления единиц, сохранив порядок следования оставшихся цифр. Пример, 213412, результат 2342.
Ввести число. Вывести все цифры числа, уменьшив каждую на единицу.
1+1/3! +1/6! +1/9! +…
	Ввести число. Определить сумму цифр в первой половине числа. Пример, N=123456, результат 6.
Последовательно вводятся числа, найти их сумму. Ввод остановить если сумма стала больше 100.
x2+x2/2! + x2/3! + x2/4! + x2/5! +…
	Ввести число. определить произведение его цифр.
Ввести число. Определить, сколько раз в нем встречается цифра 1.
1+1/150+1/200+1/250+…
	Вводится последовательность целых ненулевых чисел, признак окончания ввода – ввод 0. определить является ли последовательность знакочередующей (например, -2 1-4 5 -6 да, 4 7 -2 -3 нет).
Вычислить сумму чётных чисел на отрезке от 10 до 30.
1/(20*4)+2/(30*5)+3/(40*6)+..
	Ввести число n. Приписать к нему такое же число. (Например, дано 234, результат 234234).
Составить программу, запрашивающую пароль пользователя. В случае правильности пароля выводится на экран фраза: “ Можно приступать к работе! ”.
1/(2*3*4)+2/(3*4*5)+3/(4*5*6)+..
	Ввести число. Определить является ли оно степенью хорошо. (число 64 является, а 44 нет).
Последовательно вводятся числа, найти их произведение. Ввод остановить после ввода первого нуля
0, 12+0, 22/2! + 0, 32/3! + …
	Ввести число. Определить, сколько раз в нем встречается цифра 1
Последовательно вводятся числа, найти их сумму. Ввод остановить после ввода значения, которое больше 100.
x2+x2/2! + x2/3! + x2/4! + x2/5! +…
	Найти минимальное число, больше 400, которое нацело делится на 14.
Вычислить сумму нечётных чисел в диапазоне от 1 до 99 включительно
1+1/23+ 1/33+ 1/43+ 1/53+…