%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:502 File Name:Pythag0 Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \ClrText \Locate 10,5,"Hello"\Disp\Lbl 0 \ClrText "Veuillez entrer la longueur en cm de l'hypotenuse"?\->P "Veuillez entrer la longueur en cm d'un des autres cote"?\->M "Veuillez entrer la longueur en cm d'un des autres cote"?\->N \If P\x^2=M\x^2+N\x^2 \Then \ClrText "Ce triangle est rectangle"\Disp\Goto2 \IfEnd \If P\x^2\<>M\x^2+N\x^2 \Then \ClrText "Ce triangle n'est pas rectangle" \Goto2 \IfEnd \Lbl 2 \ClrText "En faire un 2eme" "[F1]OUI" "[F2]NON" \Do \Getkey=79\=>\Goto0 \Getkey=69\=>\Goto1 \LpWhile 0=0 \Lbl 1 \ClrText "Ce programme a ete cree et programmer par KoDiX" "vous pouvez maintenant quittez le programme" %End