Контрольные вопросы
Что такое вложенные циклы?
Как соотносятся (изменяются) параметры внешнего и внутреннего циклов?
Какие циклы могут быть внутренними (внешними)?
Организуйте вычисление двойного произведения.
Что такое глубина вложения циклов и чем она ограничена?
Поясните метод численного интегрирования с заданной погрешностью.
В чем суть метода прямоугольников?
Среди целых чисел от 1 до 30 найдите пары чисел, первое из которых равно 2/3 от второго, а второе - 3/2 от первого.
Организуйте вычисление двойной суммы.
Могут ли в программе идти три цикла с параметром подряд?
Варианты задания
Найти все совершенные числа из диапазона [0, 10000].
Вывести состав чисел, кратных 16, на отрезке [2103, 2401].
Преобразовать делящиеся на 7 числа из диапазона [20, 50] в двоичные.
Для x [0,3; 0,7] с шагом 0,05 и погрешностью 0,001 вычислить
Arctg(x)
=
.
Построить зависимость Sin(x)/x =
на отрезке [0, 1] с шагом 0,1 и погрешностью
0,001.Выяснить зависимость корня уравнения ln(x)-x+p=0 от p [1,2; 2,0] (шаг 0,2) на отрезке [1,5; 3,5] методом простой итерации с погрешностью 0,001.
Организовать цикл преобразования вводимых с клавиатуры двоичных чисел в десятичные с прекращением цикла вводом символа ‘!’.
Вычислить n! Для всех делящихся на 3 n 15.
Не используя экспоненту, возвести в десятую степень все x [1,1; 1,2] с шагом 0,01.
Найти все простые числа в диапазоне от 10 до 64.
Для x [-0,4; 0,4] с шагом 0,1 и погрешностью 0,001 определить
Ln(1-x)
= -
.
12. Выявить числа-палиндромы из диапазона от 100 до 255, не используя при этом стринг (массив).
13. Среди чисел, меньших 500, найти числа, равные сумме кубов цифр, образующих число.
14. Вычислить с
погрешностью 0,001 для x
[0,1; 0,9] с шагом 0,1 значение Sin(x)
=
.
15. Вывести на экран
все Пифагоровы числа, не превышающие
20. Пифагоровы числа удовлетворяют
условию
.
16. Вычислить
для всехn
[2, 10] с погрешностью 0,001 по формуле
Ньютона:
q(k+1)=[q(k)+n/q(k)]/2,-
где q(k+1)
- очередное приближение корня, а q(k)
- предыдущее приближение.
17. Найти числа из диапазона word, равные сумме факториалов их цифр (например, 145=1! + 4! + 5!).
18. Вычислить с
учетом 50 слагаемых exp(x)
=
для x
[-0,5; 0,5] с шагом 0,1.
19. Вычислить с
погрешностью 0.001 для x
[0,1; 0,8] с шагом 0,1 cos(x)=
.
20. С погрешностью
0,001 и шагом 0,1 вычислить для x
[0,1; 0,8] sin(x)=
.
21. Вывести номера первых семи счастливых билетов.
22. Определить все
числа отрезка [0, 1000], которые равны
квадрату своих последних цифр, наприме
.
23. С погрешностью
0,001 вычислить
,
гдеn-число
прямоугольников с основанием h=1/n,
f(x)=sin(x)/x
.
24. Вычислить для
x
[0,
1] с шагом
0,1: если x
< 0,5, то r=
;
если x
0,5, то r=
.
25. Вычислить сумму всех произведений в варианте 24.
Библиографический список
Епанешников А.М., Епанешников В.А. Программирование в среде Turbo Pascal 7.0. М.: Диалог-МИФИ, 1996. 288 с.
Зубов В.С. Программирование на языке TURBO PASCAL (версии 6.0 и 7.0). М.: Информационно-издательский дом «Филинъ», 1997. 304 с.