Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедуры,функции
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
MrMoore
Всем доброго времени суток,помогите пожалуйста разобраться с задачками ,где используются процедуры,одну я вроде как решил(проверить не помешает),в вот вторую я не то чтобы написать,толком понять не могу.Надеюсь на вашу помощь.
Задача1
Заданы a(10),b(10),c(10).Найти все попарные скалярные произведения.В процедуру вынести ввод массива;в функцию-нахождение скалярного произведения.
Мое решение 1 задачи.
Program mimimim
type mas:array [1..10] of integer;
var a,b,c:mas; scolar,i:integer
Procedure R(var x:=mas);
begin
for i=1 to 10 do
read (x[i])
end;
Procedure Pr(x,y:mas;var h:integer);
begin
h=0;for i:=1 to 10 do
h:=h+x[i]*y[i]
end;
Function Scolar(a:integer;b:integer;c:integer);
begin
R(a);R(b);R©;
Pr(a,b);Pr(b,c);Pr(a,c)
Scolar (a);Scolar (b);Scolar ©;
readln;
end.

Косяки есть в любом случае,объясните пожалуйста,с этой темой у меня туго(.

Задача2
Заданы a(5,5),b(5,5).Получить c(5,10),запись в c матрицу a c первого столбца,матрицу b с 6-ого столбца;d(5,10)-с первого столбца записать матрицу b,c 6-ого -матрицу a.В процедуры вынести ввод,вывод,получение новой матрицы.
Эту задачу я вообще не могу понять,а написать тем более,подскажите пожалуйста :с.
Федосеев Павел
Пользуйся тегом CODE для выделения текста программы. Для этого нажми на кнопку CODE в верху посередине формы ответа. Для закрытия тега нажми рядом кнопку #.

По поводу 1-й задачи. Её исходник даже не компилируется. Т.е. о правильности решения судить сложно.
По поводу 2-й задачи. Там нужно из матриц a и b сформировать c и d.
Пусть
a=
(
111, 112, 113, 114, 115,
121, 122, 123, 124, 125,
131, 132, 133, 134, 135,
141, 142, 143, 144, 145,
151, 152, 153, 154, 155

)

b=
(
211, 212, 213, 214, 215,
221, 222, 223, 224, 225,
231, 232, 233, 234, 235,
241, 242, 243, 244, 245,
251, 252, 253, 254, 255

)

Нужно получить
c=
(
111, 112, 113, 114, 115, 211, 212, 213, 214, 215,
121, 122, 123, 124, 125, 221, 222, 223, 224, 225,
131, 132, 133, 134, 135, 231, 232, 233, 234, 235,
141, 142, 143, 144, 145, 241, 242, 243, 244, 245,
151, 152, 153, 154, 155, 251, 252, 253, 254, 255
)

И матрицу d, аналогично c, но a и b в d будут располагаться в другом порядке.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.