Процедуры и функции

1. Напишите программу вычисления среднего геометрического модулей двух введен­ных с клавиатуры целых чисел X и Y. Программа должна использовать цикл WHILE DO.
Условие выхода из цикла — значение числа, равное 999. (Среднее геометрическое — корень квадратный из произведения модулей.)

2. Напишите программу вычисления выражения у = (tg(X) + sin(X)) * e^cos(X) при Х=3.7. Результат вывести в формате 5:2.

3. Напишите программу, которая определит первое отрицательное число последовательности: А= Sin(i/100). i= 1,2,3...

4. Напишите программу, которая с помощью функции Chr выведет на экран кодовую
таблицу ПЭВМ (ASCII-таблицу). Задержите выведенную информацию на 5 с и очистите эк­ран.

5. Напишите программу, которая выведет на экран 10 строк по 5 случайных чисел в
диапазоне 0..36.

6. С помощью цикла FOR и функции Odd напишите программу, выводящую все нечет­ные числа в диапазоне 1..100.

7. Напишите программу, которая по значениям двух катетов вычисляет гипотенузу
площадь треугольника.

8. Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2.

9. Напишите процедуру-заставку к программе вычисления математических функций
виде:

******************************************

Программа

* вычисления математических функций *

Автор: Смирнов А.П.

*******************************************

Заставка выводится на очищенный экран, удерживается на экране 3 с, затем экран очищается. Вызовите процедуру Zastavka в начале программы.

10. Напишите функцию возведения в степень по формуле:

А^в = Exp(Ln(A)*B)

и используйте ее в программе для возведения в 4-ю степень вещественного числа 2,87.

11. Оформите процедуру Proverka проверки пользователя на право работы с программой. Используйте для этого пароль = SCHOOL Если пароль неправильный, выйти из программы по Halt.

12. Напишите программу вычисления функции Y по формуле:

Y=(Ln²(1+x)+Cos^ekx(x+1)), где Х=kz³, если k<1 и Х=Z(Z+1), при k>=1.

13.Напишите программу, состоящую из трех процедур и основной программы. Первая
процедура организует ввод двух целых чисел X и Y, вторая вычисляет их сумму, третья вы­водит результат. Используйте эти процедуры в основной программе. Используйте X,Y как глобальные переменные. Эта программа послужит прообразом всех ваших будущих программ, т.к. в ней реализуется принцип работы любой системы: логически выделенные ввод, обработка и вывод результата.

14. Напишите программу вычисления площади поверхности и длины экватора на основе известного радиуса планет солнечной системы. Форму планет будем считать шаром. Вы­числение площади и длины экватора оформите отдельными функциями.

15. Составить программу поиска большего из четырех чисел с использованием подпрограммы поиска большего из двух.

16. Даны координаты вершин многоугольника (xl,yl, х2,у2,..., х10,у10). Определить его
периметр (вычисление расстояния между вершинами оформить подпрограммой).

17. Вычислить сумму: 1! + 2! + 3! +...+n!, используя функцию вычисления факториала
числа k!

18. Вычислить сумму простых, сверхпростых, совершенных чисел, не превосходящих
заданного числа N.

19. Составьте программу вычисления числа сочетаний из N по М. Число сочетаний оп­ределяется по формуле N!/(M!*(N—М)!), где N — количество элементов перебора. Исполь­зуйте подпрограмму вычисления факториала.

20. Определить НОД трех натуральных чисел.

21. Даны действительные числа s,t. Составить программу вычисления выражения
f(t,—2s, 1.17) + f(2.2,t, s—t), где f(a,b,c) = (2a—b—sin(c))/(5+|c|).

22. Дано натуральное число N. Составить программу, определяющую, есть ли среди чи­сел n, n+1,..., 2n близнецы, т. е. простые числа, разность между которыми равна 2. (Исполь­зовать процедуру распознавания простых чисел).

23. Составьте программу перевода двоичной записи натурального числа в десятичную.

24. Составьте программу сокращения дроби M/N, где М, N — натуральные числа.

25. Составьте программу вычисления суммы квадратов простых чисел, лежащих в интервале (M,N).

26. Составьте программу подсчета числа четных цифр, используемых в записи N-значного числа М.

27. Составьте программу вычисления суммы трехзначных чисел, в десятичной записи
которых нет четных цифр.

28. Составьте программу вывода на экран всех натуральных чисел, не превосходящих N
и делящихся на каждую из своих цифр.

29. Составьте программу нахождения наименьшего натурального N-значного числа X
(Х>=10), равного утроенному произведению своих цифр.

30. Составьте программу подсчета числа всех натуральных чисел, меньших М, квадрат
суммы цифр которых равен X.

Дата добавления: 2017-01-14