Delphi. Определение параметра цикла (очень просто))

[Kawun]

Здравствуйте!

Помогите пожалуйста с задачей, текст программы написан почти полностью, остается только добавить совсем немножко.
Ниже написано условие и текст программы, сдавал его на проверку, преподаватель написал, цитирую:
"I не определено! После цикла I:=N+1!"
Уважаемые, подправьте пожалуйста программу. То ли я уже одурел сидеть у компьютера (целый день задачи делаю), то ли еще что-то - не пойму что и куда нужно подписать... (((

Разработать программу с единственным циклом и ветвлением в теле цикла.
При заданных X1, X2....Xn и Y1, Y2....Yn
получить массив T1, T2....T3
элементы которого получают значения по правилу Ti = max(Xi, Yi)
и подсчитать, сколько элементов Ti получило значение Xi.

procedure TForm1.Button1Click(Sender: TObject);
Const
NMAX = 20; {Максимальное кол-во элементов массива}
Type
TMas = Array [1..NMAX] of Real; {Диапазон значений массива и тип переменных в массиве}
Var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
N: Integer; {Кол-во элементoв массива}
I: Integer; {Параметр цикла}
KolX: Integer; {Счетчик}
begin
N := StrToInt(EditN.Text); //Задаем N (Кол-во элементов массива)
For I:=1 To N Do 
  Begin
    X[I] := StrToFloat(StringGrid1.Cells[I-1, 0]); // Вводим X
    Y[I] := StrToFloat(StringGrid1.Cells[I-1, 1]); // Вводим Y
End;
KolX:=0; //Присваиваем счетчику 0 
For I:=1 To N Do
  If X[I]>Y[I]
    Then
        Begin 
        T[I]:=X[I];
        KolX:=KolX+1; 
End 
Else 
T[I]:=Y[I];
EditR.Text:=IntToStr(KolX); //Вывод результата
StringGridT.Cells[0,I-1]:=FloatToStr(T[I]); //Вывод Т
end; 
end

[Sm1Le]

я не пойму программа работает ? ! - Судя по тексту вроде ДА .... - А если преподу не нравиться пусть доказывает ... =))

[Kawun]

А вот с работой какая-то петрушка получается, то она работала..то запускаю тест, пишет:
[Warning] Unit1.pas(63): FOR-Loop variable 'I' may be undefined after loop
И при этом делфи ничего красным не выделяет, просто строчка скачет вниз и запускаться не хочет...

[Sm1Le]

Сообщение от Kawun

StringGridT.Cells[0,I-1]:=FloatToStr(T[I]);

[/CODE]

Посмотри на эту строку .... Откуда ты тут берешь І ??? =)))

[Ozerich]

это предупреждение а не ошибка

[Kawun]

Хм, не пойму тогда, почему из-за предупреждения у меня программа не запускается..

Откуда ты тут берешь І ??? =)))

Эээ, незнаю)
Ребят я в этом деле бамбук совсем)) Утром сидел-сидел, днем сидел - не понимаю что куда надо написать =)

[Sm1Le]

Сообщение от Kawun

procedure TForm1.Button1Click(Sender: TObject);
Const
NMAX = 20; {Максимальное кол-во элементов массива}
Type
TMas = Array [1..NMAX] of Real; {Диапазон значений массива и тип переменных в массиве}
Var
X: TMas; {Исходный массив}
Y: TMas; {Исходный массив}
T: Tmas; {Массив который нам надо получить}
N: Integer; {Кол-во элементoв массива}
I: Integer; {Параметр цикла}
KolX: Integer; {Счетчик}
begin
N := StrToInt(EditN.Text); //Задаем N (Кол-во элементов массива)
For I:=1 To N Do 
  Begin
    X[I] := StrToFloat(StringGrid1.Cells[I-1, 0]); // Вводим X
    Y[I] := StrToFloat(StringGrid1.Cells[I-1, 1]); // Вводим Y
End;
KolX:=0; //Присваиваем счетчику 0 

[I]{Начало цикла}
For I:=1 To N Do
  If X[I]>Y[I]
    Then
        Begin 
        T[I]:=X[I];
        KolX:=KolX+1; 
End 
Else 
T[I]:=Y;
{Конец цикла}

EditR.Text:=IntToStr(KolX); //Вывод результата

{Вот тут походу нужег цикл ... Потому как I не изменяется ... =)) }

StringGridT.Cells[0,I-1]:=FloatToStr(T[I]); //Вывод Т По условию тебе Вообще цикл Т не надо выводить ! !! =)) Удали строку и будет Счастье =)) 
end; 
end

Вроде так ... Посмотри =))

[Kawun]

По условию тебе Вообще цикл Т не надо выводить ! !! =)) Удали строку и будет Счастье =))

Да изначально я только KolX вывел, а тут препод пристал - выводи Т говорит)

[Sm1Le]

Куда именно ? выводить то надо ? Если в Таблицу то в какие ячейки ?

[Kawun]

Эм, этого препод не пояснил)

Короче говоря, форма должна быть таковой:
1Эдит - ввод N
2Эдит - вывод KolX

1Сетка - ввод Х и Y
2Сетка - вывод Т (тоесть Т выводиться должен в отдельную сеточку стрнггрид)