{* Математика *}

• 1
• 2
• 3
• 4
• 5

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of

•  'Произведение 2-х вещественных чисел' : Uses proizv2_real.pas; { Программа очищает экран, вычисляет произведение 2-х вещественных чисел, вводимых пользователем ... }
•  'Произведение всех нечетных двузначных чисел.' : Uses .pas; { Произведение всех нечетных двузначных чисел. ... }
•  'Произведение целых нечетных чисел между данными числами' : Uses z_product32.pas; { Произведение целых нечетных чисел между данными числами ... }
•  'Процент рождения мальчиков и девочек' : Uses proc_4.pas; { Процент рождения мальчиков и девочек ... }
•  'Процента износа детали' : Uses iznosdet.pas; { Определение процента износа детали по заданным координатам ... }
•  'Процентов числа n от числа m' : Uses proc_5.pas; { Определение процента числа n от числа m ... }
•  'Прямоугольный треугольник' : Uses z_tr4.pas; { Определение является ли треугольник с заданным сторонами прямоугольным ... }
•  'Расчет общей цены покупок' : Uses lin_4.pas; { Расчет общей цены покупок ... }
•  'Расчет цены за карандаши' : Uses lin_3.pas; { Расчет цены за карандаши ... }
•  'Расчет цены поездки' : Uses lin_6.pas; { Расчет цены поездки ... }
•  'Решение системы 2-х уравненй с двумя неизвестными' : Uses sample031.pas; { Решение системы 2-х уравненй с двумя неизвестными{ решение системы 2-х уравнений с двумя неизвестными }{ ----------------------------------------------------------------- ... }
•  'Решение системы 3-х уравненй с тремя неизвестными' : Uses sample032.pas; { решение системы 3-х уравненй с тремя неизвестными{ решение системы 3-х уравнений с тремя неизвестными }{ ----------------------------------------------------------------- ... }
•  'Самая длинная последовательность нулей' : Uses Nulls.pas; { Найти самую длинную последовательность из нулей в массиве A(i), i=1, 2,.., N. ... }
•  'Сложение двух дробей с разными знаменателями ' : Uses Sloshenie.pas; { Сложение двух дробей с разными знаменателями ... }
•  'СЛУ методом итераций' : Uses iteracii.pas; { Решение систем линейных уравнений методом итераций ... }
•  'Случайные величины с нормальным распределением' : Uses NormRand.pas; { Реализация распределения по нормальному закону ... }
•  'Смена крайних цифр числа местами' : Uses prim_09.pas; { Смена крайних цифр трехзначного числа местами ... }
•  'Смена цифр числа местами' : Uses prim_9.pas; { Ввести двузначное число a. Поменять цифры числа местами. ... }
•  'Среднее арифметическое дробных чисел' : Uses cikl_6.pas; { Вводится с клавиатуры n дробных чисел и вычитается их среднее арифметическое ... }
•  'Степень двойки' : Uses stepen2.pas; { Определение, является ли число степенью двойки ... }
•  'Стороны прямоугольника' : Uses pas49257.pas; { Одна сторона прямоугольника на 5 см длиннее другой, а сумма их длин равна 17 см. Найти стороны этого прямоугольника. ... }
•  'Сумма всех нечетных трехзначных чисел.' : Uses z_summa9.pas; { Сумма всех нечетных трехзначных чисел. ... }
•  'Сумма всех цифр заданного числа' : Uses z_number3.pas; { Сумма всех цифр заданного числа ... }
•  'Сумма квадратов четырех чисел' : Uses z_number7.pas; { Сумма квадратов четырех чисел ... }
•  'Сумма, разность, произведение и частное' : Uses chesla.pas; { Даны два ненулевых целых числа. Найти их сумму, разность, произведение и частное. ... }
•  'Таблица истинности логической операции not' : Uses p33_3.pas; { Программа выводит на экран таблицу истинности логической операции not. ... }
•  'Теорема косинусов' : Uses begin_17.pas; { Даны стороны треугольника: a, b, c. Вычислить косинусы углов по теореме косинусов: sqr©=sqr(a)+sqr(b)-2ab*cos(alfa) ... }
•  'Трапеция' : Uses trapec1.pas; { Определение, является ли данный четырехугольник трапецией ... }
•  'Трехзначные числа средняя цифра которых равна сумме первой и третей цифр' : Uses z_number11.pas; { Все трехзначные числа средняя цифра которых равна сумме первой и третей цифр ... }
•  'Тригонометрические функции' : Uses protrig.pas; { Стандартные табличные значения тригонометрических функций. ... }

Else
 writeln('Ничего не выбрано!');
End;

• 1
• 2
• 3
• 4
• 5

Program pas2984;
Program pas2984..