Контрольная Информатика (3 задания), номер: 144792

Задание №1 2
Задание №2 4
Задание №3 8
Список литературы 11

Задание №1
Вычислить значение функции f в точке x. Значение x должно вводиться с клавиатуры. Вывести полученный результат на экран.

Ответить на вопросы.
1) Опишите условный оператор If.
2) Что будет выведено на экран в результате выполнения
a:=True;
If a Then Write(Not a) Else Write(a); ?
Задание №2
Вычислить сумму s значений функции в точках , которые берутся с заданного интервала через равные отрезки длиной . Длина отрезка рассчитывается по формуле . Здесь — номер точки; — задаваемое количество точек; — начало и b — конец интервала изменения x. Вывести на экран результаты вычислений, полученные при помощи следующих циклов:
While логическое_выражение Do тело_цикла;
Repeat тело_цикла Until логическое_выражение;
For параметр:=мин._значение To макс. Do тело_цикла;
For параметр:=макс._значение DownTo мин. Do тело_цикла;
Функция
Интервал
Количество точек
Ответить на вопросы.
1) Опишите оператор Repeat.
2) В чём его основные отличия от остальных циклов Turbo Pascal?
Задание №3
Результатом выполнения задания должна быть программа, написанная с использованием подпрограмм — не менее двух процедур и одной функции.
Найти суммы компонент целочисленной матрицы по столбцам и записать их в одномерный массив .
Заменить значения компонент в столбцах матрицы на 1, если сумма соответствующего столбца окажется больше 0, на , если сумма меньше 0, на 0, если сумма равна 0.
Найти максимальное значение компонент массива . Если максимумов в массиве несколько, то запомнить индекс последнего встреченного при переборе из максимумов.
На экран вывести исходную матрицу , массив , изменённую матрицу , последнюю встреченную максимальную компоненту с индексом.