Question

Zadanie z Pascala :)

Zadania maja byc napisane rekurencyjnie i literacyjnie :)

Napisz procedure swap zamieniajaca wartosci dwoch przekazanych parametrow.

Napisz program wyznaczajacy sume K kolejnych liczb calkowitych od 1 .

Dzieki za pomoc :)

Answer 1

Pisane z palca, ale powinno działać.

 

Procedure swap(var A, B: Typ);

Var Tmp: Typ;

Begin

 Tmp := A;

 A := B;

 B := Tmp;

End;

  

Function Suma(K: Word): Int64;

Begin

 Suma := 0;

 For K := 1 To K Do

  Inc(Suma, K); 

End;

 

Function Suma(K: Word): Int64;

Begin

 if (K = 1) Then

 Begin

  Suma := 1;

  Exit;

 End; 

 Suma := K+Suma(K-1); 

End;