BASIC-256
Hemos utilizado Basic-256 para crear un programa que calcula el máximo, el mínimo y la media de una serie de números que elige el usuario.
clg
cls
MAX= 0
SUMA= 0
I= 0
DO
I=I+1
input "introduce n ->"
if I=1 Then MIN= n
if n>0 MAX= n
if n>0 and n<MIN then MIN= n
SUMA= SUMA+n
UNTIL n=0
print "El numero máximo ha sido ->" +MAX
print "El número minimo ha sido ->" +MIN
print "La media ha sido ->" +SUMA/I
clg
cls
MAX= 0
SUMA= 0
I= 0
DO
I=I+1
input "introduce n ->"
if I=1 Then MIN= n
if n>0 MAX= n
if n>0 and n<MIN then MIN= n
SUMA= SUMA+n
UNTIL n=0
print "El numero máximo ha sido ->" +MAX
print "El número minimo ha sido ->" +MIN
print "La media ha sido ->" +SUMA/I
No hay comentarios:
Publicar un comentario