Нахождение наибольшего элемента в заданной строке матрицы

Пусть задана матрица А из действительных чисел размера 3х4. Найти наибольший элемент во второй строке данной матрицы.

Приведем программу решения задачи в виде:

 

Program max_st;

Type Matr=array[1..3,1..4] of real;

Var max:real;

a:Matr;

i,j:integer;

begin

for i:=1 to 3 do

for j:=1 to 4 do

begin

writeln(‘Введите элемент а[‘,i,’,’,j,’]’);

readln(a[i,j]);

end;

max:=a[2,1];

for j:=2 to 4 do

if max<a[2,j] then max:=a[2,j];

writeln(‘Наибольший элемент второй строки=’,max:8:2);

end.

Данная программа представляет собой реализацию алгоритма нахождения наибольшего элемента вектора, полученного путем фиксирования одного из индексов двумерного массива.

 

Нахождение элементов массива, удовлетворяющих определенному условию

Известны результаты 5 студентов по итогам экзаменов по химии и информатике. Найти фамилии студентов, сдавших оба экзамена на отлично.

Для решения поставленной задачи может быть использована следующая программа:

program Sessia;

type PR=array [1..5,1..2]of integer;

   Fam=array[1..5]of string[10];

var r:pr;

st:fam;

i,j:integer;

begin

for i:=1 to 5 do

begin

writeln('Введите фамилию ',i,'-го студента ');

readln(st[i]);

writeln('Введите оценку данного студента по химии (от 2 до 5)');

readln(r[i,1]);

writeln('Введите оценку данного студента по информатике (от 2 до 5)');

readln(r[i,2]);

end;

for i:=1 to 5 do

if (r[i,1]=5) and (r[i,2]=5) then writeln('Студент-отличник - ',st[i]);

end.

 

В данной программе для хранения фамилий студентов используется одномерный строковый массив st типа Fam, для хранения оценок студентов – двумерный целочисленный массив r типа PR, причем первый столбец матрицы r используется для хранения результатов экзамена по химии, второй столбец – экзамена по информатике. Если у некоторого студента оценки за оба экзамена составили 5 баллов, то его фамилия будет выведена на экран с сообщением «Студент-отличник».

 

Задания

1. Дана матрица А (n, n). Найдите сумму элементов по каждому столбцу.

2. Дана матрица А (10, 10). Найти сумму элементов по каждой строке.

3. Вычислить сумму элементов матрицы А (20, 20), расположенных над главной диагональю.

4. Определить количество положительных и отрицательных элементов матрицы А (12, 15).

5. Определить количество положительных элементов каждого столбца матрицы А (20, 25) и запомнить их в массиве М.

6. Найти наибольший элемент матрицы А (20, 25) и номер строки и столбца, в которых он находится.

7. Найти наибольший элемент в третьем столбце матрицы.

8. Найти сумму всех элементов матрицы.

9. Найти сумму всех положительных элементов матрицы.

10. Найти наименьший элемент в первой строке матрицы.

11. Найти среднее арифметическое значение элементов второго столбца матрицы.

12. Найти произведение элементов третьего столбца матрицы.

13. Найти сумму элементов первой и третьей строк матрицы.

14. Определить, сколько раз встречается число 5 среди элементов всей матрицы.

15. Определить, сколько раз встречается число 1 среди элементов третьей строки матрицы.

16. Найти количество отрицательных элементов в матрице.

Контрольные вопросы

1 Что понимают под массивом данных?

2 Что называют размерностью массива?

3 Что понимают под индексом элемента массива?

4 Какой массив называется одномерным?

5 Приведите примеры одномерных массивов.

6 Как описываются одномерные массивы на языке PASCAL?

7 Как задается диапазон изменения индексов массива?

8 Поясните понятия двумерного массива, матрицы.

9 Что обозначают индексы матрицы?

Литература

1. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. – М.: Нолидж. – 2000. – 576 с.

2. Зуев Е.А. Система программирования Turbo Pascal. – М.: Радио и связь. – 1992. – 288 с.

3. Рубенкинг Н. Турбо Паскаль для Windows. – М.: Мир. - 1994. – 535 с.

Лабораторная работа 6 (2 часа)

Тема: Обработка строковых данных

 

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

 

Теоретическая часть

 Описание переменных строкового типа

Для обработки текстов в среде программирования Turbo Pascal используется тип STRING (строка). Количество символов в строке-переменной задается объявлением типа STRING[N], где значение N может быть любой константой порядкового типа, не превышающей 255.

Объявление типа STRING[N] указывает, что число символов в строке-переменной может изменяться в диапазоне от 1 до N. Если при описании типа количество символов в строке не указано, то по умолчанию длина строки принимается максимально возможной, т.е. 255 символов.

Строка в Turbo Pascal трактуется как цепочка символов. К любому символу в строке можно обратиться так же, как к элементу символьного массива типа ARRAY [1..N] OF CHAR. Над символами строки можно осуществлять необходимые действия и, тем самым, изменять содержание строки, ее длину и т.д.

Пример:

program pr1;

var st:string[6];

i:integer;

begin

 st:=' primer ';

 for i:=1 to 6 do

 write(st[i], ' ');

end.

 

В результате работы данной программы на экран будут распечатаны следующие значения:

p r i m e r

Таким образом, первым символом st[1] в переменной st является буква p, вторым символом st[2] является r, третьим   – i  и т.д.

К строкам можно применять операцию сцепления, например:

program pr2;

var st:string[3];

begin

st:=’a’+’b’+’c’;

writeln(st);

end.

 

В результате работы предложенной выше программы переменной st будет присвоено значение ’abc’.

Допускается сравнение строковых переменных. Операции отношений =, <>, >, <, >=,<= выполняются над двумя строками посимвольно, слева направо, с учетом внутренней кодировки символов.

Примеры сравнения строковых переменных с результатом «Истина»:

‘A’ < ‘B’ 

‘Turbo Pascal’ > ‘Turbo’

‘2’ > ’1’