Вывод массива в виде таблицы

For i:=1 to n do

begin

for j:=1 to m do

write (a[i , j]);

writeln;

end;

Пример: Ввести двумерный вещественный массив, выполнить его транспонирование: поменять строки и столбцы местами. Осуществить контрольный вывод исходного массива и массива результатов. Результаты работы программы должны быть представлены в виде:

Введите количество строк и столбцов

2 2

Введите массив А

a(1,1)=1

a(1,2)=2

a(2,1)=3

a(2,2)=4

Массив A

1.0 2.0

3.0 4.0

Массив B

1.0 3.0

2.0 4.0

Рисунок 1.1 Блок-схема

program prim_11;

const row=10;col=10;

type

matr1=array[1..row,1..col] of real;

matr2=array[1..col,1..row] of real;

var

i,j,n,m:integer;

a:matr1; b:matr2;

begin

{ввод массива A}

writeln('Введите к-во строк и столбцов'); readln(n,m);

writeln('Введите массив А');

for i:=1 to n do

for j:=1 to m do

begin

write('a(',i:1,',',j:1,')=');

readln(a[i,j]);

end;

{вывод массива A}

writeln('Массив A');

for i:=1 to n do

begin

for j:=1 to m do write(a[i,j]:7:1);

writeln;

end;

{формирование массива В}

for i:=1 to n do

for j:=1 to m do

b[j,i]:=a[i,j];

{вывод массива B}

writeln('Массив B');

for i:=1 to n do

begin

for j:=1 to m do write(b[i,j]:7:1);

writeln;

end;

readln;

end.

Практическое задание

Задание 1

1. Дан одномерный массив. Найдите разность наибольшего и наименьшего чисел в этом массиве.

2. Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:

а) А[i] < B[i];

б) A[i] = B[i];

в) A[i] > B[i].

3. Составьте программу определения количества элементов массива, больших среднего арифметического всех его элементов.

4. Дан одномерный массив. Подсчитайте, сколько раз встречается в этой таблице максимальное по величине число.

5. Дан одномерный целочисленный массив. Составьте программу определения значения наибольшего элемента этого массива.

6. Дан одномерный целочисленный массив. Составьте программу определения индекса(-ов) минимального элемента массива.

7. Составьте программу, проверяющую упорядочены ли элементы одномерного массива по возрастанию.

8. Дан одномерный массив чисел. Определите сумму его элементов.

9. Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

10. Дан одномерный массив чисел. Подсчитайте, сколько раз в нем встречается число 1.

11. Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементов.

12. В массиве А (m,n) найдите количество всех чисел, по модулю меньших заданного Т.

Задание 2

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

2. Удалить все отрицательные элементы.

3. Удалить все элементы, большие данного числа А (А вводить с клавиатуры).

4. Удалить все четные элементы, стоящие на нечетных местах.

5. Удалить все повторяющиеся элементы, оставив только их первые вхождения, то есть получить массив различных элементов.

6. Удалить последний четный элемент.

7. Удалить все элементы, кратные 3 или 5.

8. Удалить все элементы, начиная с k1-го по k2-ой. Сделать проверку корректности ввода значений k1 и k2, если ввод некорректный, то вывести сообщение об ошибке и закончить работу.

Задание 3

1. Вставить элемент после первого отрицательного элемента.

2. Вставить элемент перед отрицательным последним элементом.

3. Вставить два элемента: первый - после максимального элемента, второй - перед максимальным элементом.

4. Вставить по одному элементу перед всеми элементами, кратными заданному числу.

5. Вставить по одному элементу перед всеми отрицательными элементами.

6. Вставить два элемента: первый - после всех элементов, больших данного числа Р, а второй - перед всеми элементами, большими данного числа Р (Р вводить с клавиатуры).

7. Вставить число А перед всеми элементами, большими А, а число В - после всех элементов, меньших его.

Задание 4

1. Дан одномерный массив чисел а. Cформируйте такой массив b, который содержит копию положительных элементов массива а.

2. Скопируйте отрицательные и положительные кратные заданному числу элементы массива А в массив В в обратном порядке.

3. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный так же, как исходные массивы.

4. Из двух упорядоченных одномерных массивов (длины K и N) сформируйте одномерный массив размером K+N, упорядоченный в обратную сторону.

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

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

7. Сформировать массив:

Y[1]=A[1]+A[n]

Y[2]= A[2]+A[n-1]

Y[3]= A[3]+A[n-2]

и т.д. (n - четное)

8. Даны два одномерных массива А и В. Подсчитайте количество тех i, для которых:

а) А[i] < B[i]

б) A[i] = B[i];

в) A[i] > B[i]

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

10. Определить величину максимальной разности между соответствующими элементами двух массивов и записать на то же место в третий массив той же размерности.

11. Даны два одномерных массива одинаковой длины. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов, умноженной на больший из них.

