Показать сообщение отдельно
  #1  
Старый 28.11.2008, 16:23
Аватар для Master-Sergey
Master-Sergey Master-Sergey вне форума
Прохожий
 
Регистрация: 25.05.2008
Адрес: г.Луганск
Сообщения: 25
Репутация: 10
По умолчанию ПОМОГИТЕ решить простенькие задачи по 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 опытах. Найти среднее значение этой величины. При вычислении среднего значения не учитывать минимальное и максимальное из имеющихся в наборе значений.
Изображения
Тип файла: jpg Ya.JPG (64.6 Кбайт, 19 просмотров)
Ответить с цитированием