QBasic. Цикл FOR.

[Юрий М.]

Здравствуйте уважаемы сведущие и не очень в программировании люди. Друзья! Возможно банальность описаной мною задачи вызовет у вас смех но всё равно прошу вас помочь. Задача для QBasic:

Вводятся фамилии и рост.
Необходимо вывести на экран фимилии людей рост которых больше 170см
Фамилии - символьная
Рост - числовая.

Использование цикла FOR TO STEP NEXT обязательно.

В задаче вызывает затруднение сортировка Фамилии-рост.
Буду благодарен за любую помощь

Извините за название темы т.к. прочёл правила позже чем создал её...

[RUSt88]

сделаю в лучшем виде

[Юрий М.]

Зайдите пожалуйста в ICQ

Вопрос остаётся открытым

[RUSt88]

100 руб и вопрос будет закрыт

[Юрий М.]

Изцыди...
Решающим за деньги ничем не могу помочь и вы мне думаю тоже

[RUSt88]

CLS
INPUT "enter number of elements of array: "; L
DIM A(L)
DIM res$(L)
M = 0
s = 0
PRINT "---Enter elements of array---"
FOR i = 1 TO L
  INPUT A(i)
  tmp$ = STR$(A(i))
  N = LEN(tmp$)
  IF N > 3 AND N < 8 THEN
    M = M + 1
    res$(M) = LEFT$(tmp$, N - 3)
    s = s + VAL(res$(M))
  ELSEIF N > 7 THEN
    M = M + 1
    res$(M) = LEFT$(RIGHT$(tmp$, 6), 3)
    s = s + VAL(res$(M))
  END IF
NEXT i
PRINT
PRINT "Multiplication s = "; s

[Google2010]

2RUSt88
я тоже так могу)))

  CLS 
  N = 15 
  PRINT "Massiv: ";
  DIM M(N) 
  FOR I = 1 TO N 
  M(I) = INT(RND * 100) 
  PRINT M(I) ;
  NEXT I 
  MAX=M(1)
  FOR I = 2 TO N 
  IF MAX < M(I) THEN MAX=M(I)
  NEXT I 
  PRINT
  PRINT "_________" 
  PRINT "Maximum = "; MAX

2Юрий М. закрою ваш вопрос за 50 р!

[Юрий М.]

Спасибо более менее понятно... но как символьные переменные запоминать с им значащими числовыми переменными и выбрать из них те которые больше 170? Вопрос остаётся открытым....

Всё таки ещё остаётся надежда на безкорыстных людей...

АП

[Google2010]

CLS 
N = 20
DIM f$(N)
Dim H(n)  
FOR I = 1 TO N 
	input f$(i); 
	input H(i);
NEXT I
for i=1 to n do
	if h(i)>170 then print f$(i)
next i

чес слово достал апать)

[Юрий М.]

СПАСИБО! НЕ ЗНАЮ КАК БЛАГОДАРИТЬ!