Передать в функцию в качестве параметра индекс цикла i

@Nikitko_Cent · Регистрация: 27.10.2011

Author24 — интернет-сервис помощи студентам

В общем я пишу прогу на деление\умножение(выбор рандомно) двух рандомных чисел в диапозоне от 1 до 999.
Я написал функцию, вот её код

Delphi

function vichis(znak2:string):real;
  begin
  if znak2='/' then
   result:=chisla[i] / chisla[i+1]
  else
  if znak2='*' then
   result:=chisla[i] * chisla[i+1];
  end;

эта функция стоит в цикле с условием

Delphi

for i:=0 to length(str) do
    begin
    if str[i]='/' then
      Edit2.Text:=FloattoStr(Vichis('/',i))
    else
    if str[i]='*' then
      Edit2.Text:=FloattoStr(Vichis('*',i));
    end;

Что нужно в этом коде сделать , чтобы в функцию можно было передать в качестве параметра индекс цикла i ?

Вообще у меня программа будет на деление\сложение\вычитание\умножение рандомного кол-ва (до 5) рандомных чисел (от 1 до 999). Поэтому не обращайте внимания, почему я это всё делаю в цикле

В переменной str записаны отделённые ранее от всего примера знаки действий по порядку.

В общем просто скажите как сделать, чтобы можно было в функцию передавать в качестве параметра индекс i

Добавлено через 17 минут
Немного по-другому вопрос:
Как сделать, чтобы в функции использовалась именно та i, которая используется в качестве индекса цикла? Я так понимаю нужно глобализировать переменную i, а как это сделать?

@Ice_and_Fire · 19.12.2011, 10:10

Бред, конечно, не исправит, но зато узнаешь про параметры: прочитай отличия передачи параметров по ссылке и по значению

@Ice_and_Fire 512 / 298 / 37 Регистрация: 22.06.2011 Сообщений: 929
	19.12.2011, 10:10	2
	Бред, конечно, не исправит, но зато узнаешь про параметры: прочитай отличия передачи параметров по ссылке и по значению 0