!Rafal DAnilczuk
!20.01.09
!
!
DIM number(10)
DIM names$(10)
LET counter=0
CALL fill_array(names$(),number(),counter)
CALL get_max(number(),counter)
CALL print_array(names$(),number(),counter)
CALL get_max_string(names$(),counter)
!
SUB fill_array(names$(),number(),counter)
DO while more data
LET counter=counter+1
READ name$,num
LET names$(counter)=name$
LET number(counter)=num
LOOP
DATA fred,23
DATA GEORGE,34,jamie,2,david,56,james,67,mark,34,peter, 45,scott,45,craig,54
DATA kelly,56
END SUB
!
SUB get_max(number(),counter)
LET max=number(1)
LET index=1
DO
IF number(index+1)>max then
LET max=number(index+1)
END IF
LET index=index+1
LOOP until index>=counter
END SUB
!
!
SUB print_array(names$(),number(),counter)
FOR place= 1 to counter
PRINT names$(place),number(place)
NEXT place
PRINT "Max number is ";max
END SUB
SUB get_max_string(names$(),counter)
LET max$=names$(1)
LET index=1
DO
IF max$<names$(index+1) then
LET max$=names$(index+1)
END IF
LET index=index+1
LOOP until index=counter
PRINT "max string is:";max$
END SUB
END
Zakładki