Algorithme: ecrire programme de calculatrice

mon algo est: entrée demander un nombre et l'affecter à N
créer une liste L à N élément ( noté L(1),l(2),... L(N)
demander N nombres et les affecter au N variable L(1) , L(2) ,... L(N)
traitement : pour i allant de 1 à N-1
déterminer le plus petit nombre x de la liste L(i) j,... l(N)
noter k l'entier tel que x se trouve en L(k)
échanger les nombres L(k) et L(i)
fin pour
sortie : afficher la nouvelle liste l(1) ,L(2) ... L(N)



1) exécuter l'algorithme pour l'entier N=3 et la liste L : 16;12;14
2) exécuter l'algorithme pour N=4 et la liste N 16;12;14;13
2)quel est le rôle de cet algorithme ?



S.O.S : savez moi c'est urgent ( pour dans deux jours...)

Bonjour,
Merci de poster ton propre post et de nous donner tes réponses pour qu'on puisse te corriger. Ou alors dis-nous ce que tu ne comprends pas.

je veux une soution qui permet de remplir une liste chainée
chui 1 débutant
et voila mon essay je veux juste des rectification a mon programme merci d'avance
#include<iostream.h>
struct element
{
int info;
element *suivant;
};
void inisialisation(element *&debut)
{
debut=0;
}
void repmlissage(element *&debut,int cmpt)
{
int inf,i;
for(i=0;i<cmpt;i++)
{
element *nouveau= new element;
cout<<"entrez un nombre entier svp"<<endl;
cin>>inf;
nouveau->info=inf;
nouveau->suivant=debut;
debut=nouveau;
}
}
void affichage(element *&debut)
{
element *courant;
courant=debut;
while(courant->suivant!=0)
cout<<courant->info;
}
void main()
{
int n;
inisialisation(element d);
cout<<"donner la taille de la liste svp"<<endl;
cin>>n;
repmlissage(element d,int n);
affichage(element d);
}
C++ »

Je répète : Merci de créer ton propre post. Et si tu pouvais encapsuler ton code dans des balises "code" (à droite du bouton souligné) ça gagnerait en lisibilité.

Bonjour
J'ai un programme de calcul dans la langue de Pascal a un petit problème
S'il vous plaît aider si possibl.
Program cal ;
Uses crt ;
Var a,b,r, : real ;
Conf,op: char;
Function Addition(a,b:real):real;
Begin
R:=a+b;
End;
Function Soustraction(a,b:real):real;
Begin
R:=a-b;
End;
Function Multiplication(a,b:real):real;
Begin
R:=a*b;
End;
Function Division(a,b:real):real;
Begin
If b<>0 then
R:=a/b
Else
Writeln(‘Erreur!’);
End;
Function DivEntier(a,b:real):real;
Begin
If b<>0 then
R:=a div b
Else writeln(‘Erreur!’);
End;

Function Factoriel(a:integer):integer;
Begin
R:=1;
While a> 0 Do
Begin
R:=r*a;
A:=a-1;
End;
End;
Function Puissance(a,b: integer):integer;
Var reg:char;
Begin
R:=1;
If b=0 then
R:=1
Else
Begin
If b<0 then
Begin
B:=b*(-1);
Reg:=’O’;
End
Else reg:=’N’;
R:=1;
While b>0 do
Begin
R:= r*a;
B:=b-1;
End;
If reg= ‘O’ then
R:= 1/ r;
End;
End;
BEGIN
Repeat
Writeln(‘Menu’);
Writeln(‘a=’); readln(a);
Readln(op);
If op=’!’ then
Begin
Readln(conf);
If conf =’=’ then
Writeln(factoriel(a));
End
Else
Begin
Writeln(‘b=’);readln(b);
Readln(conf);
If conf = ‘=’ then
Case op of
‘+’: r:= Addition(a,b);
‘-’: r:= Soustraction(a,b);
‘*’: r:= Multiplication(a,b);
‘/’: r:= Division(a,b);
‘D’: r:= DinEntier(a,b);
‘X’: r:= Puissance (a,b);
End ;
Writeln(r) ;
End ;
End ;
Until Keypressed = #27
END.

ai un programme de calcul dans la langue de Pascal a un petit problème
S'il vous plaît aider si possibl.
Program cal ;
Uses crt ;
Var a,b,r, : real ;
Conf,op: char;
Function Addition(a,b:real):real;
Begin
R:=a+b;
End;
Function Soustraction(a,b:real):real;
Begin
R:=a-b;
End;
Function Multiplication(a,b:real):real;
Begin
R:=a*b;
End;
Function Division(a,b:real):real;
Begin
If b<>0 then
R:=a/b
Else
Writeln(`Erreur!');
End;
Function DivEntier(a,b:real):real;
Begin
If b<>0 then
R:=a div b
Else writeln(`Erreur!');
End;

Function Factoriel(a:integer):integer;
Begin
R:=1;
While a> 0 Do
Begin
R:=r*a;
A:=a-1;
End;
End;
Function Puissance(a,b: integer):integer;
Var reg:char;
Begin
R:=1;
If b=0 then
R:=1
Else
Begin
If b<0 then
Begin
B:=b*(-1);
Reg:='O';
End
Else reg:='N';
R:=1;
While b>0 do
Begin
R:= r*a;
B:=b-1;
End;
If reg= `O' then
R:= 1/ r;
End;
End;
BEGIN
Repeat
Writeln(`Menu');
Writeln(`a='); readln(a);
Readln(op);
If op='!' then
Begin
Readln(conf);
If conf ='=' then
Writeln(factoriel(a));
End
Else
Begin
Writeln(`b=');readln(b);
Readln(conf);
If conf = `=' then
Case op of
`+': r:= Addition(a,b);
`-': r:= Soustraction(a,b);
`*': r:= Multiplication(a,b);
`/': r:= Division(a,b);
`D': r:= DinEntier(a,b);
`X': r:= Puissance (a,b);
End ;
Writeln(r) ;
End ;
End ;
Until Keypressed = #27
END.

program zaoui
var A,B,C real;
begin
wrait(entre troi nembr,);
réed (A,B,C);
end

dsl, je connais pas le pascal perso !

programme basique

Sauf que certains profs d'algo veulent parfois l'écriture de programme en C. D'où ma question ! ;)

Elle a dit que c'était un algorithme comme "Début, ....", donc pas d'interface graphique, et pas de java, juste de l'algorithmique.

yeah, ça me rappelle l'époque où je programmais sur TI, à la dure, à la vrai, à l'ancienne ^^ bravo pour vos galères & trouvailles

hey, ça semble intéressant bien que complexe. qu'est-ce qu'une algobox pour savoir ?