[Moonlight]

Извините пожалуста, я в програмировании покашто noob...
А нужно решить задачю...(

Дано вектора а=(а1, а2, а3,....an) i b=(b1, b2 ,....bn). Найти скалярное произвидение векторов. Разделить каждый елемент масива б на полученое произвидение. Вывести на экран полученый масив.


Пажалуста помогите!!!!!! Буду очень благодарен!!!!!!

[_Антон_]

Уважаемый, тут нет ничего сложного. Делается всё в "лоб".
Бросайте лениться, погуглите методу и всё получится

[Moonlight]

Я вроди выкупил...

но незнаю как это в форму ввести!(


вот код... Если какие замечания, то прийму во внимание!)

Код:

program masuvu;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  a:array[1..100] of Integer;
  b:array[1..100] of Integer;
  i,n: Integer;
  bk,ak,c:double;
begin
ak:=0;
bk:=0;
Write('n ->'); readln(n);
Writeln('Vvodumo a');
For i:=1 to n do
begin
Write('->');readln(a[i]);
ak:=ak+a[i]*a[i];
end;
Writeln('Vvodumo b');
For i:=1 to n do
begin
Write('->');Readln(b[i]);
bk:=bk+b[i]*b[i];
end;
ak:=sqrt(ak);
bk:=sqrt(bk);
Write('Vvodumo kyt ->');
readln(c);
c:=cos(c)*ak*bk;
Writeln;
For i:=1 to n do Writeln(b[i]/c);
Readln;
end.

Admin: Пользуемся тегами!

[SerginhoLD]

Сообщение от Moonlight

Дано вектора а=(а1, а2, а3,....an) i b=(b1, b2 ,....bn). Найти скалярное произвидение векторов. Разделить каждый елемент масива б на полученое произвидение. Вывести на экран полученый масив.

Код:

scalar:=0;
for i:=1 to n do
  scalar:=scalar+a[i]*b[i]; //скаляр. пр.
for i:=1 to n do
  b[i]:=b[i]/scalar; //делим каждый элемент

[Moonlight]

Бальшое спасиба!!!