basic-256

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