code. compile. run. debug. share.
Program TP5_Exo1;
Var
i, N: integer ;
X, S, P : real;
Begin
{-*-*-*- Entrées -*-*-*-}
Writeln('Donner les valeurs de N et X : ') ;
Read(N, X) ;
{-*-*-*- Traitements -*-*-*-}
S := 0 ; P := 1; i:=1;
while (i <= N) do
begin
P := P * X;
S := S + P / i;
i:=i+1;
end;
{-*-*-*- Sorties -*-*-*-}
Write ('Le résultat S = ', S:0:3) ;
End.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|