Лабораторная работа №3
Цель работы: научиться разрабатывать простые циклические алгоритмы и программы с заданным числом повторений, выполнять их отладку и испытание.
Задания
- Откройте файл FACT.PAS. Протестируйте содержащуюся в нем программу и проследите при этом за изменением переменных i и P. Выполните программу для n =20. Объясните полученный результат. Укажите диапазон значений n, для которых n! программа вычисляет правильно. Измените программу так, чтобы ввод значения n повторялся до тех пор, пока не будет введено значение из указанного диапазона. Можно ли для этого использовать оператор цикла с постусловием? Оператор цикла с параметром?
- Измените программу FACT, полученную при выполнении задания 4, организовав вычисление произведения
в обратном порядке, то есть 
. - Составьте программу вычисления суммы первых 15 членов ряда 1+2+3+…+15.
- Найти сумму натуральных чисел от 2 до 56, кратных 5.
- Найти произведение натуральных нечетных чисел от n1 до n2.
- В 1626 г. индейцы продали остров Манхэттен за 20 долларов. Если бы эти деньги были помещены в банк на текущий счет, и ежегодный прирост составлял бы 4%, какова была бы величина капитала в 2006 г.?
- Найти сумму положительных нечетных чисел, меньших 100.
- Дано натуральное число n (n
1999). Определить, является ли оно палиндромом («перевертышем»), с учетом четырех цифр. Например, палиндромами являются числа: 2222, 6116, 0440.
Подсказка. Так как число четырехзначное, то переменная оператора For изменяется от 1 до 4. В переменной с именем m хранится «остаток» числа, в первоначальный момент времени он равен введенному числу. В переменной с именем r формируем значение числа – «перевертыша». Основными операциями являются: r:=10*r + m mod 10 (добавление очередной цифры к числу «перевертышу») и m:=m div 10 (изменение проверяемого числа). Изменения переменных i, m и r см. в таблице.
| i | m | r |
| – | ||
| 0*10+3994 mod 10=0+4=4 | ||
| 4*10+399 mod 10=40+9=49 | ||
| 49*10+39 mod 10 =490+9=499 | ||
| 499*10+3 mod 10=4990+3=4993 |
- Измените программу, составленную при выполнении предыдущего задания, так, чтобы можно было определять, является ли число палиндромом, независимо от количества цифр в числе.
- Вывести на экран все трехзначные числа, сумма цифр которых равна N.
Пытаться перебирать все трехзначные числа от 100 до 999, затем каким-то образом делением и вычитанием выделять отдельные цифры, искать их сумму, сравнивать с N достаточно сложно. Исходя из того, что трехзначное число состоит из 3 цифр, причем первая изменяется от 1 до 9, а вторая и третья – от 0 до 9.
program primer10;
var i,j,k,n:integer;
begin
write('Введите N=');
readln(n);
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i+j+k=n then writeln(i,j,k);
end.
Оператор writeln(i,j,k) выводит на экран три цифры без пробела, поэтому они на экране выглядят как одно число. Хотя можно было вывести, учитывая, что i-сотни, j-десятки, k-единицы, и так: writeln(i*100+j*10+k).
Задание:
А) Сколько существует «счастливых» четырехзначных билетов? Счастливым считается билет, у которого сумма первых двух цифр равна сумме двух последних.
Б) Сколько раз в написании всех трехзначных чисел встречается цифра N?
