Обработка двумерных массивов

@Elenochka · Регистрация: 26.04.2011

Студворк — интернет-сервис помощи студентам

Заданы матрицы А размерности (5х5) и матрица F также размерности (5х5). Определить матрицу P=0.5A+1.5F.

Заранее спасибо..)

@Mr.Y · 17.05.2011, 12:40

Pascal

Const
 n = 5;
Var
 a,f:array [1..n,1..n] of integer;
 p:array [1..n,1..n] of real;
 i,j:byte;
Begin
 randomize;
 For i:=1 to n do
  For j:=1 to n do
   Begin
    a[i,j]:=random(201)-100;
    f[i,j]:=random(201)-100;
   End;
 Writeln('Матрица A:');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write(a[i,j],' ');
   writeln;
  End;
 Writeln;
 Writeln('Матрица F:');
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write(f[i,j],' ');
   writeln;
  End;
 writeln;
 Writeln('Матрица P:');
 For i:=1 to n do
  For j:=1 to n do
   p[i,j]:=0.5*a[i,j]+1.5*f[i,j];
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write(p[i,j],' ');
   writeln;
  End;
End.

@Elenochka 0 / 0 / 0 Регистрация: 26.04.2011 Сообщений: 42
		1
	Обработка двумерных массивов 17.05.2011, 11:51. Показов 1204. Ответов 1 Метки нет (Все метки) Заданы матрицы А размерности (5х5) и матрица F также размерности (5х5). Определить матрицу P=0.5A+1.5F. Заранее спасибо..) 0

	17.05.2011, 12:40

Опции темы

Обработка двумерных массивов

Решение