[Turbo Pascal] Aide
Fermé
butterfly66
Messages postés
30
Date d'inscription
dimanche 12 novembre 2006
Statut
Membre
Dernière intervention
15 mars 2009
-
20 juin 2007 à 23:01
fiddy Messages postés 11069 Date d'inscription samedi 5 mai 2007 Statut Contributeur Dernière intervention 23 avril 2022 - 21 juin 2007 à 10:19
fiddy Messages postés 11069 Date d'inscription samedi 5 mai 2007 Statut Contributeur Dernière intervention 23 avril 2022 - 21 juin 2007 à 10:19
A voir également:
- [Turbo Pascal] Aide
- Turbo pascal download - Télécharger - Édition & Programmation
- Iphone turbo sim inconvénient - Forum iPhone
- My pascal - Télécharger - Édition & Programmation
- Turbo sim - Forum iPhone
- Telecharger turbo pascal 7.0 gratuit 01net ✓ - Forum Pascal
1 réponse
fiddy
Messages postés
11069
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
23 avril 2022
1 816
21 juin 2007 à 10:19
21 juin 2007 à 10:19
Salut
Plutôt que de te donner le code en pascal, je te donne l'algorithme. Tu pourras le retranscrire facilement en pascal.
On suppose les tableaux remplis.
Et pour le 2)
Bonne chance pour la traduction en Pascal
Plutôt que de te donner le code en pascal, je te donne l'algorithme. Tu pourras le retranscrire facilement en pascal.
On suppose les tableaux remplis.
tab1 : Tableau
tab2 : Tableau
i,j : Entier
schtroumpf : Entier
0<-schtroumpf
Pour i de 0 à longueur tab2 faire
Pour j de 0 à longueur tab1 faire
schtroumpf=schtroumpf+tab2[i]*tab1[i]
FinPour
FinPour
retourner schtroumpf
Et pour le 2)
tabVille : Tableau de String (Déjà initialisé)
nouvTab : Tableau de String
i : Entier
indice : Entier
ville : String
lire ville
0<-indice
TantQue ville non égal à tabVille[indice]
indice=indice+1
FinTantQue
Si i<taille tabVille Alors
Pour i de 0 à longueur tabVille
Si i non égal à indice Alors nouvTab[i]<-tabVille[i] FinSi
FinPour
retourner nouvTab
Sinon
retourner tabVille
FinSi
Bonne chance pour la traduction en Pascal