Menu

Cherche exercice algorithme et corrige [Résolu/Fermé]

mehdikoris 146 Messages postés mercredi 15 mars 2006Date d'inscription 20 juin 2012 Dernière intervention - 9 déc. 2007 à 13:51 - Dernière réponse :  maurine
- 13 nov. 2017 à 20:56
Bonjour,
Salut tout le monde je cherche un site ou je peux trouver des exercices d'algorithme et leurs correctioon SVP
Merci d'avance.

El mehdi
Afficher la suite 

26 réponses

Meilleure réponse
Rocksy 511 Messages postés mercredi 14 novembre 2007Date d'inscription 31 décembre 2007 Dernière intervention - 9 déc. 2007 à 13:58
38
Merci
Bonjour,

Voilà ce que tu cherches: http://algo.developpez.com/cours/

@+

Merci Rocksy 38

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24382 internautes ce mois-ci

fontoman > fontoman - 7 nov. 2009 à 20:05
algoithme nombre
var a, b, c : entier
debut
ecrire ("donner a,b,c:")
lire(a,b,c)
a=b
b=c
c=a
ecrire ("la resultsts est :",r)
fin
galili34 7 Messages postés mercredi 15 juillet 2009Date d'inscription 28 novembre 2011 Dernière intervention > fontoman - 10 janv. 2010 à 13:54
slt, je ponse que la reponse est :
Algoithme nombre
var a, b, c : entier
debut ;
ecrire ('entée a,b,c')
lire(a,b,c);
si : a recoit b et
b recoit c et
c recoit a alors
ecrire (a,b,c) 'des nombres echange leur contenu'
fin
merci
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
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.
Bonjour,

Écrire un algorithme qui demande à l'utilisateur un nombre compris entre 1 et20 jusqu'à ce que le nombre convient
17
Merci
bjr se site peux t aider www.chez.com\algor
9
Merci
Salut ! voila un cite intéressant "www.yopdf.com"
nouha07 1 Messages postés lundi 16 février 2009Date d'inscription 16 février 2009 Dernière intervention - 16 févr. 2009 à 17:11
5
Merci
slt

svp je veux avoir la reponse de cet algo le plus vite svp

ecrire un algo qui demande à l'utilisateur un nombre et afficher :

-afficher ls divisurs de ce nombre.

-le nombre de ces divisants.

-la somme des divisurs de ce nombre
debut
i;n:entier
pour i=1 a n faire
ecrire(entrez la valeur n )
lire (n)
n<==n*i
ecrire(i)
finpour
fin
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
adobe reader 5 Messages postés mercredi 23 septembre 2009Date d'inscription 21 novembre 2009 Dernière intervention - 21 nov. 2009 à 13:39
2
Merci
svp aider à trouver la solution à mon algo ecrire un algo ki converti un nombre de la base deux vers la base10.svp aidez moi
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.