Примеры решения задач. 1. Дан массив действительных чисел, состоящий из 3 строк и 5 столбцов

1. Дан массив действительных чисел, состоящий из 3 строк и 5 столбцов. Вычислить произведение всех элементов массива.

program рг1;

{вычисление произведения элементов двумерного массива,}

{в котором 3 строки и 5 столбцов}

CONST

N=3;

М-5;

TYPE

MAS=ARRAY [1..N.1..M] OF REAL;

VAR

B:MAS;

1:1..N; {индекс строк}

J: 1..M; {индекс столбцов}

p:REAL; {произведение} BEGIN

{ ввод значений массива }

WRITELN('BBEAHTE ЗНАЧЕНИЕ ЭЛЕМЕНТА МАССИВА:');

FORI:=1 TON DO

FOR J:=l TO M DO READ(B[I,J]);

{ вывод значений массива }

FOR I:=1 TON DO

BEGIN

FOR J:-! TOM DO WR1TE(B[I,J]:7:2);

WR1TELN;

END;

{ вычисление произведения элементов массива }

P:-l;

FORI-lTON DO

FORJ:-! TOM DO

P:-P*B[I,J];

\УР1ТКЩ'ПРОИЗВЕДЕНИЕ ',P:7:2);

END.

2. Дана кнадратная матрица размером NxN, содержащая вещественные числа. Пай in сумму •)лемеитов первого столбца. program pr2;

{квадратная матрица размером NxN -двумерный массив,} {в котором число строк равно числу столбцов} CONST N=3;

TYPE

MAS=ARRAY [l..N,l..N] OF REAL;

VAR A:MAS;

1:1..3;{индекс строки} J: 1..3; {индекс столбца} s:real; {сумма} BEGIN WRITELN('BBEnHTE ЗНАЧЕНИЕ МАТРИЦЫ:');

FOR I:=l TO N DO

FORJ:=1TONDO

READ(A[I,J]);

{вывод матрицы} FORI:=1TONDO

BEGIN

FOR J:=l TO N DO

WRITE(A[I,J]:5:1);

WRITELN;

END;-

{ОПРЕДЕЛЕНИЕ СУММЫ ЭЛЕМЕНТОВ ПЕРВОГО СТОЛБЦА}

S-0;

J:=l;

FOR I-1 TON DO

S:=S+A[I,J];

WRITELNCCYMMA ЭЛЕМЕНТОВ 1-ГО СТОЛБЦА=',8:5:1) END.

3. Дан двумерный массив A(N,M).

Сформировать массив B(N,M), где

SQR(A[I,J]), если I - НЕЧЕТНОЕ;

B[I,J]=

SQRT(A[I,J]), если I - ЧЕТНОЕ.

program ргЗ;

CONST

N=3;

М=5;

•1-YPE

MAS-ARRAY [l..N,l..M] OF REAL;

VAR

A,B:MAS;

1:1..N; {индекс строк}

J: 1..M; {индекс столбцов} BEGIN

{ ввод значений массива }

^УР1ТЕЬМ('ВВЕДИТЕ ЗНАЧЕНИЕ ЭЛЕМЕНТА МАССИВА:');

FOR I-l TON DO

FORJ:=1TOMDO

READ(A[I,J]);

WRITELN('PE3ynbTAT);

FORI:=1TONDO BEGIN FOR J:=l TO M DO WRITE(A[I,J]:7:2);

WRITELN END;

{ формирование массива В } FORI:=1TONDO IF 1/2 -INTO/I) THEN { четное }

FOR J:=l TO M DO BtU]:- SQRT(A[I,J]) ELSE FOR J:=l TO M DO B[I,J]:= SQR(A[I,J]);

{ВЫВОД МАССИВА В -СФОРМИРОВАННОГО} FOR I:=l TO N DO 'BEGIN FOR J:=l TO M DO WRITE(B[I,J]:7:2);

WRITELN END END.

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