[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
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Turbo pascal linux ✓ - Forum Linux / Unix
- Turbo sim c'est quoi - Forum Mobile
1 réponse
fiddy
Messages postés
11069
Date d'inscription
samedi 5 mai 2007
Statut
Contributeur
Dernière intervention
23 avril 2022
1 840
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