Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
метод_указ_программирование_вариант_2014.doc
Скачиваний:
20
Добавлен:
12.05.2015
Размер:
982.53 Кб
Скачать

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.а) Вычислить .

б) Вычислить сумму элементов главной диагонали матрицы.

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.