Języki i metody programowania. Ćwiczenie 6.

Języki i metody programowania. Ćwiczenie 6.

Procedury

Cel ćwiczenia: Poznanie zastosowań procedur. Struktura procedury. Przekazywanie parametrów do procedur. Obliczanie sum szeregów z wykorzystaniem procedur.

1. Opracować procedurę, która oblicza sumę dwóch liczb rzeczywistych przekazywanych przez wartości za pomocą argumentów x i y oraz zwraca wynik dodawania argumentów za pośrednictwem zmiennej wyn, będącej argumentem procedury. W programie głównym wywołać funkcję dla danych wejściowych wczytywanych z klawiatury. Przyjąć następujący nagłówek procedury: procedure Suma1(x, y: real; Var wyn: real).

2. Opracować procedurę, która zwraca przez zmienne minimum, maksimum oraz średnią arytmetyczną z dwóch liczb rzeczywistych przekazywanych do procedury przez wartości.

Nagłówek procedury: procedure MS(x, y: real; Var min, max, sr: real).

3. Opracować procedurę, która dla n będącego jej parametrem oblicza sumę:

S(n) = 1 - 1/2 + 1/4 - 1/6 + ... 1/k , gdzie k <=n tj. obliczenia należy zakończyć, gdy pojawi się k > n.

Na przykład, n = 1; S(1) = 1;

n = 2; S(2) = 1 - 1/2;

n = 3; S(3) = 1 - 1/2;

n = 4; S(4) = 1 - 1/2 + 1/4;

n = 5; S(5) = 1 - 1/2 + 1/4.

Nagłówek procedury: procedure S1(n: integer; Var wyn: real).

4. Niech x będzie liczbą rzeczywistą wczytywaną z klawiatury. Opracować procedurę, która dodaje kolejne wyrazy szeregu

S(x, k) = 1 + x

/ 1! + x

/ 2! + ... + x

/ k! ...

tak długo, aż pojawi się wyraz o numerze k taki, że moduł | x

/ k! | < eps, gdzie eps=1E-7 jest stałą w programie (obliczanie e

z dokładnością eps=10

). Przyjąć, że x oraz eps są argumentami procedury. Zastosować następujący nagłówek procedury:

procedure S2(x, eps: real; Var wyn: real);

5. Opracować procedurę, która wyznacza sumę cyfr liczby naturalnej x. W programie głównym wywołać procedurę dla x wczytywanego z klawiatury. Nagłówek procedury:

procedure SumC(x: word; Var suma: word).

6. Opracować procedurę rysującą wykres funkcji sin(x) w przedziale [-a, a ] w trybie

tekstowym, np. w przedziale [-pi, pi]. Przyjąć, że: oś Y przechodzi przez środek ekranu,

jest równoległa do osi Y ekranu i skierowana w dół ekranu, natomiast oś X przechodzi

przez środek ekranu, jest równoległa do osi X ekranu i skierowana w prawo. Nagłówek

procedury: procedure Rysuj(a: real).