Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Инфа Шпора Экзамен.doc
X
- •1) Дана матрица а(4х4).
- •Var a: matrix;
- •I, j: byte;
- •2) Дана матрица в(3х4).
- •Var a: matrix;
- •I, j: integer;
- •3) Дана матрица а(4х4).
- •Var I, j, k: integer;
- •5) Дана матрица а(NхN).
- •Var matrix: array[1..Max,1..Max] of real;
- •6) Дано целое число n.
- •Var I, j, k, n: integer;
- •7) Дана квадратная матрица а(NхN).
- •Var a: array[1..Max,1..Max] of real;
- •I, j, n, m: integer;
- •8) Дана квадратная матрица в(NхN).
- •Var a: array[1..Max,1..Max] of real;
- •I, j, n, m: integer;
- •9) Дана матрица а(NхN).
- •Var a: array[1..Max,1..Max] of real;
- •I, j, n, index: integer;
- •10 .1) Дана матрица в(МхN).
- •Var a: array[1..Max,1..Max] of real;
- •I, j, n, index: integer;
- •10.2) Дана матрица в(МхN).
- •Var b: array[1..Max,1..Max] of real;
- •I, j, n, m, index: integer;
- •13) Дана матрица а(NхN).
- •Var a: array[1..Max,1..Max] of real;
- •I, j, n, k: integer;
- •14) Дана матрица а(МхN).
- •Var I, j, m, n: integer;
- •15) Дана матрица а(NхМ).
- •I, j, n, m, k: integer;
- •16) Дана матрица в(NхМ).
- •I, j, n, m, k: integer;
- •Var I, j, k: integer;
- •Var I, j, k: integer;
- •Var I, j, k: integer;
Var I, j, k: integer;
a: matrix;
begin
{Создание матрицы}
for i:=1 to n do
for j:=1 to n do
a[i][j]:=0;
{Решение}
k:=1;
for i:=1 to n do begin
for j:=i to n do begin
a[i][j]:=k;
inc(k);
end;
k:=1;
end;
{Вывод}
writeln;
writeln( 'Матрица:' );
for i:=1 to n do begin
for j:=1 to n do begin
write( a[i][j], ' ' );
end;
writeln;
end;
end.
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]