PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача255' : Uses zadach255.pas; { Какова будет высота растения через 6 месяцев, если за 1 месяц прирост составляет 5%. Начальное значение 20 см. ... }
  •  'Задача256' : Uses zadach256.pas; { Каков будет рост ребенка за год, если за месяц он подрастает на 2%. Рост на начало года – 120 см. ... }
  •  'Задача257' : Uses zadach257.pas; { Мой богатый дедушка на день рождения дарил мне столько долларов, сколько лет мне исполнялось, а я их складывала в копилку. Сколько денег у меня будет на N день рождения? ... }
  •  'Задача258' : Uses zadach258.pas; { 1.Запросить размерность массива. 2.Заполнить случайными числами 3.Определить число положительных ... }
  •  'Задача259' : Uses zadach259.pas; { ... }
  •  'Задача26' : Uses zadach26.pas; { Вычислить: Значения исходных данных: а=0.7, b=0.05, x=0.5 ... }
  •  'Задача260' : Uses zadach260.pas; { Расчет времени прибытия на станцию ... }
  •  'Задача261' : Uses zadach261.pas; { Определение кол-ва цифр в числе, суммы его цифр, последней и предпоследней цифры ... }
  •  'Задача262' : Uses zadach262.pas; { Найти значение выражения (2*x – y)/(y^2 + |x|) ... }
  •  'Задача263' : Uses zadach263.pas; { Покупатель имеет N руб. В магазине он приобрел 2 буханки хлеба по M руб. и 1, 5 кг колбасы по K руб. Если у покупателя достаточно денег на покупку, то вывести сумму сдач ... }
  •  'Задача264' : Uses zadach264.pas; { Вычислить: ... }
  •  'Задача265' : Uses zadach265.pas; { Поиск трех последовательных элементов, сумма которых максимальна, в числовом массиве из 30 элементов ... }
  •  'Задача267' : Uses zadach267.pas; { Расчет гетеродина приемника на индуктивности ... }
  •  'Задача268' : Uses zadach268.pas; { Программа, которая прячет шарик в стаканчик, только она честно его показывает и, если вы угадали, то похвалит вас. ... }
  •  'Задача269' : Uses zadach269.pas; { Известно, что в исходной строке есть двоеточие.Получить все символы, расположенные между первым и вторым двоеточием.Если второго двоеточия нет, то получить все символы, р ... }
  •  'Задача27' : Uses zadach27.pas; { Методом итераций вычислить на ЭВМ корень уравнения вида f(x)=0, расположенного на интервале [a;b], с абсолютной погрешностью ε. Определить также число итераций, необ ... }
  •  'Задача270' : Uses zadach270.pas; { Идут соревнования формула 1.скорость одной машины х кмч, а скорость второй машины на у кмч больше.какая машина придет первой и на сколько, если известно расстояние? ... }
  •  'Задача271' : Uses zadach271.pas; { В данном массиве А{n} вычислить среднее арифметическое и среднее геометрическое положительных элементов ... }
  •  'Задача272' : Uses zadach272.pas; { Вычислить ... }
  •  'Задача273' : Uses zadach273.pas; { Вычислить ... }
  •  'Задача274' : Uses zadach274.pas; { Вычислить: y=p*sin x+cos^2x/e^2+ln g ... }
  •  'Задача275' : Uses zadach275.pas; { Cгенерировать числа, чтобы в массиве выходили числа формата +-##.##. ... }
  •  'Задача276' : Uses zadach276.pas; { Cоставить программу нахождения частного при деление одного натурально числа на другое ... }
  •  'Задача277' : Uses zadach277.pas; { Cоставить программу вычисления суммы кубов двух чисел, вводимых с клавиатуры ... }
  •  'Задача278' : Uses zadach278.pas; { Написать программу построения графика функции Y=2sin*x/2+1/2cos2x и вывести результат на экран. Внизу под графиком должно быть название заданной функции. ... }
  •  'Задача279' : Uses zadach279.pas; { Нахождение двойного факториала ... }
  •  'Задача28' : Uses zadach28.pas; { Вычислить значение суммы членов бесконечного ряда с заданной точностью ε. На печать вывести значение суммы и число членов ряда, вошедших в сумму. ... }
  •  'Задача280' : Uses zadach280.pas; { Вычислить y=sqr(m*c*ntgl+c*nosl) ... }
  •  'Задача281' : Uses zadach281.pas; { Вычисление площади любого четырёхугольника S=1/2*D1*D2*sinA ... }
  •  'Задача282' : Uses zadach282.pas; { Вычислить площадь равнобедренного треугольника с основанием А S = 1/2*A*(корень(B^2-(A^2/4))) Выполнить чертёж в соответствии с 1 заданием ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic