قسم الرياضيات و الإعلام الإلي

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

المقياس: Algorithmique et structure de données 1

  1. معلومات
  2. الأسئلة
  3. التعليم عن بعد

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

نشر على 17:05, الجمعة 24 نوف 2017 By oussama baha eddine farhi (257 points)
In Algorithmique et structure de données 1


أجوبة (8)




جواب (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.

نشر على 21:27, الجمعة 24 نوف 2017 by Rym Mellal (34 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 22:23, الجمعة 24 نوف 2017 by Mohamed Benabbes (17 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 23:36, الجمعة 24 نوف 2017 by Khaoula Mokrane (50 points)
In Algorithmique et structure de données 1



جواب (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 

نشر على 11:24, السبت 25 نوف 2017 by Marwa GHODBANE (54 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 21:50, السبت 25 نوف 2017 by Islam Yagoub (74 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 22:32, الأحد 26 نوف 2017 by abderrahmane brinis (136 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 11:22, الجمعة 1 ديس 2017 by sara younsi (127 points)
In Algorithmique et structure de données 1



جواب (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.

نشر على 17:45, الجمعة 8 ديس 2017 by nacer eddine ben nia (68 points)
In Algorithmique et structure de données 1



هل لديك جواب ?