|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2008, 23:58 | #1 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
Одномерные массивы - Pascal
Дан одномерный массив(вводитса с клавиатуры). Найти количество пар совпадающих элементов в нем. Помогите народ!Спасибо заранее! Я сделал но у меня всегда неправильно считает......
|
27.02.2008, 06:59 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Напиши, что сделал, посмотрим почему неправильно считает и все поправим.
|
27.02.2008, 10:15 | #3 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
Код:
Последний раз редактировалось Stilet; 27.02.2008 в 10:28. |
27.02.2008, 10:25 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Я чесслово скорее запутаюсь в твоих компиляциях, посему предложу свой вариант:
Код:
I'm learning to live...
|
27.02.2008, 10:32 | #5 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
Это неправильно.....я так тоже ставил и не только так. Нужно посчитать не количество одинаковых элементов, которые встречаютса в массиве, а пары. т.е типо если идут элементы 1 1 1 2 3 5 8 5 5 то здесь 2 пары 11 и 55
|
27.02.2008, 11:11 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Держи нормальный код, все работает.
Суть: вводим массив, сортируем, чтобы одинаковые были рядом, затем проверяем, если a[i]=a[i+], то кол=+1, i:=i+2. Перескакиваем через проверенный элемент. Если a[i]<>a[i+], то i:=i+1. Код:
|
27.02.2008, 11:36 | #7 | ||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
Цитата:
I'm learning to live...
Последний раз редактировалось Stilet; 27.02.2008 в 11:41. |
||
27.02.2008, 12:11 | #8 | |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
Цитата:
Сортировка в коде puporev'а нужна для удобства подсчёта таких пар...
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
|
27.02.2008, 19:24 | #9 |
Пользователь
Регистрация: 27.12.2007
Сообщений: 36
|
Спасибо парни за помощь!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерные массивы в Turbo Pascal | W_P | Помощь студентам | 10 | 18.12.2009 19:14 |
Одномерные массивы 2 (Pascal) | Дима82 | Помощь студентам | 4 | 16.02.2009 21:21 |
Одномерные массивы(Pascal) | Дима82 | Помощь студентам | 7 | 07.06.2008 15:33 |
Одномерные массивы и строки | Magnit | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 12.04.2007 15:04 |