матрица

[alex_fcsm]

Сообщение от jennyjen

Обясните что вы подразумеваете под кодом (я полный чайник), если это какая именно у меня програма, тогда ответ Turbo Pascal.

Программа, которую вы запускаете в Паскале

[jennyjen]

type matrice=array[1..2,1..3] of integer;
var b:matrice; Positive:array[1..3] of integer;
     i,j,p:integer;
begin
for i:=1 to 2 do begin
 for j:=1 to 3 do begin
   b[i,j]:=50-random(100);write(b[i,j]:5);
   if b[i,j]>0 then Positive[j]:=Positive[j]+1;
 end; writeln;
end;
for i:=1 to 3 do writeln('p=',Positive[i]);
readln;
end.

[alex_fcsm]

У меня ошибок нету

[jennyjen]

Значит мне надо сменить Паскаль. Можете дать ссылку на хорошую версию?

[alex_fcsm]

Вроде этот вполне рабочий

[jennyjen]

Большое человеческое спасибо! Программа работает! Теперь мне осталось решить этожу задачу используя процедуру, но с этим я справлюсь, так что это детали...

[alex_fcsm]

Опять же, будут вопросы пишите

[jennyjen]

type matrice=array[1..2, 1..3] of integer;
vector=array[1..3] of integer;
var b:matrice;
Positive:vector;
i,j,p:integer;
begin
procedure Pos(b:matrice; var p:integer);
Positive:vector;
i,j:integer;
for i:= 1 to 2 do begin
for j:= 1 to 3 do begin
if b[i,j]>0 then Positive[i]:=Positive[j]+1;
end;
writeln;
end;
p:=Positive[i];
end;
Begin
writeln ('Introduce the elements:');
for i:= 1 to 2 do
for j:= 1 to 3 do
readln(b[i,j]);
Pos(b,p);
writeln('p=',p);
readln;
end.

Error 215:Error in statement

В чем ошибка? та же программа, только используя процедуру...

[Hacker19_90]

procedure Pos(b:matrice; var p:integer);

Positive:vector;
i,j:integer;
for i:= 1 to 2 do begin
for j:= 1 to 3 do begin
if b[i,j]>0 then Positive[i]:=Positive[j]+1;
end;
writeln;
end;
p:=Positive[i];
end

;

А вы процедуры описывать умеете?
Попробуйте изменить на

type matrice=array[1..2, 1..3] of integer;
vector=array[1..3] of integer;
var b:matrice;
Positive:vector;
i,j,p:integer;
procedure Pos(b:matrice; var p:integer);
var
Positive:vector;
i,j:integer;
begin
for i:= 1 to 2 do begin
for j:= 1 to 3 do begin
if b[i,j]>0 then Positive[i]:=Positive[j]+1;
end;
writeln;
end;
p:=Positive[i];
end;
Begin
writeln ('Introduce the elements:');
for i:= 1 to 2 do 
for j:= 1 to 3 do
readln(b[i,j]);
Pos(b,p);
writeln('p=',p);
readln;
end.

[jennyjen]

да, глупая ошибка. спасибо за помошь!


By the way, "Mess with the best, die like the rest" a cool statement.