3.7. Использование меню для объединения подзадач а и б.
programLaba3;
label
M1; {Объявление метки безусловного перехода M1}
var
SubTask: Char; {Переменная типа Char (символ)}
{**** Здесь разместить дополнительные необходимые переменные ****}
begin
Writeln('Выберите одну из подзадач:');
Writeln('a – вычисление заданной величины в цикле');
Writeln('b – обработка элементов матрицы');
Writeln('e – выход из программы');
M1:
Write('Введите символ:');
Readln(SubTask); {Ожидаем ввод любого символа}
case SubTask of
'a', 'A':
begin{Если ввели букву "a" или "A", то выполнится эта ветка}
Writeln('a) – вычисление заданной величины в цикле');
{******* Здесь разместить операторы, необходимые
для выполнения подзадачи "а" *******}
end;
'b','B':
begin{Если ввели букву "b" или "B", то выполнится эта ветка}
Writeln('b) - обработка элементов матрицы ');
{******* Здесь разместить операторы, необходимые
для выполнения подзадачи "б" *******}
end;
'e','E':
begin{Если ввели английскую "e" или "E", то закрываем программу}
Exit;
end;{begin..end здесь указывать не обязательно}
else{Для этого ELSE (от CASE) не нужен дополнительный begin..end }
{Если ввели любой другой символ, то выполнится эта ветка}
Writeln('Введен недопустимый символ!');
Writeln('Вы должны повторить ввод!');
gotoM1;{Переход на метку M1}
end;
Readln; {Ожидание нажатия Enter}
end.
Данный пример не должен вызывать вопросов, поскольку сочетает в себе элементы кода, которые были в достаточной степени разобраны в предыдущих лабораторных работах.
Следует отметить, что Char– порядковый тип данных, обеспечивающий представление 256 символов, в том числе цифр, знаков препинания, всех больших и малых букв латинского алфавита, а также одного дополнительного алфавита (например, кириллицы).
3.8. Варианты заданий
1.а) Вычислить n!
б) Определить количество элементов матрицы, значения которых не превышают заданное число.
2.а) Вычислить
.
б) Найти минимальный элемент матрицы.
3.а) Вычислить
.
б) Найти максимальный элемент матрицы.
4.а) Вычислить
.
б) Поменять местами минимальный и максимальный элемент матрицы.
5.а) Вычислить
.
б) Поменять местами два заданных элемента матрицы.
6.а) Вычислить
.
б) Поменять местами две заданных строки матрицы.
7.а) Вычислить
.
б) Транспонировать матрицу А.
8.а) Вычислить
.
б) Сформировать массив В, содержащий сумму элементов каждого столбца матрицы А.
9.а) Вычислить
.
б) Поменять местами два заданных столбца матрицы.
10.а) Вычислить
.
б) Определить количество отрицательных элементов матрицы.
11.а) Вычислить
б) Определить количество положительных элементов матрицы.
12.а) Вычислить
.
б) Вычислить среднее арифметическое элементов матрицы.
13.а) Вычислить
.
б) Вычислить произведение отрицательных элементов матрицы.
14.а) Вычислить
.
б) Вычислить сумму положительных элементов матрицы.
15.а) Вычислить
.
б) Все отрицательные элементы матрицы возвести в квадрат.
16.а) Вычислить
б) Сформировать массив B, содержащий максимальные элементы строк матрицы A.
17.а) Вычислить
.
б) Сформировать массив B, содержащий суммы элементов строк
матрицы A.
18.а) Вычислить сумму n членов геометрической прогрессии.
б) Вычислить сумму всех отрицательных элементов матрицы.
19.а) Вычислить
.
б) Заполнить матрицу А случайными числами с помощью функции Random.
20.а) Вычислить
.
б) Вычислить сумму элементов главной диагонали матрицы.