цикл 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

[Atos]

Код

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);

Ну а это просто:
тело цикла:"если некоторый символ строки - пробел, то общее количество пробелов увеличивается на 1"
заголовок цикла:"эту операцию повторить для символов строки с номерами от 1 до равного длине строки - то есть от первого до последнего'"
результат выполнения цикла : значение переменной Count равно количеству всех пробелов строки S

suriv
Мой совет: первое время старайся переводить для себя с Паскаля на "человеческий" и наоборот. Например, насчёт той диагональной матрицы: сядь и подумай, как бы ты поступил на месте машины, то есть как бы ты стал её заполнять, и запиши как можно подробнее последовательность действий на бумаге. После этого станет намного легче придумать подходящий цикл. Не отчаивайся, если сразу не получится. Теоретический факт: у разных людей скрость обучения алгоритмизации и программированию может отличаться на порядок в отличие от других общеобразовательных дисциплин. Но терпение всё превозможет. Главное - сесть и попытаться, и через некоторое время ты поймёшь, насколько это интересно! :p1: Если что-то не получится, обращайся сюда, всегда с радостью поможем.
{Не секрет, что многие просят тут написать за них программки на халяву, так что тем более приятно встретить человека, действительно пытающегося самостоятельно разобраться в программировании}