Turbo pascal
Discutez d'informatique ici !
-
Ptiboudelard
- Membre Relatif
- Messages: 303
- Enregistré le: 31 Déc 2008, 08:43
-
par Ptiboudelard » 13 Jan 2009, 21:06
Bonsoir !
Quelqu'un saurait il comment écrit une puissance en turbo pascal du genre (1/2)^n ?
Je ne connais pas l'instruction permettant d'afficher les puissances
Merci !
-
barbu23
- Membre Transcendant
- Messages: 5466
- Enregistré le: 18 Fév 2007, 17:04
-
par barbu23 » 13 Jan 2009, 21:11
Salut :
Voiçi comment on l'écrit en turbo pascal :
for i := 1 to n do
s := 1/2;
s := 1/2 * s
:happy2:
-
Ptiboudelard
- Membre Relatif
- Messages: 303
- Enregistré le: 31 Déc 2008, 08:43
-
par Ptiboudelard » 13 Jan 2009, 21:12
d'aaaaaaccord ! lol il n'existe donc pas d'instruction à proprement parler ?
merci encore !
-
fatal_error
- Membre Légendaire
- Messages: 6610
- Enregistré le: 22 Nov 2007, 12:00
-
par fatal_error » 13 Jan 2009, 22:04
salut,
une astuce foireuse :
a^b=exp(b*ln(a))
exp et ln existent en pascal, donc j'imagine en turbo pascal aussi
la vie est une fête

-
Ptiboudelard
- Membre Relatif
- Messages: 303
- Enregistré le: 31 Déc 2008, 08:43
-
par Ptiboudelard » 13 Jan 2009, 22:15
mdr ... moui pour exp ça existe. Je ne sais pas si ln existe aussi. En revanche, je vais éviter ce genre de combine, car je fais ça dans l'optique d'un concours ( je suis en CPGE ECE ). Donc j'imagine que ça ne fera pas partie des points valorisés si je mets ça ! lol
Néanmoins c'est correct !!! Merci en tous cas !
-
rincewind
- Messages: 2
- Enregistré le: 14 Jan 2009, 16:21
-
par rincewind » 14 Jan 2009, 17:21
si tu n'as pas droit à cette astuce code ta propre fonction (désolé ma syntaxe du pascal est trop rouillée j'écris en langage algorithmique simple)
pour ça tu as deux solutions :
la boucle for indiquée au dessus :
- Code: Tout sélectionner
fonction puissance(nbr,exp)
si exp=0
return 1
sinon
resultat=nbr
pour i de 1 à exp-1
resultat=resultat*nbr
return resultat
et tu as aussi la méthode récursive qui impressionne toujours :ptdr:
- Code: Tout sélectionner
fonction puissance(nbr,exp)
si exp=0
return 1
sinon si exp=1
return nbr
sinon
return nbr*puissance(nbr,n-1)
-
Ptiboudelard
- Membre Relatif
- Messages: 303
- Enregistré le: 31 Déc 2008, 08:43
-
par Ptiboudelard » 14 Jan 2009, 19:44
merci merci ! On a corrigé aujourd'hui l'exercice que j'avais à faire, et j'avais tout bon ^^ on l'a testé sur l'ordi et ca a fonctionné! :-D
-
anais10
- Membre Naturel
- Messages: 13
- Enregistré le: 01 Jan 2011, 14:46
-
par anais10 » 01 Jan 2011, 16:43
Je reprends ce vieux topic !
Comment on écrit ln en pascal ?
-
fatal_error
- Membre Légendaire
- Messages: 6610
- Enregistré le: 22 Nov 2007, 12:00
-
par fatal_error » 01 Jan 2011, 17:44
avec log...probablement
la vie est une fête

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 6 invités