Discussion :

[Xspirit]

Salut à tous !
Je suis nouveau ici ! Je suis un etudiant en électronique, débutant en Pascal... Là je crois que j'ai quelques petits problèmes à résoudre... J'ai beau essayer mais en vain...

Alors voilà : je dois faire quelques programmes en Turbo Pascal qui servent à :
1- Remplacer les lettres "X" d'un texte par des "Y"
2- calculer le nombre de répétitions de la lettre "a" dans un texte
3- supprimer les lettres "v" dans un texte
4- classer 6 nombres en ordre décroissant, en affichant le nombre MAX et min ...


C'est urgent ! S.v.p aidez moi... Je veux un repère ! Pas exactement les programmes (j'ai essayé les types structurés mais je n'ai pas réussi, pour le 4àme j'arrive juste à comparer deux nombres "if...then ...else")

Merci pour toutes réponses ...

[defluc]

Sous quelle forme est ton texte : une variable String, un fichier ASCII ... ?

[thewho]

Bonjour,

Désolé pour l'urgence, mais c'est l'heure de l'apéro.

Montre nous ce que tu as essayé, et on pourra t'aider, mais on l'a dit assez souvent pour que ce soit connu : personne n'est là pour faire tes devoirs à ta place.

De plus, tu parles de turbo pascal, et nous sommes ici dans le forum Delphi

[qi130]

je suis nouveaux ici ! je suis un etudiant en electronique, debutant en pascal ... la je crois ke jai quelques petites problemmes a resoudre

Pour continuer cette litanie:
- j'ai pas lu les règles du forum
- j'ai pas fait de recherche Pascal sur le site
- j'ai pas regardé s'il y avait des cours/tutoriels pour Pascal

Aide toi, le ciel t'aidera...

[gogo_tpw]

Salut à tous !
Je suis nouveau ici ! Je suis un etudiant en électronique, débutant en Pascal... Là je crois que j'ai quelques petits problèmes à résoudre... J'ai beau essayer mais en vain...

Alors voilà : je dois faire quelques programmes en Turbo Pascal qui servent à :
1- Remplacer les lettres "X" d'un texte par des "Y"
2- calculer le nombre de répétitions de la lettre "a" dans un texte
3- supprimer les lettres "v" dans un texte
4- classer 6 nombres en ordre décroissant, en affichant le nombre MAX et min ...


C'est urgent ! S.v.p aidez moi... Je veux un repère ! Pas exactement les programmes (j'ai essayé les types structurés mais je n'ai pas réussi, pour le 4àme j'arrive juste à comparer deux nombres "if...then ...else")

Merci pour toutes réponses ...

pour le 4 il faut utiliser boucle pour (FOR)
Un exemple :
il faut ranger les nombres dans un tableau (T) par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
max:= T(1);
for i :=1 to 6 do
begin
if T[i]>max  then
max:=T[i];
end;

après cette boucle, max contiendra le maximum

[diden138]

pour le 4 il faut utiliser boucle pour (FOR)
c un exemple:
il faut ranger les nombres dans un tableau(T)par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
max:= T(1);
for i :=1 to 6 do
begin
if T[i]>max  then
max:=T[i];
end;

apres cette boucle max contiendra le maximum

j'ajouterai que pour le min la même chose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
min:= T(1);
for i :=1 to 6 do
begin
if T[i]<min  then
min:=T[i];
end;

Pour les autres questions, il faut nous préciser où tu stockes ton texte : dans un fichier, chaîne de caractères,... bref on peut pas deviner... et puis il y a plein d'excellents tutos ici si tu débutes en Pascal; pense à la faq aussi

[amine6441]

salut est bien venu dans notre forum
le program est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program aleatrie;
uses crt;
var
   tableau:array[1..10] of integer;
   i,j:integer;
   aux:integer;
begin
     clrscr;
     randomize;
     for i:=1 to 10 do
         tableau[i]:=random(37)+13;
     for i:=1 to 10 do
         write(tableau[i]:7);
     for i:=2 to   10 do
     begin
          for j:=10  downto i do
          begin
          if(tableau[j-i]>tableau[j])then
          begin
               aux:=tableau[j-i];
               tableau[j-i]:=tableau[j];
               tableau[j]:=aux;
          end;
     end;
end;
writeln;
for i:=1 to 10 do
    writeln(tableau[i]:7);
    readln;
end.