ПОМОГИТЕ решить простенькие задачи по Pascal-ю
Case. Дан номер месяца — целое число в диапазоне 1-12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для не високосного года.
For. Дано целое число N (>0). Используя один цикл, найти сумму
1 + 1/(1!) + 1/(2!) + 1/(3!) + ... + 1/(N!)
(выражение N! — N-факториал — обозначает произведение всех целых чисел от 1 до N: N! = 1*2*...*N). Полученное число является приближенным значением константы е = ехр(1).
While. Дано целое число N (>0). Если оно является степенью числа 3, то вывести TRUE, если не является — вывести FALSE.
Series. Дано целое число N (> 1) и набор из N вещественных чисел. Проверить, образует ли данный набор возрастающую последовательность. Если образует, то вывести TRUE, если нет — вывести FALSE.
Ргос. Описать процедуру TrianglePS(a, P, S), вычисляющую по стороне а равностороннего треугольника его периметр Р=3-аи площадь S = a(квадрат)*корень(3/4) (а — входной, Р и S — выходные параметры; все параметры являются ве¬щественными). С помощью этой процедуры найти периметры и площади трех равносторонних треугольников с данными сторонами.
Minmax. Дано целое число N (> 2) и набор из N чисел — значений некоторой величины, полученных в N опытах. Найти среднее значение этой величины. При вычислении среднего значения не учитывать минимальное и максимальное из имеющихся в наборе значений.
|