Задание:Для матрицы А(4 строки,4 столбца) сформировать одномерный массив В из 4 элементов,каждый из элементов В[i], получается значение
0,если в j-oм столбце матрицы А есть хотя бы один элемент равный 0,и 1 в противном случае.(надо через процедуру написать).Вот что я накатал,только я не уверен что он правильно проверяет столбцы...:
program z14{procedura 3};
const n=4;
type mas=array [1..n,1..n] of real;
inmas=array [1..n] of integer;
var A:mas;B:inmas;i,j,z:integer;
Procedure Stolbci (A:mas; var B:inmas;var z:integer);
var i,j:integer;
begin
for j:=1 to n do
z:=0;
for i:=1 to n do
if A[i,j]=z then b[i]:=0
else b[i]:=1
end;
Begin
for i:=1 to n do
for j:=1 to n do
readln (A[i,j]);
Stolbci (A,B,z);
begin
for i:=1 to n do
writeln ('b[',i,']=',b[i]);
end;end.
Примечание:
Reno что ты перемутил...уж матрицу B там точно вводить не надо,она должна сформироваться из элементов матрицы А...
Примечание:
Попробовал вот так переписать,выдаёт 1 элемент В=0 независимо от матрицы А.Незнаю в чём дело=((
program z14{procedura 3};
const n=2;
type mas=array [1..n,1..n] of real;
inmas=array [1..n] of integer;
var A:mas;B:inmas;i,j,k:integer;t:boolean;
Procedure Stolbci (A:mas; var B:inmas;var t:boolean);
var i,j,k:integer;
begin
t:=false;
for j:=1 to n do begin
for i:=1 to n do
if A[i,j]=0 then t:=true;
if t then for i:=1 to n do
b[i]:=0
else b[i]:=1
end;end;
Begin
for i:=1 to n do
for j:=1 to n do
readln (A[i,j]);
Stolbci (A,B,t);
begin
for i:=1 to n do
writeln ('b[',i,']=',b[i]);
for i:=1 to n do
for j:=1 to n do
writeln('A[',i,'',j,']=',A[i,j])
end;end.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.