[TP] Exercices pour débuter en (Turbo-)Pascal

Version imprimable

17/11/2006, 12h30
Xspirit

[TP] Exercices pour débuter en (Turbo-)Pascal

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... :oops: 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 ...:roll:
17/11/2006, 12h46
defluc

Sous quelle forme est ton texte : une variable String, un fichier ASCII ... ?
17/11/2006, 12h48
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
17/11/2006, 13h23
qi130

Citation:

Envoyé par Xspirit

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

Citation:

Aide toi, le ciel t'aidera...
17/11/2006, 22h36
gogo_tpw
Citation:

Envoyé par 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... :oops: 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 ...:roll:

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

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
;)
17/11/2006, 22h49
diden138
Citation:
Envoyé par gogo_tpw

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

Code:

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:

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 ;)

voici la syntaxe

salut est bien venu dans notre forum
le program est:

Code:

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.