Cherche exercice algorithme et corrige [Résolu]

slt pour tous mais je veux vous dire que la solution proposer par galili est incorrecte
il ne faut pas utiliser la structure cond. c'est une simple permutation circulaire

Voici quelques exercices corrigés d'algorithme:

http://exercicecorrige.comuf.com

Bonjour pour ma part, Galili n'a pas fait ce qu'il fallait et Riadh a raison. et je dirai a Galili d'utiliser une valeur interne. comme suit:
Algorithme Permutation.
Var: a,b,c entiers.
Debut:
Ecrire (entrez trois entiers);
Lire (a,b,c);
d recoit a;
a recoit b;
b recoit c;
c recoit d;
Ecrire ("le nouvel ordre est:",a,b,c).
Fin.
Ici, "d" est une valeur interne.
cet Algorithme peut aussi se resoudre sans valeur interne, comme suit:
Algorithme Permutation.
Var: a,b,c entiers.
Debut:
Ecrire (entrez trois entiers);
Lire (a,b,c);
a recoit b-a-c;
b recoit b-a;
c recoit b-c;
b recoit b-c;
a recoit a+b+c
ecrire ("le nouvel ordre est:",a,b,c).
Fin.

merci mon amie

www.yopdf.com

ce qui a fait abm est faux


algo diviseurs
variable n,x,s,i:entier
debut
lire n
x:=0
s:=0
pour i:=1 a n faire
si n%i:=0 alors
ecrire "les diviseurs sont",i
x:=x+1
s:=s+i
fin si
fin pour
fin.


ce programme est fait par ton frere de nationalite mauritanniene

algorithme diviseurs
Variables: entiers : n,D,S,i,T[J],J;

{
ecrire("donner un entier n");
lire(n);
S:=0;
D:=0;
pour i:=1 jusqu'a n div 2 faire;
{
si n mod i ==0 alors
{
S:=S+i;
D:=D+1;
T[J]:=i;
J:=J+1;
}
}
}


la somme des diviseurs est S
le nombres des diviseurs est D
et les diviseurs sont affichés dans un tableau T

dim n as string
dim r,s,d,k as integer
write("donner un nombre en binaire:")
n=read
s=0
k=0
do
d=n\10
r=n mod 10
s=r*2^k+s
n=d
k=k+1
loop until d=0
write ("le nombre" & n & "en decimal est:"& s)

voila la slt en turbo pascal:
program conv;
uses wincrt;
var
e,x,s,i,n:integer;
ch: string;
function puissance(y:integer):integer;
var
i,p:integer;
begin
p!=1;
for i := 1 to y do
p:= p*2;
puissance:=p;
end;
begin
readl(n);
str(n, ch);
for i:= length (ch) downto 1 do
begin
val( ch[i],x,e);
s:=s+x*puissance(i-1);
end;
write('la valeur de',n,' dans la base 10 =' s);
end.

si vous avez un tel problemr comprendre cette slt vous pouvez me contacter par email
votre frere riadh de tunisie : riadh.bamor@gmail.com

BONJOUR SVP AIDER à trouver la solution à mon algo: ecrire un algo qui lit un nombre puis il le convertit à la base binaire

salut tout le monde je souhait vous corrige cette algorithme