Zadání:

Vytvořte proceduru pro načtení vektoru ze souboru

Procedura načte vektor ze souboru. Vektor je ulozen jako posloupnost cisel.

Procedure NactiVektor(JmenoSouboru:string;Vektor:tVektor);
{Procedura nacte vektor ze souboru.
 Vektor je ulozen v souboru jako posloupnost cisel}
var F:text;
    i:byte;
begin {NactiVektor}
  assign(F,JmenoSouboru);
  reset(f);
  i:=1;
  while (not eof(f))and(i < delka) do
  begin
    read(F,Vektor[i]);
    i:=succ(i);
  end;
  close(f);
end; {NactiVektor}
  

Zadání:

Vytvořte proceduru pro součet dvou vektorů

Procedure SectiVektory(A,B:tVektor;var C:tVektor);
{Procedura secte dva vektory}
var i:byte;
begin {SectiVektory}
  for i:=1 to Delka do
    C[i]:=A[i]+B[i];
end; {SectiVektory}
  

Zadání:

Vytvořte proceduru pro rozdíl dvou vektorů

Procedure OdectiVektory(A,B:tVektor;var C:tVektor);
{Procedura odecte dva vektory}
var i:byte;
begin {OdectiVektory}
  for i:=1 to Delka do
    C[i]:=A[i]-B[i];
end; {OdectiVektory}  

Zadání:

Vytvořte proceduru, která určí velikost vektoru

Function Velikost(A:tVektor):real;
{Funkce vrati velikost vektoru}
var i:byte;
    pom:real;
begin {Velikost}
  pom:=0;
  for i:=1 to Delka do
    pom:=pom+sqr(A[i]);
  Velikost:=sqrt(Pom);
end; {Velikost}
  

Zadání:

Vytvořte proceduru, která k danému vektoru utvoří vektor, kde jednotlivé členy budou mít opačné znaménko

Procedure OpacnyVektor(A:tVektor;var B:tVektor);
{Procedura vytvori vektor s opacnymi znamenky jednotlivych clenu}
var i:byte;
begin {OpacnyVektor}
  for i:=1 to Delka do
    B[i]:=-A[i];
end; {OpacnyVektor}
  

Zadání:

Vytvořte proceduru, která vypočte skalární násobek daného čísla a daného vektoru

Procedure NasobVektor(Cislo:real;Puvodni:tVektor;var Nasobek:tVektor);
{Procedura provede nasobeni vektoru skalarem}
var i:byte;
begin {NasobVektor}
  for i:=1 to Delka do
    Nasobek[i]:=Cislo*Puvodni[i];
end; {NasobVektor}
  

Zadání:

Vytvořte proceduru pro výpočet skalárního součinu dvou vektorů

Procedure SkalarniSoucin(A,B:tVektor;var C:real);
{Procedura vraci skalarni soucin dvou vektoru}
var i:byte;
begin {SkalarniSoucin}
  C:=0;
  for i:=1 to Delka do
    C:=C+A[i]*B[i];
end; {SkalarniSoucin}
  

Zadání:

Vytvořte proceduru pro výpočet vektorového součinu dvou vektorů

Vektory mohou mít jen tři složky!!!

Procedure VektorovySoucin(U,V:tVektor;var C:tVektor);
{Procedura vraci vektorovy soucin dvou vektoru.
 Plati jen pro vektory se tremi slozkami.}
begin {VektorovySoucin}
  C[1]:=u[2]*v[3]-u[3]*v[2];
  C[2]:=u[3]*v[1]-u[1]*v[3];
  C[3]:=u[1]*v[2]-u[2]*v[1];
end; {VektorovySoucin}
  

Zadání:

Vytvořte proceduru, která vypočte odchylku dvou vektorů

Využijeme definičního vztahu pro skalární součin

Function OdchylkaVektoru(A,B:tVektor):real;
{Funkce vrati odchylku dvou vektoru v radianech}
var C:real;
begin {OdchylkaVektoru}
  SkalarniSoucin(A,B,C);
  C:=C/(Velikost(A)*Velikost(B));
  C:=ArcTan(sqrt (1-sqr (C)) /C);
  OdchylkaVektoru:=C;
end; {OdchylkaVektoru}