Archive of the former Mathematics and Computer Science Dept

int calcul(int n , int s){

s = 0;

for (int i = 1 ; i <= n ; i++){

   s = s +(1/n);

}

//affichage S.O.P(s);

return s;

}

fonction Somme (var n);

var int i,s;

s=0;

Debut 

pour i=0 à n faire

s=s+(1/n);

retourne s;

fin.

Attention Ala Eddine la fonction toujours a un type? de plus avant de sortir de la fonction tu dois affecter la valeur trouvée dans l'identifiant de la fonction. (Reprends ton algo?)

Programme somme ;

var i,m:entier ;

    S:reél ;

debut

ecrire (´donné m ´);

lire (m);

pour i:=1 à m faire

s:=s+(1/i);

ecrire ('la somme est',s);

lire ();

fin .

program somme;

uses crt;

var n,i:integer;

      s:real;

begin

clrscr;

writeln('tapez n');

readln(n);

for i:=1 to n do

s:=s+(1/i);

writeln('la somme est',s);

readln(s);

end.

algorithme somme;

var i,n:entier;

      s:réel;

debut

écrire('donnez moi n');

lire(n);

pour i:=1 to n faire

s:=s+(1/i);

écrire('la somme est',s);

lire(s);

end.

algorithme test; 

var s,n,i:entier;

debut

lire(n);

pour i:=1 a n faire

s:=s+1/i

fpour 

ecrire(s);

fin.

algorithme somme;

var i,n:entier;

      s:réel;

debut

écrire('donnez moi n');

lire(n);

pour i:=1 to n faire

s:=s+(1/i);

écrire('la somme est',s);

lire(s);

end.

Algorithme som;

Var k,n,i:entier;

Debut

Lire (n);

Pour i:=1 à n faire

Debut

K:=k+1/i;

Fin;

Ecrire (s);

Fin.

Program som;

Var k,n,i:integer;

Begin

Write ('entrer la valeur n=');

Read (n);

For i:=1 to n do

Begin

K:=k+1/i;

End;

Write (k);

End.

algorithme somme ;

var i , n,s : entier ;

debut

ecrire(' donnez n ') ;

lire(n); 

pour i := 1 to n faire

debut 

s := s + 1/i ;

fin;

ecrire(' la somme est',s);

fin .

algorithem lasomme;

var i,n:entier;

      s:reel;

debut

ecrire('donnez n');

lire(n);

s:=1;

pour i:=1 à n faire

s:=s+(1/i);

fin pour;

ecrire('la somme est',s);

fin.

Algorithme calcul ;

Var s:reel;

n,i:entier ;

Debut

écrire('donner n');

lire(n);

S:=1;

Pour i:=1 a n faire

S:=s+1/i;

Fin pour;

Écrire('la somme est ',s);

Fin.

algorithme test;

var s,n,i entier;

debut

ecrire('donner n') ;

lire(n);pour i :=1 a n faire

s:=s+1/i

fpour

ecrire(s);

fin.

Algorithme som;

Var k,n,i:entier;

Debut

Lire (n);

Pour i:=1 à n faire

Debut

K:=k+1/i;

Fin;

Ecrire (s);

Fin.

algorithme somme;

Var i,n:entier;

        s:réel;

debut

écrire('donnez n')

lire(n);

pour i:=1 to n faire

s:=s+(1/i);

écrire('la somme est',s);

lire(s);

end

#include <stdio.h>
#include <math.h>
int main()
{
int i;
long int N;
float S;
S=0;
printf ("Entre N : ");
scanf ("%ld",&N);
for (i=1;i<=N;i++)
{
S=(1/i)+S;

}

printf ("%f",S);

}

Algorithme somme;

Var I, n: entier;

       S: réel;

Début

Lire(n) ;

Pour I: =1 à n faire

S: =S+(1/I) ;

Finp;

écrire('la somme est', S) ;

Fin. 

alghorithme somme;

var i,s,n:entier;

début 

écrire ("donnez n");

lire(n);

pour i<--1 à n faire 

s=s+(1/n);

fin faire;

écrire ("la somme est :",s);

fin.