Колдунчик.ру

u  

Задачу нужно выполнить на паскале используя функцыю.
Вот задача:
Для матрицы А(5 строк,5 столбцов) сформировать одномерный массив В из 5 элементов. Каждый элемент Вк принимает значение 1,если все элементы катого столбца матрицы А не превышают значения соответствующего элемента главной диагонали.и значение 0 в противоположном случае.

Вот что я пока сделала :
(как дальше не могу втыкнуть)
Program z42627;
type
matr=array[1..5,1..5] of byte;
var
A: matr;
i,k: byte;
B:array [1..5] of byte;
function FU(A1:matr;i1:byte):byte;
var k1,FU1: byte;
begin
for k1:=1 to 5 do
НЕ ЗНАЮ ЧТО ПИСАТЬ
FU1:=A1[i1,k1];
FU:= FU1
end;
BEGIN
writeln('Введите элемент матрицы А');
for i:=1 to 5 do
for k:=1 to 5 do
readln(A[i,k]);
B[k]:=FU(A,i);
writeln(B[i]);
END.

ОЧЕНЬ ПРОШУ! HELP ME!!!

u  

HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!! HELP!!!

умру:(

u  

у тебя должно должно быть что-то типа такой конструкции - пройтись по столбцам матрицы А, сравнивая каждый элемент с диагональным и записывать в В либо ноль, либо 1

для k от 1 до 5 - цикл по строкам
B(k) := 1
для i от 1 до 5 - цикл по столбцам
если А(k,i) > A(k,k)
то B(k) := 0
конец i
конец k


вроде так...
как оно конкретно в паскале, сама напиши

u  

Смешно, эта задача повсюду, я её уже писала по SMS-кам подруге на экзамене по программированию, но я её делаю с процедурой.

Для матрицы А(5 строк,5 столбцов) сформировать одномерный массив В из 5 элементов. Каждый элемент Вк принимает значение 1,если все элементы катого столбца матрицы А не превышают значения соответствующего элемента главной диагонали.и значение 0 в противоположном случае.

program z4_2_6;
const n=5;
type matr=array[1..n,1..n] of real;
mas=array[1..n] of integer;
var a:matr;
b:mas;
k,i,j:integer;
procedure oele(a:matr; j:integer; var k:integer);
var i:integer;
begin
k:=0;
for i:=1 to n do
if(a[i.j]<=a[j,j]) then k:=k+1
end;
begin
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,j,']=');
readln(a[i,j])
end;
for j:=1 to n do
begin
oele(a,j,k);
if(k=n) then b[j]:=1 else b[j]:=0;
writeln('b',j,'=',b[j])
end;
readln
end.