допоможіть рішити задачу з векторами

[nikalajka]

потрібно рішити задачу по програмуванню. написати програму для роботу з багатовимірними масивами
і ще визначити там якийсь вектор
(масиви знаю, ввід-вивід знаю, що за вектор без поняття)

хто допоможе пишіть, напишу завдання бо поки на руках завдання немає

[tarik]

можу попробувати допомогти з векторами, якщо їх треба додати, відняти, помножити і т.д.)))) з написанням програми є складності)))))

[nikalajka]

можу попробувати допомогти з векторами, якщо їх треба додати, відняти, помножити і т.д.)))) з написанням програми є складності)))))

умова така

задано дві цілочисельні матриці А(n,n) і B(n,n), n (менше рівне) 20. Розробити програму,яка будує і дркує вектор Х(n) за правилом Х( і )=1 якщо кількість відємних елементів і-того рядка першої матриці = кількості відємних елементів і-того рядка другої матриці та Х( і )=0 в інших випадках.

дякую
думаю сам вже розберусь (95%)

хто впевнений що може написати 100% правильну програму пишіть

[Tyrex7]

потрібно рішити задачу по програмуванню. написати програму для роботу з багатовимірними масивами
і ще визначити там якийсь вектор
(масиви знаю, ввід-вивід знаю, що за вектор без поняття)

хто допоможе пишіть, напишу завдання бо поки на руках завдання немає

А на якій мові прога? А то я колись Фортран вивчав.

[tarik]

думаю на паскалі)

[nikalajka]

пксакаль перше завдання зробив вийшло таке

program kilkist;
var
mas_a : array[1..20] of array[1..20] of integer;
mas_b : array[1..20] of array[1..20] of integer;
k1:array[1..20] of integer;
k2:array[1..20] of integer;
result:array[1..20] of integer;
n,i,j:integer;

begin
writeln('vvedit rozmirnist dvoh matryts(n<=20)');
readln(n);


writeln('vvedit elementy pershoi matrytsi');
for i:=1 to n do
begin
for j:=1 to n do
readln(mas_a[j]);
end;


writeln('vvedit elementy drugoi matrytsi');
for i:=1 to n do
begin
for j:=1 to n do
readln(mas_b[j]);
end;



for i:=1 to n do
begin
for j:=1 to n do
begin
if mas_a[j]<0 then k1:=k1+1;
if mas_b[j]<0 then k2:=k2+1;
end;
end;


for i:=1 to n do
begin if k1=k2 then result[i]:=1 else result[i]:=0;
write(result[i],' ');
end;

end.

[nikalajka]

хто хоче допомогти є ще два завдання


Діана
лабораторна робота 8.

частина 1
Чотири точки задані своїми координатами X= (x1,x2,x3), Y= (y1,y2,y3), Z= (z1,z2,z3), P= (p1,p2,p3). Зясувати , які з них знаходяться на мінімальній відстані одна від одної, видрукувати значення цієї відстані. Обчислення відстані між двома точками оформити у вигляді підпрограми-функції.

частина 2
Скласти підпрограмну процедуру яка в заданій матриці замінює нулями елементи рядка , в якого перший елемент відємний. Задану матрицю А перетворити за вказаним правилом, якщо кількість відємних елементів у першому стовпці більше половини всіх його елементів.

вот блін як загрузили так загрузили
давно дуже подібні речі писав

[nikalajka]

з відстанями рішив
program vidstan_mizh_tochkamy;

var x,y,z,p:array[1..3] of real;
i:byte;
vidsxy,vidsxz,vidsxp,vidsyz,vidsyp,vidszp,min:real;
min_t:string;

function vidstan(a1,a2,a3,b1,b2,b3:real):real;
var vids:real;
begin
vids:=sqrt(sqr(a1-b1)+sqr(a2-b2)+sqr(a3-b3));
vidstan:=vids;
end;

begin
writeln('vvedit koordynaty tochky x');
for i:=1 to 3 do

readln(x);

writeln('vvedit koordynaty tochky y');
for i:=1 to 3 do

readln(y);

writeln('vvedit koordynaty tochky z');
for i:=1 to 3 do

readln(z);

writeln('vvedit koordynaty tochky p');
for i:=1 to 3 do

readln(p);

vidsxy:=vidstan(x[1],x[2],x[3],y[1],y[2],y[3]);
vidsxz:=vidstan(x[1],x[2],x[3],z[1],z[2],z[3]);
vidsxp:=vidstan(x[1],x[2],x[3],p[1],p[2],p[3]);
vidsyz:=vidstan(z[1],z[2],z[3],y[1],y[2],y[3]);
vidsyp:=vidstan(p[1],p[2],p[3],y[1],y[2],y[3]);
vidszp:=vidstan(z[1],z[2],z[3],p[1],p[2],p[3]);

min:=vidsxy; min_t:='x i y';
if vidsxz<min then begin min:=vidsxz; min_t:='x i z' end;
if vidsxp<min then begin min:=vidsxp; min_t:='x i p' end;
if vidsyz<min then begin min:=vidsyz; min_t:='y i z' end;
if vidsyp<min then begin min:=vidsyp; min_t:='y i p' end;
if vidszp<min then begin min:=vidszp; min_t:='z i p' end;

writeln('minimalna vidstan mizh tochkamy ',min_t, ', i =',min:5:3);
readln;

end.