Блок-схема для двумерного массива

@H0NOR · Регистрация: 20.10.2012

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

Помогите с Блок-схемой пожалуйста

Pascal

const
  n=3;
  m=4;
  a: array[1..n,1..m] of real   =((  1,  -3,   5,  -6),
                                  (1.2,   0,  -1,   4),
                                  (  8, 1.5,   0,-1.5));
var
  b: array[1..n,1..m] of real;
  i,j: integer;
begin
  writeln('Получена матриця');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j]<>0 then b[i,j]:=1/a[i,j]
        else b[i,j]:=0;
      write(b[i,j]:7:2);
    end;
    writeln;
  end;
  readln;
end.

@КонецСвета · 30.10.2012, 23:55

Название: New_FlowChart_1_Part_0.gif
Просмотров: 2009

Размер: 3.1 Кб

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	30.10.2012, 23:55	2
	0

Опции темы