Не могу понять алгоритм решения задачи.

[Антон18]

Задача.
Дан массив чисел. Найти, сколько в нем пар одинаковых соседних элементов.

Решение из учебника.

CONST М = 100;
VAR  MAS : ARRAY[1..M] OF INTEGER;
I, K, N : INTEGER;
BEGIN
WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');
READLN(N);
К := 0;
FOR I := 1 ТО N DO
BEGIN
WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');
READLN(MAS[I]);
END;
FOR I := 1 ТО N-1 DO
IF MAS[I] = MAS[I+1] THEN К := K+1;
WRITELN('ОДИНАКОВЫХ ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ', К)
END.

Пожалуйста, оформляйте Ваш код согласно правилам.
У меня несколько вопросов
1. Что это за К := 0 ? Если это отсчет количества элементов, то почему именно отсчет с нуля ведется? Или я неправильно понял?

2. Какую функцию выполняет цикл в строке FOR I := 1 ТО N DO и FOR I := 1 ТО N-1 DO. Что это за N-1?

3. В книге написано "если очередной MAS[ I ] равен следующему MAS[I +1], то увеличиваем зна-
чение К на единицу;" А зачем его увеличивать, когда нам надо найти одинаковую пару чисел? Это ж не поиск максимального элемента.

[p51x]

1. Что это за К := 0 ? Если это отсчет количества элементов, то почему именно отсчет с нуля ведется? Или я неправильно понял?

Эээ.. а вы как считаете? У нас, обычно, если нет элементов, то 0, а дальше 1, 2, 3, ...

Какую функцию выполняет цикл в строке FOR I := 1 ТО N DO

А если дальше прочитать

WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');

? Ни на какие мысли не наталкивает?

FOR I := 1 ТО N-1 DO

Решает задачу собственно

Что это за N-1?

А с каким элементов вы собрались сравнивать последний?

А зачем его увеличивать, когда нам надо найти одинаковую пару чисел?

А если прочитать условие внимательно?

Найти, сколько в нем пар одинаковых соседних элементов.

Это ж не поиск максимального эдемента.

А он тут причем?

Вот уж прямая иллюстрациия фразы "смотрю в книгу - вижу фигу"...

[Антон18]

Почему у вас на аватарке написано "Профессионал"? Если вы и толком объяснить новичку не можете алгоритм непонятной ему задачи. Или решили умника из себя построить и прикольнуться над начинающим изучать программирование? Слабо нормально объяснить? Мне нужно понять алгоритм задачи. Пока нормального ответа нету. Очень надеюсь, что найдется настоящий профессионал и объяснит по-людски этот фарш из непонятных для меня строк.

[p51x]

Почему у вас на аватарке написано "Профессионал"?

Где вы увидели у меня аватарку?

Если вы и толком объяснить новичку не можете алгоритм непонятной ему задачи.

Мы не в детсаде и я не ваша мама попу вам вытирать.

Или решили умника из себя построить и прикольнуться над начинающим изучать программирование?

Ну да больше нет прикола, чем заставить неуча читать хотя бы условие задачи.

Слабо нормально объяснить?

Что именно? У вас задача "найти пары одинаковых соседних элементов". Вы, когда одеваетесь, в состоянии найти пару туфель?

Мне нужно понять алгоритм задачи.

Ну так прочитайте - весь алгоритм из одного простейшего цмкла. У вас в руках 1, 2, 2, 5, 10, 10, 5 рублевые монеты. Сколько среди них пар одинаковых соседних?

Пока нормального ответа нету.

Ну если для вас тягость просто прочитать условие задачи, то и любой ответ вам не поможет.

Очень надеюсь, что найдется настоящий профессионал и объяснит по-людски этот фарш из непонятных для меня строк.

Возьмите любу. книжку по паскалю, инет и прочитайте про циклы. Все. Там нет сложных строчек.

[newerow1989]

1. Что это за К := 0 ? Если это отсчет количества элементов, то почему именно отсчет с нуля ведется? Или я неправильно понял?

Счетчик обнуляем. Это означает, что перед подсчетом мы еще не начинали искать элементы. Здесь K = 0.
Во время подсчета мы считаем количество соседних элементов; если мы нашли, то увеличиваем счетчик на единицу, и тогда переменная K станет 1 (0 + 1). Если еще нашли соседние элементы, K станет 2. И т.д. В конечном итоге переменная K покажет сколько соседних элементов.
Допустим, если во всем массиве нет соседних элементов, то переменная К так и осталось равным 0, т.е. счетчик остался обнуленным. Это и означает К := 0.

2. Какую функцию выполняет цикл в строке FOR I := 1 ТО N DO и FOR I := 1 ТО N-1 DO. Что это за N-1?

В качестве примера. Допустим, пользователь ввел размер массива N = 5.
1-й цикл означает ввести элементы массива с 1 до 5 (т.е. 5 элементов массива).
2-й цикл означает сравнить соседние элементы. Цикл прогоняется с 1 до N-1 (до 4), "N-1" нужен для того, чтобы в последнем проходе цикла должны сравниваться последний и предпоследний элементы:
MAS[I] = MAS[I+1]
MAS[4] = MAS[4+1]
MAS[4] = MAS[5] - если I подставить
Если сделать цикл FOR I := 1 ТО N DO, то увидим следующую ошибку:
MAS[I] = MAS[I+1]
MAS[5] = MAS[5+1]
MAS[5] = MAS[6] - а шестого элемента нет!!!
Поэтому цикл лучше прогонять до N-1.

3. В книге написано "если очередной MAS[ I ] равен следующему MAS[I +1], то увеличиваем значение К на единицу;" А зачем его увеличивать, когда нам надо найти одинаковую пару чисел? Это ж не поиск максимального элемента.

А в первом посте:

Найти, сколько в нем пар одинаковых соседних элементов.

Уточняющий вопрос Антону:
Что нужно найти:
- одинаковую пару чисел?
или
- сколько пар одинаковых соседних элементов?


Я могу ответить и на 4-й вопрос, который нигде не задавался: если вдруг спросят

4. Что означает CONST М = 100;

Максимальный размер массива. Пользователь может ввести число (размер массива) от 1 до 100. А если введет другое число, то программа аварийно завершит работу! Страшно, аш жуть!!!

[Антон18]

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

Я могу ответить и на 4-й вопрос, который нигде не задавался:

Это я уже понял.

Просто нигде нет внятных объяснений. Если б был такой учебник по Паскалю, чтоб каждую строчку кода автор детально объяснял. Тогда не пришлось бы мучиться в догадках, что означает каждая строка или переменная.

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

Что нужно найти:
- одинаковую пару чисел?
или
- сколько пар одинаковых соседних элементов?

В задаче же написано сколько пар одинаковых соседних элементов?

[newerow1989]

А в чем мое объяснение не понятно?

Сейчас же лето!

[Serge_Bliznykov]

В задаче же написано сколько пар одинаковых соседних элементов?

да, так и написано. нужно подсчитать КОЛИЧЕСТВО пар.

вот счётчик (подсчёт количества) и храниться в переменной K
вначале там ноль (K:=0 - т.к. вначале обнуляем счётчик.

потом увеличиваем его на единичку каждый раз, когда встречается пара одинаковых элементов.

например, если Вы введёте 6 чисел
1 2 2 2 2 2
то ответ будет 4.
(четыре одинаковых пары соседних элементов).
Понятно, почему?

[Антон18]

Проверьте, пожалуйста, мое понимание этой программы.

 
CONST М = 100;
VAR  MAS : ARRAY[1..M] OF INTEGER;
I, K, N : INTEGER;
BEGIN
WRITE('BBEДИTE РАЗМЕР МАССИВА N = ');{пользователь вводит размер массива}
READLN(N);{программа считывает значение и записывает в переменную N}
К := 0;{теперь ставим счетчик массива на 0}
FOR I := 1 ТО N DO{программа просматривает значения массива от 1 до числа указанного пользователем}
BEGIN{в процеесе просмотра задаем новые указания программе}
WRITE('ВВЕДИТЕ ЭЛЕМЕНТ МАССИВА');{пользователь вводит некое число из заданного ним массива}
READLN(MAS[I]);{это число записывается в индекс MAS[I]}
END;{конец}
FOR I := 1 ТО N-1 DO{программа просматривает элементы массива -1 заданный пользователем элемент}
IF MAS[I] = MAS[I+1] THEN К := K+1;{если элемент, заданный пользователем равен просмотренному элементу, то добавляем его в счетчик}
WRITELN('ОДИНАКОВЫХ ПАР СОСЕДНИХ ЭЛЕМЕНТОВ ', К){прогроамма выводит счетчик кол-ва одинаковых элементов в программе}
END.

[p51x]

{пользователь вводит размер массива}

программа выводит строку

{теперь ставим счетчик массива на 0}

нет здесь "счетчика массива", количество пар - вы же их считать собрались

{это число записывается в индекс MAS[I]}

не в индекс, а в элемент массива

{если элемент, заданный пользователем равен просмотренному элементу, то добавляем его в счетчик}

нет, прочитайте условие задачи: если текущий элемент равен следующему или нашли два рядомстоящих одинаковых