Program S7 ;
Var
n : integer ;
//***********************************
Procedure saisie (Var n :integer) ;
Begin
Repeat
Write('Donner un entier : ') ;
Readln(n) ;
Until n In [1..100] ;
End ;
//***********************************
Function Somme(n : integer) : real ;
Var
i : integer ;
S : real ;
Begin
S := 0 ;
For i :=1 To n Do
S := S + 1/(i*i*i) ;
Somme := S ;
End ;
//***********************************
Begin
Saisie(n) ;
Write(' La somme Sn = ', Somme(n) : 6 : 3) ;
End .
Inscription à :
Publier les commentaires (Atom)
