PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача173' : Uses zadach173.pas; { Ввести Х. Если его значение четное или равное 0, то прибавить 2, если - нечетное, то прибавить 1. ... }
  •  'Задача174' : Uses zadach174.pas; { Ввести Х. Если его значение четное или равное 0, то прибавить 2, если - нечетное, то прибавить 1. ... }
  •  'Задача175' : Uses zadach175.pas; { Вычислить Y = X2 при X <= 10 и Y = SQR(X) при X > 10 ... }
  •  'Задача176' : Uses zadach176.pas; { Ввести числа A, B и C, причем C должно быть равно либо А, либо В. В программе поменять значение С, т.е. если С = А, то С присвоить значение В, если С = В, то присвоить ... }
  •  'Задача177' : Uses zadach177.pas; { Определить попадает ли точка А(X, Y) в окружность радиусом R с центром в начале координат. ... }
  •  'Задача178' : Uses zadach178.pas; { Рассчитать квадратный корень из Х. Если будет введено отрицательное значение Х, то сообщить об этом пользователю и предложить поменять знак переменной. Если пользовател ... }
  •  'Задача179' : Uses zadach179.pas; { Ввести целое число Х в диапазоне 0 < X < 100000. Определить сколько цифр в него входит. ... }
  •  'Задача18' : Uses zadach18.pas; { вывести на экран алфавитно-цифрового дисплея график функции: f(x)=2-cosx в заданном диапазоне изменения аргумента x от a до b с числом точек графика n. Ширину поля графи ... }
  •  'Задача180' : Uses zadach180.pas; { Определить попадает ли точка А(X, Y) в первую четверть окружности R с центром X0 = 3 и Y0 = 5 ... }
  •  'Задача181' : Uses zadach181.pas; { В семье Смирновых трое детей и двое взрослых. На следующей неделе к ним приедет бабушка, которую должны встретить все, кто не занят. Дети смогут пойти, если у каждого и ... }
  •  'Задача182' : Uses zadach182.pas; { В матрице с девятью строками и столбцами находится 81 элемент. Дано число Х в диапазоне от 1 до 81, которое обозначает порядковый номер элемента. Определить номер строк ... }
  •  'Задача183' : Uses zadach183.pas; { Ввести А, В, Х. Проверить следующие условия и сообщить о результате: Х>Max(A, B), Х ... }
  •  'Задача184' : Uses zadach184.pas; { Составить программу, позволяющую многократно рассчитывать 'произведение двух чисел. Для выхода из программы нужно ввести 0, 0 ... }
  •  'Задача185' : Uses zadach185.pas; { Ввести два числа, разделить первое на второе, вывести результат. Если второе число равно 0, то сообщить об этом и повторить ввод. ... }
  •  'Задача186' : Uses zadach186.pas; { Выводить на экран текущее время до нажатия пользователем лю-бой кнопки клавиатуры. ... }
  •  'Задача187' : Uses zadach187.pas; { Сложить первые два элемента массива А и разделить сумму на третий. ... }
  •  'Задача188' : Uses zadach188.pas; { Рассчитать сумму на счете в банке через 2 года после его открытия, если вклад увеличивается на 4% в три месяца. ... }
  •  'Задача189' : Uses zadach189.pas; { Умножить массив В(10) на 5 ... }
  •  'Задача19' : Uses zadach19.pas; { Вычислить среднее арифметическое положительных элементов массивов А(N1), B(N2), C(N3), где N1≤100 N2≤100 N3≤100 ... }
  •  'Задача190' : Uses zadach190.pas; { Построить график функции y = x3, при х (-100, 100) ... }
  •  'Задача191' : Uses zadach191.pas; { Ввести 3 числа x1, x2, x3. Найти их среднее арифметическое. Результат вывести с комментарием "Среднее арифметическое равно". ... }
  •  'Задача192' : Uses zadach192.pas; { Ввести 2 числа и разделить каждое на их сумму ... }
  •  'Задача193' : Uses zadach193.pas; { Переведите 0, 45 и 90 градусов в радианы ... }
  •  'Задача194' : Uses zadach194.pas; { Определите sin(30o), cos(45o) ... }
  •  'Задача196' : Uses Задача196.pas; { Ввести целое число, определить чему равна его последняя цифра и прибавить квадрат ее значения к исходному числу. ... }
  •  'Задача197' : Uses Задача197.pas; { Создайте игру "Игральные кости ", которая выводит два случайных целых числа из диапазона от 1 до 6. ... }
  •  'Задача198' : Uses Задача198.pas; { Ввести значения двух десятичных чисел. Вывести их на экран, округлив до 4 цифр в целой части и трех в дробной. ... }
  •  'Задача199' : Uses zadach199.pas; { Составьте программу расчета кросс-курса. Если доллар стоит R рублей, а L итальянских лир 1 доллар, то сколько стоит 1 лира в рублях. ... }
  •  'Задача2' : Uses zadach2.pas; { Написать программу для вычисления значения выражения ((4.18)^(1/3)+2.1*(0.73)^(1/3))/(2*(7.49)^(1/3)). Для вычисления кубического корня использовать метод Ньютона. ... }
  •  'Задача20' : Uses zadach20.pas; { Найти наименьшие элементы, номера строк и столбцов, в которых они расположены, матриц: A(10, 15), B(15, 12) ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic