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

[volvo]

Ну и в чем собственно вопрос?

Кстати, пункт 3 правил гласит:

Все исходники должны помещаться в теги  [CОDE] [/CОDE] Т.е. ваша программа, должна быть между [CОDE] и [/CОDE]

[Amro]

Ну и в чем собственно вопрос?

volvo У человека наверное книги нет!!! А можь он её открывать не желает!!

suriv Возьми любую книгу по паскалю, там всё написано ....
А если всё таки что-то не поймёшь, выкладывай сюда более конкретные вопросы, а не то что ты написал!!!

Сообщение отредактировано: Amro - 27.10.2004 2:54

[GoodWind]

он не понял вложенные циклы, ИМХО

[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: Если что-то не получится, обращайся сюда, всегда с радостью поможем.
{Не секрет, что многие просят тут написать за них программки на халяву, так что тем более приятно встретить человека, действительно пытающегося самостоятельно разобраться в программировании}

[suriv]

1)

Код

Program N1;  
var  
I,J: Byte;  
Begin  
For I := 1 to 10 do  
Begin  
For J := 0 to 9 do  
Write(J, ' ');  
Writeln;  
end;  
Readln;  
end.

(Таблица Умножения).

2)

насчёт той диагональной матрицы

Что значит матрицы (В смысле что это такое)?
Книг про паскаль нормальных нет (вернее вообще нету книг про паскаль).
Может кинешь несколько адресов где можно скачать
или почитать книги для НАЧИНАЮЩИХ.

[volvo]

suriv

Для начинающих - зайди на этот сайт...

Я думаю, он тебе поможет начать ориентироваться. :yes:

Сообщение отредактировано: volvo - 27.10.2004 20:00

[Altair]

ЧТо значит матрицы..... хм... это сложный вопрос... в принципе, с философской точки зрения 3-х мерная матрица отражает наше пространство, а четырехмерная наше пространство и время!!!
А если математически, то это просто сетка чисел ...

[suriv]

Еще один вопросик:
Шо такое двухмерный массив(кто то сказал что это связано матрицей или матрицами как их там...)

[Atos]

В общем-то двумерный массив и представляет собой матрицу

[suriv]

1)Значит практически это одно и то же.

2)Где можно еще прочитать про цикл for?

[volvo]

я же дал тебе ссылку. был там ?

[suriv]

да ещё че нить есть?

[Atos]

Посмотри, например,вот эту тему: http://forum.pascal.net.ru/forum/index.php...wtopic=2758&hl=
Посмотри темы в разделе "Ссылки"

А вообще, на мой личный взгляд, лучше всего купить или достать бумажные учебники Фаронова. Без книг - это плохо.

[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-заново т-выход
Знаю вам покажется это смешным,примитивным и простым но все
же моя первая рабочая прога

[suriv]

Ну че прально(1)?
А насчет 2 там которое правильное 1ое или 2ое?

[Atos]

Так держать :p9:

1) Чтобы элементы массива были равны 0, надо присвоить им 0.
{Вообще-то на самом деле в памяти, выделяемой компилятором под массив как правило, действительно нули, но это не гарантировано }

2) А это, по-моему, то же самое, что и 1), только число другое

[GoodWind]

1) правильнее

Код

program k;
var
m:array[1..100]of integer;
i:byte;
begin
for i:=1 to 6 do
begin {!!!!!!}
m[i]:=12;
write(m[i]);
end;{!!!!!!!!}
{между begin и end размещается то, что должно выполняться в цикле}
readln;
end.

так-то лучше.... у тебя было:
присвоить первым шести элементам массива значение 6
вывести шестой (ведь когла цикл закончится, i будет равно шести) элемент на экран.

2)та же проблема

же моя первая рабочая прога

молодец ! моя первая прога -

Код

uses crt;
begin
write('Hello World!');
end.

сравни сложность :D

[suriv]

молодец ! моя первая прога -

Код

    
uses crt;
begin
write('Hello World!');
end.

Вернее мой калькулятор была вторая прога А первая как и у всех начинающих-"hello world"-если это можно назвать нормальной программой
(Самая первая "программа" почти у каждого так это наверно "hello world"
самое элементарное.

[Altair]

Неее, у меня была первая прога - нахождение НОДа двух чисел
Это сложнее чем "привет мир"