Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
контр. работы ЗАО.doc
Скачиваний:
8
Добавлен:
30.04.2019
Размер:
114.18 Кб
Скачать

Задание №2.

Цель работы: изучение оператора выбора (CASE). Реализовать задачу, используя CASE и IF.

Краткие теоретические сведения:

Case (зарезервированное слово)

Оператор Case состоит из выражения (селектора) и списка операторов, выполняется один из них, в зависимости от значения селектора.

Синтаксис:

Case выражение Of

вариант : оператор;

...

вариант : оператор;

End

или

Case выражение Of

вариант : оператор;

...

вариант : оператор

Else оператор

End

Замечания:

"вариант" состоит из одной или нескольких констант или диапазонов, разделенных запятыми.

Часть "Else" является необязательной.

Пример:

Case Ch Of

'A'..'Z', 'a'..'z' : WriteLn('Буква');

'0'..'9' : WriteLn('Цифра');

'+', '-', '*', '/' : WriteLn('Оператор');

Else WriteLn('Специальный символ')

End;

варианта

Постановка задачи

1

Дан одномерный массив чисел. Умножить на 3 его положительные элементы, отрицательные разделить на 2, а равные нулю – заменить числом 5.

2

Даны отрезки a,b,c. Определить, можно ли из них составить треугольник. Вывести сообщения типа “можно”, ”нельзя”, ”треугольник превращается в отрезок”.

3

Дан одномерный массив чисел. Если его максимальный элемент >10, найти произведение элементов массива, <=10, но >=5 – найти сумму элементов, <5 – обнулить массив и вывести соответствующее сообщение.

4

Дана точка (x;y) и круг радиуса R с центром в точке (0;0). Определить, где находится точка: внутри, на границе, или за пределами круга.

5

Дана матрица [mxn]. Если число сток больше числа столбцов, удвоить все элементы матрицы и утроить их в обратном случае. Если матрица квадратная, обнулить все ее элементы.

6

Напечатать значение 0<К<10 римскими цифрами.

7

Для целого числа 14<К<26 написать фразу “мне К лет”, учитывая форму числительных (год, года).

8

Вывести название месяца по его номеру.

9

Напечатать словесное название числа 0<К<10

10

Вывести название дня недели по его номеру.

Задание №3.

Цель работы: научиться работать с двумерными массивами и вложенными операторами цикла.

Краткие теоретические сведения:

Array (зарезервированное слово)

Определяет массив.

Синтаксис:

Array [тип_индексов] Of тип_элементов

Замечания:

Позволяются несколько типов индексов, если они разделены запятыми.

Элементы массива могут иметь любой тип, а тип индексов должен быть счетным.

Пример:

Type IntList = Array[1..100] Of Integer;

CharData = Array['A'..'Z'] Of Byte;

Matrix = Array[0..9, 0..9] Of Real;

варианта

Постановка задачи

1

Составить одномерный массив из максимальных элементов строк матрицы [MxN].

2

Определить число элементов матрицы [MxN] кратных A.

3

Перемножить 2 матрицы [MxN] и [NxK].

4

Вывести все элементы двумерного массива [MxN] кратные A.

5

Найти сумму элементов матрицы [MxN], расположенных ниже побочной диагонали.

6

Найти число отрицательных элементов матрицы [MxN], расположенных в столбцах с номером, кратным A.

7

Найти произведение элементов матрицы [MxN], расположенных выше главной диагонали.

8

Поменять местами элементы j и k столбцов матрицы [MxN].

9

Определить количество элементов матрицы [MxN] больших A и расположенных в четных строках и столбцах.

10

Найти минимальный элемент главной диагонали матрицы [MxN].