PROGRAM6380.PAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача 423' : Uses zadach423.pas; { Дано значение х. Получить значения — 2х + Зх2 — 4х3 и 1 + 2х + Зх2 + 4x3. Позаботиться об экономии операций ... }
  •  'Задача 424' : Uses zadach424.pas; { Известен годовой процент на вклад с капитализацией (начисление процентов ежемесячно). Определить, сколько денег получит вкладчик в конце года, если на 1 января сумма вкла ... }
  •  'Задача 425' : Uses zadach425.pas; { Известно количество выпущенной продукции тремя заводами за первый квартал (помесячно). Найти среднемесячное количество выпущенной продукции каждого завода. ... }
  •  'Задача 426' : Uses zadach426.pas; { Вычислите значение выражения у=((3+с)/(a*x+4))-2*a; ... }
  •  'Задача 427' : Uses zadach427.pas; { Табулировать: ... }
  •  'Задача 428' : Uses zadach428.pas; { Известны данные по продаже компьютеров в течение недели. Найти общее количество проданных компьютеров. ... }
  •  'Задача 429' : Uses zadach429.pas; { Известны результаты сдачи двух экзаменов дестью студентами. Определить фамилии студентов, сдавших экзамены на тройки. ... }
  •  'Задача 43' : Uses pasvect.pas; { В векторе Z(m) определить сумму нечётных элементов. ... }
  •  'Задача 430' : Uses zadach430.pas; { Вычислить 7 значений функции. ... }
  •  'Задача 431' : Uses zadach431.pas; { Вычислить значение функций: Y=arccosx+a2 Z=3, 7tg22x при a = 0.75 x = 0.7 Найти max и min значение среди Y и Z ... }
  •  'Задача 432' : Uses zadach432.pas; { Вычислить значение выражения по формуле (все переменные принимают вещественные значения): ... }
  •  'Задача 433' : Uses zadach433.pas; { Определите концентрацию электронов в кремнии при 300К содержащем 21011см–3 атомов донорной примеси (Nd) и 11011 см–3 атомов акцепторной примеси (Nа), испо ... }
  •  'Задача 434' : Uses zadach434.pas; { Сосуд имеет форму полушара радиуса R, дополненного цилиндром. Какой высоты должна быть цилиндрическая часть, чтобы сосуд имел объём V. (Контр.прим.: R=3, V=81,Pi=3.14, h& ... }
  •  'Задача 435' : Uses zadach435.pas; { Найти в файле студентов старше х лет- Алгоритм:1. Запрашиваю нынешний год и возраст, старше которого необходимо найти студентов.2. Вычисляю год рождения, вычитая из нынеш ... }
  •  'Задача 436' : Uses zadach436.pas; { Определите концентрацию электронов в кремнии при 300К содержащем 2×1011см–3 атомов донорной примеси (Nd) и 1×1011 см–3 атомов акцепторной примеси (Nа), исп ... }
  •  'Задача 437' : Uses zadach437.pas; { Вычислить значение табличной функции U и параметров x, y: Max (e·sin(x2) - √y; ctg (3√x·y2), если > 1 U = Cos(x·y2), если = 1 при 1X ... }
  •  'Задача 438' : Uses zadach438.pas; { Вычислить: ... }
  •  'Задача 439' : Uses zadach439.pas; { Вычислить: ... }
  •  'Задача 44' : Uses zadach44.pas; { Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. ... }
  •  'Задача 440' : Uses zadach440.pas; { Вычислить: ... }
  •  'Задача 441' : Uses zadach441.pas; { Дана последовательность натуральных чисел, за которой следует 0 (0 – признак конца последовательности). Вычислить произведение положительных элементов. ... }
  •  'Задача 442' : Uses zadach442.pas; { Пользователь вводит с клавиатуры 10 вещественных чисел. Определить количество положительных чисел. ... }
  •  'Задача 443' : Uses zadach443.pas; { Введите количество посадочных мест. Напечатайте соответствующий этому количеству вид транспорта: «велосипед», «мотоцикл», «легковой автомобиль», «микроавтобус», «автобус» ... }
  •  'Задача 444' : Uses zadach444.pas; { Составить программу и трассировку программы вычисления суммы элементов последовательности. ... }
  •  'Задача 445' : Uses zadach445.pas; { Выполнить пошаговую компиляцию (трассировку) программы решающей задачу: Вычислить сумму квадратов натуральных чисел в интервале от 10 до 180. ... }
  •  'Задача 446' : Uses zadach446.pas; { Составить программу и трассировку программы вычисления суммы элементов последовательности (Трассировка – проверка алгоритма с помощью пошагового вычисления (клавиша [F7]) ... }
  •  'Задача 447' : Uses zadach447.pas; { Дано натуральное число К, за которым следует К вещественных чисел. Найти наименьшее число среди положительных (min1) и порядковый номер максимального числа (n_max). А так ... }
  •  'Задача 448' : Uses zadach448.pas; { Дана последовательность ненулевых вещественных чисел, за которой следует 0 (0 – признак конца последовательности). Найти номер последнего элемента равного заданному числу ... }
  •  'Задача 449' : Uses zadach449.pas; { Дана последовательность ненулевых вещественных чисел, за которой следует 0 (0 – признак конца последовательности). Вывести на экран порядковые номера положительных элемен ... }
  •  'Задача 45' : Uses prim45.pas; { Вычислить сумму ряда, общий член которого задан формулой An=(x*n)/n!. ... }
Else
 writeln('Ничего не выбрано!');
End;Program pas2123;
Program pas2123..