Скалярное произведение

@_LoneR_ · Регистрация: 15.01.2011

Author24 — интернет-сервис помощи студентам

не знаю правильно ли пишу, потому что на русском впервые пишу эти слова но как умею так пишу.
Дана матрица а 8х8. Найти скалярное произведение первого столбца и последней строки.
Помогите а то я запутался что то!

@Puporev · 08.02.2011, 09:38

Pascal

uses crt;
const n=8;
var a:array[1..n,1..n] of real;
    i,j:byte;
    p:real;
begin
clrscr;
writeln('Матрица A:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:6:2);
    end;
   writeln;
 end;
writeln;
p:=0;
for i:=1 to n do
p:=p+a[1,i]*a[i,n];
writeln('Скалярное произведение строки 1 на столбец ',n,'=',p:0:2);
readln
end.

@_LoneR_ 90 / 90 / 13 Регистрация: 15.01.2011 Сообщений: 494
		1
	Скалярное произведение 08.02.2011, 01:16. Показов 2823. Ответов 1 Метки нет (Все метки) не знаю правильно ли пишу, потому что на русском впервые пишу эти слова но как умею так пишу. Дана матрица а 8х8. Найти скалярное произведение первого столбца и последней строки. Помогите а то я запутался что то! 1

	08.02.2011, 09:38

Опции темы

Скалярное произведение

Решение