Ćwiczenia

1. Obejrzyj plik źródłowy programu koskier.f, obliczającego cosinus kierunkowy dwóch wektorów a i b w przestrzeni trójwymiarowej, zgodnie z wzorem:

   
   

   $$\cos\alpha = \frac{\bf a\circ b}{\sqrt{({\bf a}\circ {\bf a})({\bf b}\circ {\bf b})}}$$
   
   

   Skompiluj i uruchom program dla przykładowych danych.

2. Uprość ten program zapisując wyrażenie na iloczyn skalarny w postaci oddzielnego segmentu funkcji o nazwie skalar. Skompiluj i uruchom program dla przykładowych danych.

3. Zmodyfikuj program ph1.f z poprzedniego ćwiczenia tak, aby część obliczająca pH roztworu była zapisana w postaci segmentu funkcji.

4. Zapisz program ph1.f w postaci w pełni modularnej dzieląc go na następujące segmenty:
   1. Czytania danych

   2. Obliczeniowy

   3. Drukowania wyników.