|
PROGRAM6187.PAS |
|
{* Математика *}{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }Case User Of- 'Cовершенные числа' : Uses programs_lab.pas; { Задание
Для заданного целого числа N получить все совершенные числа меньше N.
Теоретическая часть Функции используются тогда, когда результат – одно значение. Говорят, ч ... }
- 'Cреднее арифметическое' : Uses chisla01.pas; { Даны два целых числа. Найти их среднее арифметическое. ... }
- 'Cреднее геометрическое' : Uses sredgeom.pas; { Даны два целых числа. Найти их среднее геометрическое. ... }
- 'Cумма последовательности 01' : Uses pasled0.pas; { Дана последовательность вида: sin(x) + sin(sin(x)) + ... + sin(sin ...
(sin(x))). Необходимо подсчитать сумму данной последовательности.
Значение x вводиться с клавиатуры ... }
- 'Алгоритм "входит ли точка в обьект"' : Uses Check_Point_In_Poly.pas; { Алгоритм: Точка лежит внутри многоугольника, если кол-во точек пересечения нечетно. Все отрезки кроме горизонтальных проверяются на пересечение с горизонтальным лучом, вы ... }
- 'Алгоритм Эвклида. Метод вычитаний' : Uses evklid.pas; { Найти наибольший общий делитель двух целых чисел (алгоритм Евклида). В этой программе используются только операции вычитания. ... }
- 'Возведение в степень' : Uses proc_2.pas; { Возведение в степень ... }
- 'Возможное количество треугольников ' : Uses prg9.pas; { Программа по 4 отрезкам определяет возможное количество треугольников и их площадь. ... }
- 'Все трехзначные числа кратные 3' : Uses z_number33.pas; { Все трехзначные числа кратные 3 ... }
- 'Выполнение мат. функций с клавиатуры' : Uses A_K_Analysator_Mathematics_String.pas; { Выполнение мат. функций с клавиатуры.
Програмка может прочитать с клавы строку с аналитическим заданием функции и вычисляет ее. Возможно применение некоторого числа перем ... }
- 'Вычисление выражения 1' : Uses zadacha1_2.pas; { Текст задачи:
Cоставить программу вычисления выражения на Паскале
От создателя:
В зависимости от вводимого икса выводится ответ (форматированный).
Входные данные
X - ве ... }
- 'Вычисление выражения 2' : Uses z_znach2.pas; { Значение выражения a*c-b+c ... }
- 'Вычисление выражения 3' : Uses z_summa12.pas; { Найти 1!+2!+3!+...+N!. Где N данное число. (N! - факториал) ... }
- 'Вычисление выражения 4' : Uses viragen4.pas; { Вычисление S, если S=1/a+1/a²+1/а⁴+...+1/а²ⁿˉ² ... }
- 'Вычисление выражения 5' : Uses viragen5.pas; {
Найти
значение выражения ( -нат. число, а>0, х>0, f=sqr(a+sqr(a+sqr(a+..sqr(a))..) ) n знаков "+" } ... }
- 'Вычисление выражения 6' : Uses viragen6.pas; { Y=n1/1!+n2/2!+...+nk/k! ... }
- 'Вычисление выражения 7' : Uses viragen7.pas; { Найти значение выражения у=1+(1/(1+(1/1+...1+1/x)) …), х>0, n знаков "+" ... }
- 'Вычисление длины отрезка' : Uses spl19.pas; { Вычисление длины отрезка AB ... }
- 'Вычисление длины отрезка |AB|' : Uses sample019.pas; { Вычисление длины отрезка |AB| ... }
- 'Вычисление объема куба' : Uses lin_2.pas; { Вычисление объема куба ... }
- 'Вычисление площади параллелограмма' : Uses parl1.pas; { Вычисление площади параллелограмма ... }
- 'Вычисление числа пи методом Монте-Карло.' : Uses Chislo_Pi.pas; { Вычисление числа пи методом Монте-Карло. ... }
- 'Вычисления длины площади и объема круга' : Uses program_radius.pas; { Задание
Вычистить длину круга, площадь круга и объем слоя одной и того же заданного радиуса. Выбор алгоритма решения задачи В данном задании нужно ввести радиус. И вычи ... }
- 'Вычислить 81 значение функции ' : Uses znach_func.pas; { В этой простенькой программке вычисляется 81-е значение
следующей функции: a*b*Exp(-n*sqr(a*b)) ... }
- 'Генерация перестановок' : Uses sample029.pas; { Генерация перестановок ... }
- 'Генерирация чисел из диапазона [-N,N] ' : Uses passluch0.pas; {
Генерируем вещественные случайные числа из диапазона [-N, N] ... }
- 'Гипотенуза и площадь' : Uses gip01.pas; { Даны катеты прямоугольного треугольника.
Найти его гипотенузу и площадь. ... }
- 'Длина окружности' : Uses ploshad.pas; { Дан диаметр окружности d. Найти ее длину L = ?*d. В качестве значения ? использовать 3.14. ... }
- 'Добавление единиц' : Uses perest2.pas; { Добавление слева и справа по единице. ... }
- 'Задача 302' : Uses zadach302.pas; { Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или сообщить, что такого слова нет. ... }
Else writeln( 'Ничего не выбрано!'); End;Program pas2984;
Program pas2984..
|