цикл For, не врубаюсь Опции

[suriv]

Не совсем понятен мне цикл for

Код

{For I := 1 to 10 do  
Writeln(S)     -это и ежу понятно}

например:

Код

Begin  
For I := 1 to 10 do  
Begin  
For J := 1 to 10 do  
If I*J < 10 then Write(I*J, ' ')  
else Write(I*J, ' ');  
Writeln;

или

Код

For I := 1 to Length(S) do  
If S[I] = ' ' then Inc(Count);  
Write('Количество пробелов: ', Count);

а это так воще нереально для меня сделать (7 урок);

1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9

{В паскале сижу 2ой день поэтому и вопрос тупой}

3. Все исходники должны помещаться в теги...

Сообщение отредактировано: APAL - 27.10.2004 9:44

[Digitalator]

Обнуляется только нулевой элемент - длинна!

Ну не надо придираться к словам - нулевой байт обнуляется, т.е. длина строки обнуляется и этого хватает, т.к. корпорация Borland не рекомендует явно изменять(увеличивать) длину строки, во избежание возможных ошибок. При работе со строковыми функциями все получается как надо. Указатели тоже обнуляются - устанавливаются в nil. Насчет дин. переменных - они создаются во время исполнения и обнулять там нечего. ну вы еще приплетите сюда объекты или еще чего похуже в псакале переменные обнуляются - это сказано корпорацией borland, это проверено и с этим никто не спорит.

можно объяснить ему где у него не правильно

Тут вспомню фразу одного програмиста, на вопрос "Что здесь неправильно?" - "Здесь все правильно, для кода который написан". чел должен сам понимать что, где, а главное почеу надо писать, а не спрашивать по каждой строчке. Мы здесь видим типичного "начинающего програмиста", который неправильно начал - если не наставить его на путь истинный, ничего путного из этого не выйдет (хотя б купить и почитать книжку, не пропуская "неинтересные" первые 50 страниц, и последующие 100 т.к. "а я это уже знаю")

Сообщение отредактировано: Digitalator - 28.10.2004 21:05