Система задач и упражнений по языку программирования Pascal. Часть 1 - 14 стр.

UptoLike

14
4.10. Назовем шестизначное число счастливым, если сумма первых трех его цифр
равна сумме последних трех. Подсчитать количество счастливых шестизначных
чисел, у которых сумма первых трех цифр равна 13.
4.11. Подсчитать количество "счастливых" шестизначных билетов.
Задание 5
Составьте программу, которая разбивает число n на цифры и печатает их в столбик.
Дополните программу для решения одной
из следующих задач.
5.1. Сколько цифр в числе N?
5.2. Чему равна сумма его цифр?
5.3. Получить сумму m последних цифр числа n.
5.4. Выяснить, входит ли цифра 3 в запись числа n.
5.5. Поменять порядок цифр числа n на обратный.
5.6. Переставить первую и последнюю цифры числа n.
5.7. Приписать по единице в начало и конец
записи числа n.
5.8. Дано натуральное число n. Выбросить из записи числа n цифры 0 и 5, оставив
прежним порядок остальных цифр. Например, из числа 59015509 должно
получиться 919.
Проследите исполнение программы в пошаговом режиме(F7), создав в
Watch-окне (Ctrl+F7) список промежуточных величин задачи.
Лабораторная работа 6
Циклы
Цель работы
: Закрепить умения составлять алгоритмы с использованием команды
повторения в различных видах.
Задание 1
Составьте программу для решения одной из следующих задач. Вычислить.
1.1.
11 1
24
2
aa
a
n
+++..
.
1.2. a+a(a+1)+a(a+1)(a+2)+...+a(a+1)...(a+n-1).
1.3.
11
1
1
1aaa aa an
+
+
++
++()
...
()...( )
.
1.4.
1
1
1
12
1
1sin sin sin
...
sin ...sin ( )
+
+
++
+ n
.
1.5. 1!+2!+...+n!.
1.6. sin(x)+sin(sin(x))+... +sin(...sin(x)) (n слагаемых).
1.7. cos(x)+cos(cos(x))+... +cos(...cos(x)) (n cлагаемых).
1.8. 1*2+2*3*4+...+n*(n+1)...(2n).
Задание 2
Не используя стандартные функции (за исключением модуля), вычислить с
точностью ε>0 (считать, что требуемая точность достигнута, если модуль очередного
слагаемого меньше ε).
2.1. y=e
x
=
=0
!
n
n
n
x
2.5. y=arctg(x)=
()
+
+
=
1
21
21
0
nn
n
x
n