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

[suriv]

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
for i:=1 to 6 do
m[i]:=12;
write(m[i]);
readln;
end.

Это типа значит: все первые шесть переменных в массиве равны 12 (а остальные от 7 до 100 равны 0). Правильно???

2)А вот если например

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
for i:=1 to 6 do
m[i]:=7;
write(m[i]);
readln;
end.

То что ето значит?
1.что всем первым 6 переменным массива присваится одно и то же случайное число?
ИЛИ ЖЕ
2. первая переменная массива равна например 7(случайное число короче)
вторая переменная равна там двум например
третья какому то другому числу
====================================================
Написал свою первую нормальную прогу калькулятор :p2:
программа может складывать , умножать ,вычитать,делить
В конце выбираешь "начать заново(y/n) y-заново т-выход
Знаю вам покажется это смешным,примитивным и простым но все
же моя первая рабочая прога