Quelques renseignements pour des jumelles, longue vue ou télescope. ---------------------------------- PROGRAM:CIELSCOP Lbl A0 EffÉcran "**************************"→Chn1 0→C Disp sousch(Chn1,1,26) Disp "Grossissement..........> 1" Disp "Champ..................> 2" Disp "Luminosité.............> 3" Disp "Ouverture..............> 4" Disp sousch(Chn1,1,26) Disp "" Input "Votre choix = ",C If C>0 et C<5:Then If C=1:Goto A1 If C=2:Goto A2 If C=3:Goto A3 If C=4:Goto A4 Else Goto F End Lbl A1 EffÉcran 0→J:0→U:0→G Disp sousch(Chn1,1,26) Disp " Si inconnu tapez 0" Disp "" Input "Focale de l'objectif ? ",J Input "Focale de l'oculaire ? ",U Input "Grossissement ? ",G If J≤0 et U≤0 ou J≤0 et G≤0 ou U≤0 et G≤0 Goto X If J>0 et U>0:Then J/U→G:Goto B1:End If J>0 et G>0:Then J/G→U:Goto B1:End If U>0 et G>0:Then U*G→J:End Lbl B1 EffÉcran Disp sousch(Chn1,1,26) Disp "" Output(3,1,"Focal objectif:"):Output(4,15,J) Output(5,1,"Focal oculaire:"):Output(6,15,U) Output(7,1,"Grossissement.:"):Output(8,15,G) Output(9,1,sousch(Chn1,1,26) Output(10,2,"[entrer] pour continuer !") Pause Goto F Lbl A2 EffÉcran 0→M:0→D Disp sousch(Chn1,1,26) Disp " Si inconnu tapez 0" Disp "" Input "Champ en mètres ? ",M If M≤0:Then 00→M:Input "Champ en degrès ? ",D End If M≤0 et D≤0:Goto X If M>0:Then M/17.45→D Else D*17.45→M End EffÉcran Disp sousch(Chn1,1,26) Output(3,1,"Champ en mètres..:"):Output(4,15,M) Output(5,1,"Champ en degrès..:"):Output(6,15,D) Output(8,1,sousch(Chn1,1,26) Output(10,2,"[entrer] pour continuer !") Pause Goto F Lbl A3 EffÉcran 0→D:0→G:0→L Disp sousch(Chn1,1,26) Disp " Si inconnu tapez 0" Disp "" Input "Diamètre objectif ? ",D Input "Grossissement ? ",G Input "Luminosité ? ",L If D≤0 et G≤0 ou D≤0 et L≤0 ou G≤0 et L≤0 Goto X If D>0 et G>0:Then (D/G)²→L:Goto B3:End If D>0 et L>0:Then D/√(L)→G:Goto B3:End If G>0 et L>0:Then G*√(L)→D:End Lbl B3 EffÉcran Disp sousch(Chn1,1,26) Output(3,1,"Diamètre objectif:"):Output(4,15,D) Output(5,1,"Grossissement....:"):Output(6,15,G) Output(7,1,"Luminosité.......:"):Output(8,15,L) Output(10,1,sousch(Chn1,1,26) Pause Goto F Lbl A4 EffÉcran 0→D:0→F:0→O Disp sousch(Chn1,1,26) Disp " Si inconnu tapez 0" Input "Focale ? ",F Input "Diamètre objectif ? ",D Input "Ouverture ? ",O If F≤0 et D≤0 ou F≤0 et O≤0 ou D≤0 et O≤0 Goto X If F>0 et D>0:Then F/D→O:Goto B4:End If F>0 et O>0:Then F/O→D:Goto B4:End If D>0 et O>0:Then D*O→F:End Lbl B4 EffÉcran Disp sousch(Chn1,1,26) Output(2,1,"Focale.......:"):Output(2,15,F) Output(3,1,"Diamètre.....:"):Output(3,15,D) Output(4,1,"Ouverture....:"):Output(4,15,O) If O<6:Then Output(6,1,"Luminosité.: bonne") Output(7,1,"Résolution.: faible") Output(8,1,"Observation: Ciel profond") End If O>5 et O<10:Then Output(6,1,"Luminosité = Moyenne") Output(7,1,"Résolution = Moyenne") Output(8,1,"Ciel profond & planètes") End If O>9:Then Output(6,1,"Luminosité = faible") Output(7,1,"Résolution = bonne") Output(8,1,"Observation: planètes") End Output(9,1,sousch(Chn1,1,26) Pause Disp sousch(Chn1,1,26) Output(10,2,"[entrer] pour continuer !") Goto F Lbl X EffÉcran Disp sousch(Chn1,1,26) Disp " Désolé je n'ai pas asser" Disp " d'argument pour ce calcul" Disp sousch(Chn1,1,26) Output(10,2,"[entrer] pour continuer !") Pause Lbl F EffÉcran 0→C Disp sousch(Chn1,1,26) Disp "" Disp "Voulez-vous Recommencer.>1" Disp "" Disp "Voulez-vous Quitter.....>0" Disp "" Output(9,1,sousch(Chn1,1,26) Input "Votre choix = ",C If C=1:Then Goto A0 Else EffÉcran End