Задание 5: Составить программу для выполнения заданных действий над двумерным массивом вещественных чисел A(N,M). В программе предусмотреть ввод значений его элементов, вывод исходной и, при необходимости, преобразованной матриц.

1. Вычислить и запомнить сумму и число положительных элементов каждого столбца матрицы. Результаты отпечатать в виде двух строк.

2. Вычислить и запомнить сумму и число отрицательных элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов.

3. Вычислить сумму и число элементов матрицы, находящихся под главной диагональю и на ней.

4. Вычислить сумму и число элементов матрицы, находящихся над главной диагональю и на ней.

5. Записать на место отрицательных элементов матрицы нули, а на место положительных элементов матрицы — единицы.

6. Найти максимальный элемент на главной диагонали матрицы и присвоить нулевые значения другим элементам строки и столбца, на пересечении которых он стоит.

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

8. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на печать найденные строки и суммы их элементов.

9. Найти столбец с наибольшей и наименьшей суммой элементов. Вывести на печать найденные столбцы и суммы их элементов.

10. Каждый элемент строки разделить на предварительно рассчитанную сумму элементов этой строки.

11. Удалить последнюю строку матрицы и вывести ее на печать.

12. Удалить последний столбец матрицы и вывести ее на печать.

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

14. Найти максимальный по модулю элемент матрицы и вычислить сумму столбца, в котором он находится.

15. Найти минимальный по модулю элемент матрицы и вычислить сумму строки, в которой он находится.

Задание 6:

1.Найти сумму всех четных элементов двумерного массива.

2.Найти сумму всех элементов двумерного массива, расположенных на главной диагонали.

3.Найти номер строки и столбца максимального элемента.

4.Имеется двумерный массив целых чисел. Найти номер строки, для которой среднеарифметическое значение ее элементов максимально.

5.В двумерном массиве целых чисел поменять местами строки и столбцы с одинаковыми номерами.

6.Найти минимальный элемент среди максимальных элементов строк двумерного массива целых чисел. Определить номер строки и столбца такого элемента.

7.Удалить столбец двумерного массива целых чисел, в котором находится максимальный элемент этого массива.

8.Найти все неповторяющиеся элементы двумерного массива целых чисел.

9.Заполнить двумерный массив целыми числами от 1 до 100 по спирали.

10.В двумерном массиве целых чисел заменить все элементы, меньшие суммы элементов первой строки на эту сумму.

11.Отсортировать строки массива целых чисел по убыванию.

12.Отсортировать нечетные столбцы массива по возрастанию.

13. Ввести вещественную матрицу размерности n * m построчно, а вывести по столбцам.

14. Выяснить сколько положительных элементов содержит матрица размерности n * m, если a_ij = sin(i+j/2).

15. Дана квадратная вещественная матрица размерности n. Является ли матрица симметричной относительно главной диагонали.

Задание 7:

2. Дана квадратная вещественная матрица размерности n. Сравнить сумму элементов матрицы на главной и побочной диагоналях.

3. Дана квадратная вещественная матрица размерности n. Найти количество нулевых элементов, стоящих:

- выше главной диагонали;

- ниже главной диагонали;

- выше и ниже побочной.

4. Сформировать матрицу по следующему правилу

а). б). в).

5. Дана вещественная матрица размерности n * m. Сформировать вектор b, в котором элементы вычисляются как:

- произведение элементов соответствующих строк;

- среднее арифметическое соответствующих столбцов;

- разность наибольших и наименьших элементов соответствующих строк;

- значения первых отрицательных элементов в столбце.

6. Дана вещественная матрица размерности n * m. Вывести номера столбцов, содержащих только отрицательные элементы.

7. Дана вещественная матрица размерности n * m. Вывести номера строк, содержащих больше положительных элементов, чем отрицательных.

8. Дана вещественная матрица размерности n * m. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.

9. Дана вещественная матрица размерности n * m. Поменять местами строки с максимальным и минимальным элементами.

10. Дана вещественная матрица размерности n * m. Удалить k столбец матрицы.

11. Дана вещественная квадратная матрица размерности n. Поменять местами элементы главной и побочной диагоналей матрицы:

- по строкам;

- по столбцам.

12. Дана вещественная матрица размерности m * n. Упорядочить элементы каждой четной строки по возрастанию.

13. Дана вещественная матрица размерности m * n. Расположить все элементы матрицы по убыванию. Обход матрицы осуществлять по строкам.

14. Дана вещественная матрица размерности m * n. Определить индексы первого нулевого элемента матрицы. Обход матрицы осуществлять по столбцам.

15. Дана действительная матрица размера n * 9. Найти среднее арифметическое:

а) элементов каждого столбца;

б) элементов каждой строки, имеющей четный номер.

Не нашли, что искали? Воспользуйтесь поиском по сайту: