Задачи в Pascal!

[blondinka-malinka]

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

1. Имеется программа, находящая максимумы в парах чисел: x и y, x и 0,5у, х/2 и 2у/5, у/х и х/у.

Program Maxx;
var x,y: real;
begin write('Введите x и y ');
readln(x,y);
if x>y then writeln('Максимум: ',x) else writeln('Максимум: ' ,y);
if x>0.5*y then writeln('Максимум: ',x) else writeln('Максимум: ' ,0.5*y);
if x/2>2*y/5 then writeln('Максимум: ',x/2) else writeln('Максимум: ' ,2*y/5);
if y/x>x/y then writeln('Максимум: ',y/x) else writeln('Максимум: ' ,y/x);
end.

Создайте функцию, находящую максимальное значение в произвольной паре чисел. Реализуйте решение задачи с помощью данной функции.

Входные данные: x, y
Выходные данные: max

2. Написать программу с функцией, вычисляющей значение у=|3sin(x/6+1)|

Входные данные: x
Выходные данные: у

3. Написать программу с функциями у, g, p. вычислить р= (5у-6g)/(y2-g2), если y=5x2x+1, g=ln(x+1).

Входные данные: число х
Выходные: число функции р

4. Написать программу с функцией, определяющей кратность длины строки, введенной пользователем, числу, введенному пользователем.

Входные данные: строка, число
Выходные данные: сообщение о кратности длины строки

Пример:
Входные данные: «мама мыла раму», 5
Выходные данные: не кратное

5. Составить программу перестановки значений переменных a, b и c в порядке возрастания, т.е. так, чтобы a<b<c. Перестановку двух чисел организовать в виде процедуры Swap(x,y).

Входные данные: три целых числа a, b, c
Выходные данные: эти же числа, расставленные в порядке возрастания

6. Разработать процедуру, проверяющую, является ли число простым. С ее помощью найти и вывести на экран все простые числа из интервала от n до m.

Входные данные: два целых числа n и m
Выходные данные: все простые числа из диапазона от n до m

7. Написать программу, содержащую процедуру перевода числа из градусной меры в радианную. Значение угла в градусах и радианах вывести на экран.

Входные данные: целое число, задающее угол в градусах
Выходные данные: значение угла в радианах (с точностью до десятитысячных)

8. Составить программу подсчета числа сочетаний С(n, m)=n!/(m!*(n-m)!). Организовать функцию подсчета факториала числа – Fact(n).

Входные данные: два целых числа n и m.
Выходные данные: число сочетаний С(n, m)

[blondinka-malinka]

Помогите, пожалуйста, решить задачи!