Department of Mathematics and Computer Science

www.univ-soukahras.dz/en/dept/mi

Module: Algorithmique et structure de données 1

  1. Information
  2. Questions

Trouver une réponse à cet algorithme

5 votes

Ecrire un algorithme qui permet de calculer l'expression suivante (avec n donné par l'utilisateur) :
1/1 + 1/2 + 1/3 + 1/4 + 1/5 + ... + 1/n
Affichez uniquement le résultat du calcul.

Asked on 17:34, Sunday 11 Dec 2016 By Noureddine GASMALLAH
In Algorithmique et structure de données 1


answers (20)




Answer (1)

1 votes

program        somme;
uses crt;

var  i,n:integer;
     s:real;

begin

clrscr;

writeln('donner n');

readln(n);

for i:=1 to n do

s:=s+(1/i);

writeln('la somme de l''expression est  ', s:6:2 );

readln();

end.

Answered on 17:48, Wednesday 14 Dec 2016 by sofiane benrdjem (26 points)
In Algorithmique et structure de données 1



Answer (1)

1 votes

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;

}

Answered on 20:38, Sunday 11 Dec 2016 by khaled amirat (184 points)
In Algorithmique et structure de données 1



Answer (2)

0 votes

fonction Somme (var n);

var int i,s;

s=0;

Debut 

pour i=0 à n faire

s=s+(1/n);

retourne s;

fin.

 

Answered on 11:57, Monday 12 Dec 2016 by ala eddine diaf (1 points)
In Algorithmique et structure de données 1



Answer (3)

0 votes

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?)

Answered on 10:06, Wednesday 14 Dec 2016 by Noureddine GASMALLAH
In Algorithmique et structure de données 1



Answer (4)

0 votes

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 .

Answered on 01:18, Saturday 21 Jan 2017 by oum el wafa khemassi (3 points)
In Algorithmique et structure de données 1



Answer (5)

0 votes

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.

Answered on 11:48, Saturday 11 Nov 2017 by rayene ridane (228 points)
In Algorithmique et structure de données 1



Answer (6)

0 votes

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.

Answered on 12:22, Saturday 11 Nov 2017 by Haifa Benlassowd (76 points)
In Algorithmique et structure de données 1



Answer (7)

0 votes

algorithme test; 

var s,n,i:entier;

debut

lire(n);

 

pour i:=1 a n faire

s:=s+1/i

fpour 

ecrire(s);

fin.

 

Answered on 23:00, Monday 13 Nov 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1



Answer (8)

0 votes

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.

Answered on 16:02, Tuesday 14 Nov 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



Answer (9)

0 votes

Algorithme som;

Var k,n,i:entier;

Debut

Lire (n);

Pour i:=1 à n faire

Debut

K:=k+1/i;

Fin;

Ecrire (s);

Fin.

 

Answered on 22:04, Thursday 16 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (10)

0 votes

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.

Answered on 22:07, Thursday 16 Nov 2017 by oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1



Answer (11)

0 votes

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 .

Answered on 00:55, Friday 17 Nov 2017 by Amani Haraoubia (47 points)
In Algorithmique et structure de données 1



Answer (12)

0 votes

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.

 

Answered on 13:30, Sunday 24 Dec 2017 by Chaima Hidri (32 points)
In Algorithmique et structure de données 1



Answer (13)

0 votes

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.

Answered on 11:08, Thursday 5 Apr 2018 by abla ben khaled (32 points)
In Algorithmique et structure de données 1



Answer (14)

0 votes

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.

Answered on 14:56, Tuesday 10 Apr 2018 by رميساء بولبدة (8 points)
In Algorithmique et structure de données 1



Answer (15)

0 votes

Algorithme som;

Var k,n,i:entier;

Debut

Lire (n);

Pour i:=1 à n faire

Debut

K:=k+1/i;

Fin;

Ecrire (s);

Fin.

Answered on 16:07, Saturday 10 Nov 2018 by Ala eddine Berrahal (36 points)
In Algorithmique et structure de données 1



Answer (16)

0 votes

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

Answered on 22:33, Friday 16 Nov 2018 by araar mohamed iyad (9 points)
In Algorithmique et structure de données 1



Answer (17)

0 votes

#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);

}

Answered on 18:47, Thursday 29 Nov 2018 by Houssem Eddine AZZAG (20 points)
In Algorithmique et structure de données 1



Answer (18)

0 votes

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. 

Answered on 21:07, Saturday 1 Dec 2018 by Intissar Bouguerra (70 points)
In Algorithmique et structure de données 1



Answer (19)

1 votes

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.

Answered on 21:26, Friday 7 Dec 2018 by Isra mallek Feknous (7 points)
In Algorithmique et structure de données 1



Do you have an answer ?