Voila j'ai vu un programme qui pouvait me sembler intéressant pour mon devoir de demain matin en maths spé (terminal S).
C'est le programme qui permet de calculer le PGCD et le PPCM de deux nombres.
voici le code :
Code
:Lbl 0
:ClrHome
:Input "A = ",A
:Input "B = ",B
:ClrHome
:If (A [différent de] iPart (A)) OR (B [différent de] iPart (B))
:Then
:Output(3,2,"CE NE SONT PAS")
:Output(5,3,"DES ENTIERS")
:Pause
:Goto 0
:End
:If (AB = 0)
:Then
:Output(3,2,"A ET B DOIVENT")
:Output(5,3,"ETRE [différent de] DE 0")
:Pause
:Goto 0
:End
:If B>A
:Then
:A -> C
:B -> A
:C -> B
:End
:A -> E
:B -> F
:If A/B [différent de] iPart (A/B)
:Then
:1 -> D
:Repeat D=0
:iPart (A/B) -> C
:A-(B*C) -> D
:B -> A
:D -> B
:End
:A -> B
:End
:(EF)/B -> G
:Output(1,1,"RESULTATS :")
:Output(3,1,"PGCD(A,B) =")
:Output(3,13,B)
:Output(4,1,"PPCM(A,B) =")
:Output(4,13,G)
:Output(6,1,"AVEC :")
:Output(7,1,"A =")
:Output(7,5,E)
:Output(8,1,"B =")
:Output(8,5,F)
:Pause
:ClrHome
mais je rencontre quelques difficultés... comme pour "CE NE SONT PAS" ; "DES ENTIERS" ; "A ET B DOIVENT"...
je dois les taper en toutes lettres ou c'est pcq le symbole n'existe pas sur l'ordi ?
Autorisation : Administrateur
Nb de messages : 775
Inscrit le : Mer 18 Aoû 2004, 22:13
Posté le : Dim 14 Déc 2008, 12:46
Salut,
Ce sont des lettres !
@+ Le Webmaster
Kara Invité
Posté le : Mer 11 Fév 2009, 20:52
Bonsoir !
J'ai commencé à programmer il y a 1h exactement (), et je me suis essayée à ce programme ci...
Mais lorsque je le lance, il me dit que j'ai un problème à ce niveau là :
:Goto 0
:End
:If B>A
:Then
:A -> C
:B -> A
:C -> B
:End
:A -> E
:B -> F
J'ai essayé de "jouer" avec les espaces... mais il s'obstine sur ce signe : >
donc est-ce le bon ? (je ne vois pas bien pourquoi ça ne le serait pas, vu qu'il a accepté sans problème les lignes précédentes.... ) que dois-je faire ??
Merci d'avance !
Kara Invité
Posté le : Mer 11 Fév 2009, 21:04
okay, je suis trop nulle !!
je n'avais pas compris qu'il s'agissait de la touche sto.............
), et je me suis essayée à ce programme ci... 