Probleme pascal le sous programme
Fermé
Bonjour,
j'ai unprobleme dans l'exercice
soit un tableau t1 de n element, les elements de t1 sont des entiers naturels des 3 chiffres,
on propose de remplir un tableau t2 de la façon de que t2 est egal a la somme des carres de chiffres de t1[i],
ecrire un algorithme qui permet de saisirles elements de t1 et de remplir puis d'afficher le tableau t2 ,
svp qui compri c exercice repond moi je suis entrain de le resoudre vite
j'ai unprobleme dans l'exercice
soit un tableau t1 de n element, les elements de t1 sont des entiers naturels des 3 chiffres,
on propose de remplir un tableau t2 de la façon de que t2 est egal a la somme des carres de chiffres de t1[i],
ecrire un algorithme qui permet de saisirles elements de t1 et de remplir puis d'afficher le tableau t2 ,
svp qui compri c exercice repond moi je suis entrain de le resoudre vite
A voir également:
- Probleme pascal le sous programme
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Programme demarrage windows 10 - Guide
- Comment mettre en veille un programme sous windows 10 - Guide
- Cette action ne peut pas être réalisée car le fichier est ouvert dans un autre programme - Guide
3 réponses
salut voici mon essay
Debut algorithm somme_carre
i,n : entier
ecrire ("saisie l'entier n ")
lire (n)
pour i de 1 a n faire
répéter
ecrire ("donner l'element" ,i)
lire t1(i)
jusqu'a (t1(i) > 100 et t1(i)<999)
fin pour
pour i de 1 a n faire
t2(i) <-- carré (t(i) mod 100) + carré (t(i) div 100 mod 10) + carré ( t(i) div 10)
fin pour
fin algorithm
Debut algorithm somme_carre
i,n : entier
ecrire ("saisie l'entier n ")
lire (n)
pour i de 1 a n faire
répéter
ecrire ("donner l'element" ,i)
lire t1(i)
jusqu'a (t1(i) > 100 et t1(i)<999)
fin pour
pour i de 1 a n faire
t2(i) <-- carré (t(i) mod 100) + carré (t(i) div 100 mod 10) + carré ( t(i) div 10)
fin pour
fin algorithm