skalarni_soucin [Programování]

Zadání

Skalární součin vektorů (a₁,… a_n) a (b₁,… b_n) je číslo a₁*b₁ + … + a_n*b_n. 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₁,… a_n; b₁,… b_n (v tomto pořadí) a nakonec vypíše skalární součin. Pro jednoduchost předpokládejte, že n < = 100.

Řešení

 
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.