uses crt;
function Min(a, b: integer): integer;
Begin
If a<b then Min:=a
else Min:=b
End;
Var x, y, z: integer;
BEGIN
write (‘Первое число- ’);
readln (x);
write (‘Второе число- ’);
readln (y);
z:=Min(x, y);
writeln (‘Меньшее из двух чисел- ’,z);
END.
Программа, содержащая описание процедуры удвоения аргументов.
Uses crt;
Procedure Double (var x, y: integer);
Begin
x:=x+x;
y:=y+y;
End;
Var a, b: integer;
BEGIN
write (‘Введите исходные данные’)’
readln (a);
readln (b);
double (a, b);
wrteln (‘Полученные данные- ’,a ,b);
END.
Таблица 3
| 1. Опишите функцию нахождения наибольшего из трёх чисел.. |
| 2. Опишите функцию нахождения гипотенузы по двум катетам. |
| 3. Опишите функцию нахождения катета по его гипотенузе и второго катета |
| 4. Опишите функцию разность косинусов двух углов. |
| 5. Опишите функцию сумму синусов двух углов. |
| 6. Опишите функцию вычисления куба числа. |
| 7. Опишите функцию суммы квадратов двух чисел. |
| 8. Опишите функцию разности квадратов двух чисел. |
| 9. Опишите функцию определения среднего значения из трёх введенных |
| 10. Опишите функцию нахождения наименьшего из трёх чисел. |
Таблица 4
| 1.Опишите процедуру, которая находит квадрат разности двух чисел. |
| 2.Опишите процедуру, которая вычисляет площадь прямоугольного треугольника. |
| 3.Опишите процедуру, которая вычисляет периметр прямоугольника. |
| 4.Опишите процедуру, которая переводит угол из градусов в радианы. |
| 5.Опишите процедуру, которая вычисляет сумму по модулю двух чисел |
| 6.Опишите процедуру, которая вычисляет разность по модулю двух чисел |
| 7.Опишите процедуру, которая вычисляет произведение по модулю двух чисел |
| 8.Опишите процедуру, которая вычисляет сумму кубов двух чисел. |
| 9.Опишите процедуру, которая вычисляет разность кубов двух чисел. |
| 10.Опишите процедуру, которая вычисляет произведение кубов двух чисел. |