Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
==== Zadání ====

Skalární součin vektorů (a<sub>1</sub>,... a<sub>n</sub>) a (b<sub>1</sub>,... b<sub>n</sub>) je číslo a<sub>1</sub>*b<sub>1</sub> + ... + a<sub>n</sub>*b<sub>n</sub>. Napište program, který přečte
kladné celé číslo //n//, které udává dimenzi použitých vektorů. Poté postupně přečte hodnoty a<sub>1</sub>,... a<sub>n</sub>; b<sub>1</sub>,... b<sub>n</sub>
(v tomto pořadí) a nakonec vypíše skalární součin. Pro jednoduchost předpokládejte, že n < = 100.

==== Řešení ====

<code pascal>

const MAX = 100;                {maximalni velikost vektoru}

var
  n,                            {velikost vektoru}
  i,                            {citac v cyklu for}
  skals: integer;               {vysledny skalarni soucin}
  a,                            {prvni vektor}
  b: array[1..MAX] of integer;  {druhy vektor}

begin
  {precteme velikost vektoru}
  repeat
    writeln('Zadej n (0-', MAX, ', )');
    readln(n);
  until (n >= 0) and (n <= MAX);

  {nechame uzivatele zadat 1. vektor}
  writeln('Zadej 1. vektor');
  for i := 1 to n do
    read(a[i]);

  {nechame uzivatele zadat 2. vektor}
  writeln('Zadej 2. vektor');
  for i := 1 to n do
    read(b[i]);

  {vypocitame skalarni soucin}
  skals := 0;
  for i := 1 to n do
    skals := skals + a[i] * b[i];

  writeln('Vysledek: ', skals);

end.


</code>