PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 370' : Uses zadach370.pas; { Написать подпрограмму вычисления среднего арифметического значения вещественных чисел. В основной программе определить сколько из m вещественных чисел меньше их среднего ... }
  •  'Задача 371' : Uses zadach371.pas; { Составить программу вычисления значений функции F(x;y) для нескольких значений аргументов x и y при некоторых постоянных значениях входящих в нее величин a и b. ... }
  •  'Задача 372' : Uses zadach372.pas; { Вычислить сумму для указанного x: ... }
  •  'Задача 373' : Uses zadach373.pas; { Составить программу вычисления значений функции F(x;y) для нескольких значений аргументов x и y при некоторых постоянных значениях входящих в нее величин a и b. ... }
  •  'Задача 374' : Uses zadach374.pas; { Сосчитать суммы для указанных значений Х. ... }
  •  'Задача 375' : Uses zadach375.pas; { Вычислить элементы матрицы С, являющейся суммой нижней треугольной матрцей пятого порядка и верхней треугольной матрицей того же порядка. ... }
  •  'Задача 376' : Uses zadach376.pas; { Составить процедуру для вычисления матрицы, получившейся в результате умножения исходной матрицы на свою транспонированную, т.е. ... }
  •  'Задача 377' : Uses zadach377.pas; { В модуль включить подпрограмму определения максимального элемента из последовательности n целых чисел. В основной программе определить максимальный элемент из последовате ... }
  •  'Задача 378' : Uses zadach378.pas; { Проверить, является ли исходная матрица, составленная из целых чисел, нижней треугольной. Напечатать соответствующее сообщение. ... }
  •  'Задача 379' : Uses zadach379.pas; { Для заданных N и написать программу, используя подходящую функцию. ... }
  •  'Задача 38' : Uses zadach38.pas; { Программа-гадалка, которая выводит предсказание. Если пользователь хочет узнать - вводит 1. Если нет - 0. Решение: ... }
  •  'Задача 38' : Uses zadah38.pas; { Для массива A размера N наполнить массив B по правилу: элемент Bk равен среднему арифметическому элементов массива A с номерами от1 до k ... }
  •  'Задача 380' : Uses zadach380.pas; { Программа вычисления ... }
  •  'Задача 381' : Uses zadach381.pas; { Вычислить сумму: ... }
  •  'Задача 382' : Uses zadach382.pas; { Определить среднее арифметическое отдельно всех положительных и отрицательных элементов матрицы А. ... }
  •  'Задача 383' : Uses zadach383.pas; { Вычислить сумму: ... }
  •  'Задача 384' : Uses zadach384.pas; { Составить программу вычисления значения функции F(x,y) для нескольких значений аргументов x и y при некоторых постоянных значениях входящих в нее величин a и b ... }
  •  'Задача 385' : Uses zadach385.pas; { Вычислить сумму: ... }
  •  'Задача 386' : Uses zadach386.pas; { Вычислить: ... }
  •  'Задача 387' : Uses zadach387.pas; { Составить программу вычисления значений функции F(x,y) для нескольких значений аргументов x и y при некоторых постоянных значениях входящих в нее величин a, b, p. ... }
  •  'Задача 388' : Uses zadach388.pas; { Сосчитать произведения для указанных значений x. ... }
  •  'Задача 389' : Uses zadach389.pas; { Вычислить и вывести на экран значение функции ... }
  •  'Задача 39' : Uses zadach39.pas; { Программа задумывает число от 0 до 100. Задача - угадать это число, выводя подсказки "Это много" или "Это мало". ... }
  •  'Задача 390' : Uses zadach390.pas; { С использованием условной структуры if … then … else вычислить и вывести на экран значение функции при различных значения аргумента. Значение аргумента задается с клавиат ... }
  •  'Задача 391' : Uses zadach391.pas; { С использованием циклических структур вычислить и вывести на экран сумму/произведение членов ряда. Число членов ряда и параметра задается с клавиатуры. ... }
  •  'Задача 392' : Uses zadach392.pas; { Вычислить и вывести на экран в виде таблицы значения функции F на интервале от Хнач. до Хкон. с шагом dX. ... }
  •  'Задача 393' : Uses zadach393.pas; { Дан массив А(5,4). a. определить, сколько его элементов имеют значение меньше, чем 0.25; b. сумму элементов в тех столбцах, которые не содержат отрицательных элементов ... }
  •  'Задача 394' : Uses zadach394.pas; { Вычислить значение выражения: y = (a-2)/(3+х) + с; ... }
  •  'Задача 395' : Uses zadach395.pas; { Известен месячный план выпуска некоторой продукции и объемы выпущенной этой продукции заводом за год (помесячно). Определить, когда завод не выполнил план. Результа ... }
  •  'Задача 396' : Uses zadach396.pas; { Известен план выпуска компьютеров и количество выпущенных ком- пьютеров тремя фирмами за шесть месяцев. Определить для каждой фирмы количество месяцев, когда план был пе ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..