un algorithme a resoudre svp Fermé

Question

Bonjour,

http://img297.imageshack.us/img297/1766/image17copiexm8.jpg

merci bien de m'aider, je suis debutant, et j'ai pas reussi a le faire.

Marco la baraque · Answer

Bonsoir,
Peux-tu nous dire ce que tu as fait exactement afin qu'on puisse te guider vers la solution ?

Cordialement

bizu53 · Answer

Je vais peut-être te paraître un peu dur en disant ça, mais apprendre à écrire un algorithme ne s'apprend pas en ayant la réponse et en cherchant à la comprendre ... (ou du moins si t'y arrives tant mieux pour toi mais j'ai jamais vu qqu'un réussir comme ça). Le but du forum n'est pas non plus de faire ton exo à ta place.

Ce que je peux te dire, si ça peut t'aider :
C'est qu'écrire un algorithme n'est pas infaisable même pour un débutant. Ce qu'il faut bien comprendre pour faire un algorithme, c'est comprendre comment le programme doit faire pour fonctionner.
Imagine-toi en train de dire à ta machine ce qu'elle doit faire... en la prenant pour une conne (lol), elle ne comprends que les condition (si machin alors truc), mettre des valeurs là où tu lui dis, et répéter des opérations un certain nombre de fois (ou selon une condition).
Tu dois donc penser les étapes nécessaires au fonctionnement, et éventuellement les préciser en sous-étapes.

Il vaut mieux avoir réfléchi à faire l'algo sans avoir réussi, plutôt qu'on te le donne sans trop réfléchir (on n'avance pas comme ça)

Bon courage

powerwave · Answer

re, merci de me repondre marco
je suis un nouveau etudiants qui reçoit une formation en .net, la derniére chose ue j'ai apris c'est les boucles,
voila ce que j'ai repondu moi mais je suis sur que c pas correcte lol
http://img297.imageshack.us/img297/6837/image18tz9.jpg

powerwave · Answer

g déja essayé mec je veux juste que quelqu'un me corrige xD merci bien pour tes conseilles :)

powerwave · Answer

ok merci les gars, je passerai souvent vous faire chier avec d'autre questions mdrrrrrrr

m@her_91 · Answer

slt...
juset une ptite remarque pour bizu53 .. bah tu lui a ecri l algorithme avec une fonction ... bah je croix que ce n 'est pas la bonne idéé pacequ'il debute deja ... il est tot pour les procedures et les fonctions !! nn?? :)

powerwave · Answer

c sur g rien pigé xD je viens juste d'aprendre les boucles aujourd'hui xD

m@her_91 · Answer

aahh ui mmdr !! c etait Marco la baraque !!   :P

m@her_91 · Answer

est ce que ta premiere seance aujourd'hui en algortihme parceque ca m'ettonnerai enormement si c le cas ...apprendre plus qu'une boucle c tro !!:O

powerwave · Answer

ben g apris en quelques seances les trucs de base, stocker, ecrire".....",lire "....",si  .... alors, x mod y = 0, SQR, et une boucle, c tt pour le moment xD je suis un vrai debutant ^^

m@her_91 · Answer

bah si si.. y a beaucoup de chose plus difficile en algo .. moi niveau 3eme informatique tunisie (un an avant le bac) une fois en jettant un coup d'oueil sur le devoir de pascal de bac pour l' anné 2008 j'ai rien compri xD !! voila le corrigé :

program bac_pratique;
uses wincrt;
type
convertition=record
dec:integer;
bin:string;
oct:string;
hex:string;
end;
fichier1=file of integer;
fichier2=file of convertition;
{-----------------------------------------------}
procedure saisie1( var n:integer);
begin
repeat
write('Donner N : ');
readln(n);
until ((n>5) and (n<100));
end;
{-----------------------------------------------}
procedure saisie2(var nombres:fichier1; n:integer);
var i,p:integer;
begin
{$i-} reset(nombres);{$i+}
if ioresult<> 0
then
rewrite(nombres);

for i:=1 to n do
begin
repeat
write('Donner Un Entier à Remplir Dans Le Fichier Nombres : ');
readln(p);
until (p<32000);
write(nombres,p);
end;

end;
{-----------------------------------------------}
function inver(ch:string):string;
var i:integer; ch1:string;
begin
ch1:='';
for i:=length(ch) downto 1 do
ch1:=ch1+ch[i];
inver:=ch1;
end;
{-----------------------------------------------}
function conv(p,b:integer):string;
var ch,ch1:string; r:integer;
begin
ch:=''; ch1:='';r:=0;
repeat
r:=p mod b;
p:=p div b;
if b=16
then
begin
if r in [0..9]
then
str(r,ch1)

else
ch1:=chr(r+55);
end
else
str(r,ch1);
ch:=ch+ch1;
until (p=0);
conv:=inver(ch);
end;
{------------------------------------------------}
procedure remplir(var nombres:fichier1;var nbr_conv:fichier2);
var i,p:integer; con:convertition;
begin
reset(nombres);
rewrite(nbr_conv);
for i:=0 to (filesize(nombres)-1) do
begin
seek(nombres,i);
read(nombres,p);
with con do
begin
writeln('L"enregistrement N°',i,':');

dec:=p;
writeln('En Dicimale : ',dec);

bin:=conv(p,2);
writeln('En Binaire : ',bin);

oct:=conv(p,8);
writeln('En Octet : ',oct);

hex:=conv(p,16);
writeln('En Hexadicimal : ',hex);
writeln;
end;
write(nbr_conv,con);
end;

end;
{-----------------------------------------------}
var nombres:fichier1; nbr_conv:fichier2; choix,n:integer;
begin
assign(nombres,'d:\nombres.dat');
assign(nbr_conv,'d:\nbr_conv.dat');
repeat
writeln('Saisie De N : (1) ');
writeln('Saisie De Fichier Nombres : (2) ');
writeln('Remplissage Et Affichage De convertition : (3) ');
writeln('Recréer Le Fichier Nombres : (4) ');
writeln('Recéer Le Fichier Nbr_conv : (5) ');
writeln;
repeat
write('donner votre choix : ');
readln(choix);
until choix in [0..5];
case choix of
1:saisie1(n);
2:saisie2(nombres,n);
3:remplir(nombres,nbr_conv);
4:rewrite(nombres);
5:rewrite(nbr_conv);
end;
write('Traitment Terminer Taper Entrer Pour Continuer ');
readln;
clrscr;

until choix=0;
gotoxy(30,15);write('Programme terminer');

end.

m@her_91 · Answer

oui mais c presque la meme chose la difference c juste la traducction en pascal !!

m@her_91 · Answer

oui !! je vais te poser une question  : ) .. quelles sont les  branches dans l' orientation chez vous en France ?? parceque j'ai aucune idée!!

powerwave · Answer

chui marocain moi ne parlez pas chnois svp xD

m@her_91 · Answer

dsl pour le francais "ecasé" !! xD

Un algorithme a resoudre svp

15 réponses

Discussions similaires