Презентация на тему Таблицы и массивы

матрица (таблица чисел, состоящая из строк и столбцов)
А=(1 24

примере А - это имя массива.
Элементы массива пронумерованы. Порядковый

состоит только из целых чисел, то тип массива –

массив называется таблицей и записывается вещ таб А[1:6], что

алг ввод массива
вещ таб А[1:6]
цел n
нач
n:=1
вывод A=
пока n<=6
повторять
нц
ввод А[n]
n:=n+1
кц
кон

алг ввод массива
вещ таб А[1:6]
цел n
нач
вывод A=
для n от 1 до 6
повторять
нц
ввод А[n]
кц
кон

Паскале имеет вид:
var : array [

n
нач
вывод A=
для n от 1

Program massiv;
var А:array [1..6] of real;
n: integer;
Begin
writeln( ‘A=‘);
for n:=1 to 6
do


read(A[n]);

End.

на число.
Решение :
Пусть матрица В состоит из 12
вещественных

для n от 1 до 12

Program massiv;
var B:array [1..12] of real;
n: integer;
Begin
writeln( ‘B=‘);
for n:=1 to 12
do

read(B[n]);

writeln( ‘5B=‘);
for n:=1 to 12
do
begin
B[n]:=5*B[n];
write(B[n]);
end
End.

двух матриц.
Решение:
Пусть 1 матрица - А состоит из 7

таб B[1:7]
таб С[1:7]
цел n
нач

Program symma massivov;
var А:array [1..7] of real;
B:array [1..7] of real;
С:array [1..7] of real;
n: integer;
Begin
{ввод массива А}
writeln( ‘А=‘);
for n:=1 to 7
do
read(А[n]);
{ввод массива В}
writeln( ‘В=‘);
for n:=1 to 7
do
read(В[n]);
{вычисление суммы С=А+В}
writeln( ‘С=‘);
for n:=1 to 7
do
begin
С[n]:= А[n]+B[n];
write(С[n]);
end
End.

массива.
Решение:
Пусть матрица В состоит из 12 вещественных чисел.
Для выбора

для n от 1 до 12

Program massiv;
var B:array [1..12] of real;
n: integer;
Begin
writeln( ‘B=‘);
for n:=1 to 12
do
read(B[n]);
writeln( ‘ POLOHITELNIE ELEMENTI ‘);
for n:=1 to 12
do
if B[n]>0
then
write(B[n]);

End.

n: integer;
Begin
writeln( ‘B=‘);
for n:=1 to 12

начало

конец

Вывод B=

Ввод В[n]

n от 1 до 12

Вывод ‘положительного элемента’

n от 1 до 12

B[n]>0

Ввод В[n]

да

нет

в языках программирования называется двумерным массивом.
Пример:

А=

вещ таб А[1:4,1:3]

Данная запись означает, что задан массив вещественного

А[1:4,1:3]
цел n, m
нач

: array [

А[1:4,1:3]
цел n, m
нач

Program massiv;
var А:array [1..4,1..3] of real;
n,m: integer;
Begin
writeln( ‘A=‘);
for n:=1 to 4
for m:=1 to 3
do


read(A[n,m]);


End.

двумерного массива.
Решение:
Пусть А массив вещественных чисел состоящий из 3

вывод A=

Program massiv;
var А:array [1..3,1..3] of real;
S: real;
n,m: integer;
Begin
writeln( ‘A=‘);
for n:=1 to 3
for m:=1 to 3
do


read(A[n,m]);

writeln( ‘summa elementov=‘);
S:=0 ;
for n:=1 to 3
for m:=1 to 3
do


S:=S+А[n,m];


writeln(S);
End.

вещественных чисел состоящий из 5 строк и 4 столбцов
k