CONSTRUCCION
DownloadTélécharger
Actions
Vote :
ScreenshotAperçu
Informations
Catégorie :Category: nCreator TI-Nspire
Auteur Author: jose cusquisiban
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.57 Ko KB
Mis en ligne Uploaded: 07/08/2025 - 16:22:27
Uploadeur Uploader: jose cusquisiban (Profil)
Téléchargements Downloads: 0
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4819372
Type : Classeur 3.0.1
Page(s) : 1
Taille Size: 1.57 Ko KB
Mis en ligne Uploaded: 07/08/2025 - 16:22:27
Uploadeur Uploader: jose cusquisiban (Profil)
Téléchargements Downloads: 0
Visibilité Visibility: Archive publique
Shortlink : https://tipla.net/a4819372
Description
Fichier Nspire généré sur TI-Planet.org.
Compatible OS 3.0 et ultérieurs.
<<
Define CalculoPendientes() Prgm Local opcion, cotaIni, cotaFin, progIni, progFin, pendiente, alturaInstrumento Dialog Title "CALCULO DE PENDIENTES" Request "Selecciona opción (1-3):", opcion EndDlog If opcion = 1 Then Request "Cota Buzon Entrada (m):", cotaIni Request "Cota Buzon Salida (m):", cotaFin Request "Progresiva Entrada (m):", progIni Request "Progresiva Salida (m):", progFin If progFin = progIni Then Disp "Error: Division entre cero" Else pendiente := 100 * (cotaIni - cotaFin)/(progFin - progIni) Disp "Pendiente (%) = ", pendiente EndIf ElseIf opcion = 2 Then Request "Cota Buzon (m):", cotaIni Request "Lectura en Mira (m):", alturaInstrumento alturaInstrumento := cotaIni + alturaInstrumento Disp "Altura del instrumento = ", alturaInstrumento ElseIf opcion = 3 Then Disp "Saliendo del programa..." Else Disp "Opcion invalida" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
Compatible OS 3.0 et ultérieurs.
<<
Define CalculoPendientes() Prgm Local opcion, cotaIni, cotaFin, progIni, progFin, pendiente, alturaInstrumento Dialog Title "CALCULO DE PENDIENTES" Request "Selecciona opción (1-3):", opcion EndDlog If opcion = 1 Then Request "Cota Buzon Entrada (m):", cotaIni Request "Cota Buzon Salida (m):", cotaFin Request "Progresiva Entrada (m):", progIni Request "Progresiva Salida (m):", progFin If progFin = progIni Then Disp "Error: Division entre cero" Else pendiente := 100 * (cotaIni - cotaFin)/(progFin - progIni) Disp "Pendiente (%) = ", pendiente EndIf ElseIf opcion = 2 Then Request "Cota Buzon (m):", cotaIni Request "Lectura en Mira (m):", alturaInstrumento alturaInstrumento := cotaIni + alturaInstrumento Disp "Altura del instrumento = ", alturaInstrumento ElseIf opcion = 3 Then Disp "Saliendo del programa..." Else Disp "Opcion invalida" EndIf EndPrgm Made with nCreator - tiplanet.org
>>
