PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача228' : Uses zadach228.pas; { Если вода приливается к кислоте, то происходит реакция с выделением тепла, что может стать причиной выброса смеси воды и кислоты из сосуда. Пусть сосуды с водой и кисло ... }
  •  'Задача229' : Uses zadach229.pas; { Написать программу, которая запросит рост всех студентов группы (20 чел.) по очереди и рассчитает среднее значение. Результат округлить до целой величины. ... }
  •  'Задача23' : Uses zadach23.pas; { Матрица D(10, 10), записать на место отрицательных элементов матрицы нули, а на место положительных ¾ единицы; вывести на печать нижнюю половину матрицы в общепр ... }
  •  'Задача230' : Uses zadach230.pas; { Рассчитать сумму целых чисел от 1 до 10. ... }
  •  'Задача231' : Uses zadach231.pas; { Рассчитать произведение целых четных чисел от 2 до 20 ... }
  •  'Задача232' : Uses zadach232.pas; { Рассчитать сумму на счете в банке через 1,5 года после его открытия, если вклад увеличивается на 1% за два месяца. ... }
  •  'Задача233' : Uses zadach233.pas; { Рассчитать стоимость компьютера через 1 год после покупки, если его цена уменьшается на 4% в полтора месяца. ... }
  •  'Задача234' : Uses zadach234.pas; { Рассчитать реальный прирост P суммы V на счете в банке через 3 года после его открытия, если вклад увеличивается на 5% за четыре месяца, а инфляция составляет 17% в год ... }
  •  'Задача235' : Uses zadach235.pas; { У военного корабля есть n цветных флажков. Сколько различных сигналов он может подать, размещая на мачте по m флажков разного цвета. Использовать формулу K= n!/(m!(n-m) ... }
  •  'Задача236' : Uses zadach236.pas; { Найти среднее геометрическое элементов вектора V(N), которое рассчитывают по формуле sr = (v(1)*v(2)*...*v(N))^(1/N) ... }
  •  'Задача237' : Uses zadach237.pas; { Вычислить сколько раз 10^6 нужно разделить на 2, что бы частное было меньше 1. ... }
  •  'Задача238' : Uses zadach238.pas; { Рассчитать сумму. Вычисления прекратить, когда очередное слагаемое станет меньше e = 0.001 ... }
  •  'Задача239' : Uses zadach239.pas; { Рассчитать сумму при заданном х. Вычисления прекратить, когда очередное слагаемое станет меньше e = 10-5. ... }
  •  'Задача24' : Uses zadach24.pas; { Вывести на экран график y=sinx+cos2x и печать минимума и максимума функции. ... }
  •  'Задача240' : Uses zadach240.pas; { Плотность воздуха уменьшается с высотой по формуле r = r0*exp(-h*z) Принимая r0=1.29 и z = 1.25*10^-4, рассчитать на какой высоте плотность воздуха станет ниже 0.5 кг ... }
  •  'Задача241' : Uses zadach241.pas; { Мощность радиоактивного излучения рассчитывается по формуле: Q=Qo*exp(-L*t) где Qo - начальная мощность излучения, L=Ln(2)/P, P - период полураспада. Определить, через ... }
  •  'Задача242' : Uses zadach242.pas; { Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить через какое время количество клеток превысит миллион. ... }
  •  'Задача243' : Uses zadach243.pas; { У фермера N. урожай ячменя составил 15 ц/га. За счет применения новых видов удобрений он планирует увеличивать урожайность на 2% в год. Определить через какое количеств ... }
  •  'Задача244' : Uses zadach244.pas; { В первый день тренировок спортсмен проплыл 4 км. Каждый следующий день он увеличивал дневную норму на 10%. Определить: Сколько км он проплывет за 20 тренировок. ... }
  •  'Задача245' : Uses zadach245.pas; { В первый день тренировок спортсмен проплыл 4 км. Каждый следующий день он увеличивал дневную норму на 10%. Определить: Сколько понадобится тренировок, чтобы проплыть в ... }
  •  'Задача246' : Uses zadach246.pas; { В первый день тренировок спортсмен проплыл 4 км. Каждый следующий день он увеличивал дневную норму на 10%. Определить: Через какое количество дней норма составит 6 км. ... }
  •  'Задача247' : Uses zadach247.pas; { Металлургический завод в январе, феврале и марте 2001 г. выпустил 1500, 1780 и 2050 т меди. Представить эти данные в виде горизонтальной гистограммы. Каждый столбец дол ... }
  •  'Задача248' : Uses zadach248.pas; { Вывести все пары слагаемых числа n. Например, для n=4 ответ будет иметь вид: 0+4; 1+3; 2+2; 3+1; 4+0 ... }
  •  'Задача249' : Uses zadach249.pas; { Используя алгоритм, приведенный в тексте главы, построить график функции. y = x + 100, x [-300, 300] ... }
  •  'Задача25' : Uses zadach25.pas; { Вычислить суммы положительных элементов массивов A(N), B(M), C(K), при N<= 60, M<= 60, K<= 70; Переписать отрицательные элементы массивов B(M) и C(K) в массив ... }
  •  'Задача250' : Uses zadach250.pas; { Используя алгоритм, приведенный в тексте главы, построить график функции. y = x ^ 2, x [-0.1, 0.1] ... }
  •  'Задача251' : Uses zadach251.pas; { Согласно легенде, однажды, разбойники пленили n человек, среди которых были математик Иосиф Флавий и его друг. Разбойники приказали людям стать в круг и сказали, что бу ... }
  •  'Задача252' : Uses zadach252.pas; { Вывести на экран первые n строк треугольника Паскаля ... }
  •  'Задача253' : Uses zadach253.pas; { Составить программу взаимного преобразования чисел, заданных в натуральном и двоичном виде ... }
  •  'Задача254' : Uses zadach254.pas; { Царевна – лягушка съедает ежедневно на 20 % комаров больше, чем в предыдущий день и еще 3 комара. Написать программу определяющую, сколько комаров она съест в 20-й день, ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic