PROGRAM7510.BAS

{* Задачи *}

{ Выберите программу или раздел при помощи графического манипулятора «Мышь» ! }
Case User Of
  •  'Задача60' : Uses zadach60.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от 0 до 1000. Составьте программу, которая находит и выводит среднее арифметическое ... }
  •  'Задача61' : Uses zadach61.pas; { Напишите программу подсчета максимального количества подряд идущих отрицательных элементов в целочисленном массиве длины 30. ... }
  •  'Задача62' : Uses zadach62.pas; { Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целочисленные значения от -20 до 20 – сведения о температуре за каждый день ноября. Составьте ... }
  •  'Задача63' : Uses zadach63.pas; { Напишите программу вычисления среднего арифметического элементов квадратной матрицы размером 5 на 5, стоящих на главной диагонали. ... }
  •  'Задача64' : Uses zadach64.pas; { Дан целочисленный массив из 30 элементов, все элементы которого – положительные числа, не превосходящие 100. Напишите программу, которая находит и выводит номер элемен ... }
  •  'Задача65' : Uses zadach65.pas; { Написать программу для нахождения значения функции при х<0 y=5x-3, при x>=0 y=Ö x для х=-8.34; -0.158; 1.21; 625 ... }
  •  'Задача66' : Uses zadach66.pas; { Ввести программу для нахождения НОД чисел М и N. Исполнить ее для M=1000, N=625; M=1236312, N=9822. ... }
  •  'Задача67' : Uses zadach67.pas; { Ввести программу решения квадратного уравнения и исполнить её для следующих уравнений: 1125х^2-45x-324=0; 502x^2-38.5x+12/125=0; 16x^2-256x+1024=0. ... }
  •  'Задача68' : Uses zadach68.pas; { Вывести на экран дисплея значения функции Y=0.3X^3-4.15X^2-0.01X +2.25 для Х от –5 до 5 ... }
  •  'Задача69' : Uses zadach69.pas; { Составить программу для заполнения таблицы кубов и вывода ее на экран дисплея. ... }
  •  'Задача7' : Uses zadach7.pas; { ... }
  •  'Задача70' : Uses zadach70.pas; { Элементы массива А(20) заполняются по формуле A(I)=21-I^2+4. Написать программу, которая находит минимальный элемент в этом массиве и, если он не один, то их количество и ... }
  •  'Задача71' : Uses zadach71.pas; { Написать программу, которая будет сравнивать значения выражения I^2-1 и J^3-1 для целых значений I и J и будет находить при каких значениях I и J они будут равны. ... }
  •  'Задача71' : Uses zadach71.pas; { Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Найти сумму и количество всех нечетных положительных чисел. ... }
  •  'Задача72' : Uses zadach72.pas; { Составить программу для определения методом «Всплывающих пузырьков» из данных значений вектора А=( 9,6 7,4 4,1 4,0 3,8 2,5 2,4 2,2 1,7), и переменной R=2,3, значения в ... }
  •  'Задача73' : Uses zadach73.pas; { Сформировать файл, содержащий результаты сессии студентов одной группы в виде матрицы в каждой строке, которой хранятся результаты сессии (пять экзаменов) для одного студ ... }
  •  'Задача74' : Uses zadach74.pas; { Дана матрица: Задание 1. Найти среднее значение элементов, стоящих в первой строке. Задание 2. Умножить все элементы матрицы на число 3 и вывести полученную матрицу ... }
  •  'Задача75' : Uses zadach75.pas; { Вычислить выражение ... }
  •  'Задача76' : Uses zadach76.pas; { Сначала программа запрашивает оба числа, затем проверяет условие a>b. Если условие верно, то на экран выводится число a, затем это число удваивается. Иначе на на экран ... }
  •  'Задача77' : Uses zadach77.pas; { Составить программу заполнения массива из 15 элементов случайными числами в диапазоне от 1 до 10. Предусмотреть вывод массива на экран. ... }
  •  'Задача78' : Uses zadach78.pas; { Составить программу подсчитывающую, количество букв "а" в предложении. ... }
  •  'Задача79' : Uses zadach79.pas; { С клавиатуры вводятся координаты точки на плоскости (X и Y). Указать, в какой из четвертей находится точка. ... }
  •  'Задача8' : Uses zadach8.pas; { ... }
  •  'Задача80' : Uses zadach80.pas; { С клавиатуры вводится положительное двузначное число N. Определить, кратно ли оно 12. Предусмотреть проверку вводимых значений. ... }
  •  'Задача81' : Uses zadach81.pas; { Компьютер должен "запросить" два числа (M и N), которые вводятся с клавиатуры. Произвести над этими числами одно из арифметических действий (сложение, вычитание, умножени ... }
  •  'Задача82' : Uses zadach82.pas; { В простую переменную с клавиатуры последовательно ввести N чисел и посчитать их сумму. ... }
  •  'Задача83' : Uses zadach83.pas; { Имеется экзаменационная ведомость по 4 группам студентов. В каждой по 25 человек. Вывести средний балл для каждой группы и подсчитать общий средний балл. ... }
  •  'Задача84' : Uses zadach84.pas; { В переменную последовательно вводятся числа. Окончание ввода - по желанию пользователя либо когда сумма отрицательных чисел достигнет -1000. Определить среднее арифметиче ... }
  •  'Задача85' : Uses zadach85.pas; { В простую переменную последовательно вводятся N вещественных чисел. Вычислить максимальное значение. ... }
  •  'Задача86' : Uses zadach86.pas; { В простую переменную последовательно вводятся 10 чисел. Определить максимальное значение и количество чисел, равных максимуму. ... }
Else
 writeln('Ничего не выбрано!');
End;REM basic