1986/12/01 6. zenbakia

eu es fr en cat gl

• Itzulpen automatikoa
  • Español
  • Français
  • English
  • Català
  • Galego
  • Jatorrizkora itzuli

Elia Elhuyar

×

Aparecerá un contenido traducido automáticamente. ¿Deseas continuar?

Si No

Elia Elhuyar

×

Un contenu traduit automatiquement apparaîtra. Voulez-vous continuer?

Oui No

Elia Elhuyar

×

An automatically translated content item will be displayed. Do you want to continue?

Yes No

Elia Elhuyar

×

Apareixerà un contingut traduït automàticament. Vols continuar?

Si No

Elia Elhuyar

×

Aparecerá un contido traducido automaticamente. ¿Desexas continuar?

Se No

• Programazioa

Résolution des programmes basés sur des conversations

• Zabaldu:
• Twitter
• Facebook
• Emaila

Les programmes dans lesquels les conversations ont une grande importance sont nombreux dans l'enseignement. Et aujourd'hui, ce programme qui se pose ici, est l'un d'eux. D'autre part, au moment de réaliser cette explication, on n'a pas cherché à répondre avec précision à ce type de programmes (bien que cela soit basé sur un cas concret), mais à montrer comment on peut agir face à ce type de programmes.

Par conséquent, et comme vous, lecteur, vous pouvez le confirmer, la résolution du programme qui se pose ici est assez simple et compréhensive. L'ordinateur nous demandera la radio et la hauteur si nécessaire. Ensuite, et selon les ordres donnés, il calculera le volume d'une sphère, cône ou cylindre indiquant le résultat.

Pour clarifier, l'organigramme de ce programme est le suivant:

PROGRAMME D'ENTREVUE 10 REM *** 20 CLS 30 LET PI=3.141592 40 PRINT "Ce programme permet de calculer les volumes de sphères, cônes ou cylindres" 50 FOR T = 1 TO 1200 60 I = I + 1 70 NEXT T 80 CLS 90 Quel type de PRINT voulez-vous calculer ? 110 PRINT 120 PRINT "Si c'est un cadran, numéroter 1" 130 PRINT "Si c'est un cône, mettre 2" 140 PRINT "Si c'est un cylindre, mettre 3" 150 INPUT A 160 IF A = 1 THEN GOSUB 200: GOTO 430 170 IF A = 2 THEN GOSUB 270: GOTO 430 180 IF A = 3 THEN GOSUB 350: GOTO 430 190 GOTO 80 200 REM ** Volume du cadran ** 210 CLS : PRINT "Le volume du cadran est : V = 4 * PI * R 3/3" 220 INPUT "Combien vaut le rayon de la sphère"; R 230 LET V = 4 * PI * R 3/3 240 PRINT : PRINT "Volume de la sphère: V ="; V 250 RETURN 260 REM ** Fin du volume de la sphère ** 270 REM ** Volume du cône ** 280 CLS : PRINT "Le volume du cône est : V = PI * R\ 2 * H/3" 290 INPUT "Combien vaut le rayon du pied du cône"; R 300 INPUT "Et la hauteur du cône"; H 310 LET V = PI * R 2 * H/3 320 PRINT "Volume du cône: V ="; V 330 RETURN 340 REM ** Fin de volume du cône ** 350 REM ** Volume du cylindre ** 360 CLS : PRINT "Le volume du cylindre est: V = PI * R 2 * H" 370 INPUT "Combien vaut le rayon du pied du cylindre"; R 380 INPUT "Et la hauteur du cylindre"; H 390 LET V = PI * R 2 * H 400 PRINT "Volume du cylindre: V ="; V 410 RETURN 420 REM ** Fin de volume du cylindre ** 430 INPUT "Voulez-vous calculer un autre volume (SI/NON)"; C$ 440 IF C$ = "SI" OR C$ = " THEN GOTO 20 450 IF programme 70 NO$ 500 END