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

programme??

0 votes

ecrer un programme pour :

1-enter la valeur (n)

2-afficher n=n+(n-1)+(n-2)+(n-3)+.....+1

3-cliki dans enter et afficher le resultat

par ex:

l'utilisateur entrer n=5

le programme affiche 5=5+4+3+2+1

et a la fin affiche resultat est 15

bonne couragewink

Asked on 17:05, Friday 24 Nov 2017 By oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1

answers (8)



Answer (1)

0 votes

program afficher;

uses crt;

var n,i,res: integer;

begin

clrscr;

writeln ('entrez la valeur de n');

readln (n);

res := 0;

i:=1;

while i <= n do

begin

res := res+ i;

i:= i+1;

end;

writeln ('le résultat est ',res);

readln;

end.

Answered on 21:27, Friday 24 Nov 2017 by Rym Mellal (34 points)
In Algorithmique et structure de données 1

Answer (2)

0 votes

program affiche;

var

a,n,i : integer;

begin

write('Donne un nombre : ');

read(n);

for i := 1 to n do

begin

a := n + (n + (n + (- i)));

end;

writeln(a);

end.

Answered on 22:23, Friday 24 Nov 2017 by Mohamed Benabbes (17 points)
In Algorithmique et structure de données 1

Answer (3)

0 votes

 

program afficher;

uses crt;

var n,i,res: integer;

begin

clrscr;

writeln ('entrez la valeur de n');

readln (n);

res := 0;

i:=1;

while i <= n do

begin

res := res+ i;

i:= i+1;

end;

writeln ('le résultat est ',res);

readln;

end.

Answered on 23:36, Friday 24 Nov 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1

Answer (4)

0 votes

Program affiche r; 

Uses crt ; 

Var n,i,res;:integer;

Begin

Clrscr;

Write (' annetz la valeur de n');

Read(n);

res :=0;

i:=1;

While i<=n do

Begin

res :=tes+i ;

i:=i+1;

End;

Write ('le résultat est ',res );End.eadln;

End 

Answered on 11:24, Saturday 25 Nov 2017 by Marwa GHODBANE (54 points)
In Algorithmique et structure de données 1

Answer (5)

0 votes

program suite;

var n,i,s:integer;

begin

readln (n);

S:=0;

for i:=1 to n do;

S:=s+i;

Write(s);

readln;

end.

Answered on 21:50, Saturday 25 Nov 2017 by Islam Yagoub (74 points)
In Algorithmique et structure de données 1

Answer (6)

0 votes

program suite;

var n,i,res: integer;

begin

writeln ('entrez la valeur de n');

readln (n);

res := 0;

i:=1;

while i <= n do

begin

res := res+ i;

i:= i+1;

end;

readln;

writeln ('le résultat est ',res);

readln;

end.

Answered on 22:32, Sunday 26 Nov 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1

Answer (7)

0 votes

program suite;

var n,i,s:integer;

begin

readln (n);

S:=0;

for i:=1 to n do;

S:=s+i;

Write(s);

readln;

end.

Answered on 11:22, Friday 1 Dec 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1

Answer (8)

0 votes

program suite;

var n,i,res: integer;

begin

writeln ('entrez la valeur de n');

readln (n);

res := 0;

i:=1;

while i <= n do

begin

res := res+ i;

i:= i+1;

end;

readln;

writeln ('le résultat est ',res);

readln;

end.

Answered on 17:45, Friday 8 Dec 2017 by nacer eddine ben nia (68 points)
In Algorithmique et structure de données 1

Do you have an answer ?