IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача с одномерным массивом, Задача с одномерным массивом
сообщение
Сообщение #1


Гость






!help.gif Переставить минимальный элемент и элемент, равный числу, введенному с клавиатуры. Вывести на экран минимальный элемент и массив до и после изменений. Часные случаи: если несколько минимальных элементов или несколько элементов, равных введенному числу с клавиатуры.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






!help.gif shok.gif ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ! mega_chok.gif !help.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Вот полный текст задания:
Организовать ручное заполнение целочисленного одномерного массива В. Переставить минимальный элемент массива (предполагая, что такой элемент единственный) и элемент, равный числу, введённому с клавиатуры (предполагая, что такой элемент единственный). Вывести на экран минимальный элемент массива, а также сам массив В до и после изменения.
Предусмотреть исключительные ситуации, а именно: если исходный массив будет содержать несколько минимальных элементов или несколько элементов, равных числу, введённому с клавиатуры, то соответствующее сообщение должно быть выведено на экран и перестановка элементов при этом осуществляться не должна.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Показывай, что пробовал делать.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Можно как файл с расширением .pas?

Добавлено через 14 мин.
Ну как? Получается?


Прикрепленные файлы
Прикрепленный файл  PRAKTIKA.PAS ( 836 байт ) Кол-во скачиваний: 177
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


HELP ME, PLEASE!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


не знаешь как найти минимальный элемент? или не можешь понять в чем проблема в твоем коде?

Сообщение отредактировано: Client -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Цитата(Client @ 15.11.2007 21:03) *

не знаешь как найти минимальный элемент? или не можешь понять в чем проблема в твоем коде?

Минимальный знаю как найти.не могу понять в чем проблема в коде и сделать часные случаи.((((
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Код
uses crt;
var
   a:array[1..50] of integer;
   n,i,k,c,kk,mk:integer;
begin
     clrscr;
     c:=0;
     kk:=0;
     mk:=1;
     writeln(' Vvedite n ');
     read(n);
     writeln(' Vvedite ',n,'- elementov: ');
     for i:= 1 to n do
         read(a[i]);
     writeln(' ishodniy massiv: ');
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' vvedite K ');
     read(k);
     c:=a[1];
     for i:=1 to n do
         begin
              if a[i]<c then
                 begin
                      c:=a[i];
                      mk:=1;
                 end;
              if a[i]=c then
                 inc(mk);
              if a[i]=k then
                 inc(kk)
         end;
     if (mk>2) or (kk>1) then
        begin
             writeln(' neskolko chisel');
             readkey;
             halt
        end;
     for i:= 1 to n  do
         begin
              if a[i]=k then
                 a[i]:=c
              else
              if a[i]=c then
                 a[i]:=k;
         end;
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' min= ',c);
     readkey
end.

Вот, будут вопросы - отвечу
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Цитата(Client @ 15.11.2007 21:54) *

Код
uses crt;
var
   a:array[1..50] of integer;
   n,i,k,c,kk,mk:integer;
begin
     clrscr;
     c:=0;
     kk:=0;
     mk:=1;
     writeln(' Vvedite n ');
     read(n);
     writeln(' Vvedite ',n,'- elementov: ');
     for i:= 1 to n do
         read(a[i]);
     writeln(' ishodniy massiv: ');
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' vvedite K ');
     read(k);
     c:=a[1];
     for i:=1 to n do
         begin
              if a[i]<c then
                 begin
                      c:=a[i];
                      mk:=1;
                 end;
              if a[i]=c then
                 inc(mk);
              if a[i]=k then
                 inc(kk)
         end;
     if (mk>2) or (kk>1) then
        begin
             writeln(' neskolko chisel');
             readkey;
             halt
        end;
     for i:= 1 to n  do
         begin
              if a[i]=k then
                 a[i]:=c
              else
              if a[i]=c then
                 a[i]:=k;
         end;
     for i:=1 to n do
         write('  ',a[i]);
     writeln(' min= ',c);
     readkey
end.

Вот, будут вопросы - отвечу

СПС, но если чесно программа не работает вообще. Она не меняет никакие элементы и всегда выводит сообщение neskolko chisel'. Если можеш, то отладь её.

Сообщение отредактировано: alter -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Сергей

Репутация: -  0  +


Зачем???
Цитата
сообщение должно быть выведено на экран и перестановка элементов при этом осуществляться не должна.

А если хочешь изменить, то просто убери halt после writeln(' neskolko chisel');
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Надо же, а у меня все работает. Хотелось бы узнать почему?

Сообщение отредактировано: Client -


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Прикрепленное изображение
Цитата(Client @ 16.11.2007 6:35) *

Надо же, а у меня все работает. Хотелось бы узнать почему?

Чо за переменная KK,KM,C?

Сообщение отредактировано: alter -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Гость






alter, Ты программу МЕНЯЛ? (я вижу, что менял, она у тебя русифицированная, а исходная - на транслите). Какие теперь претензии? Значит, что-то не так "изменил". Либо пользуйся той программой, что тебе дали, либо выкладывай свой "шедевр"...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


KK это количество встречающихся К
MK количество встречающихся минимальных элементов
C минимальный элемент
Еще вопросы?
Странно ты ее изменил blink.gif
хотя бы где она выводит "введите элемент массива" n раз
зачем?

Сообщение отредактировано: Client -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Скоро выложу мой почти доделанный шедевр

Добавлено через 3 мин.
Цитата(volvo @ 16.11.2007 10:20) *

alter, Ты программу МЕНЯЛ? (я вижу, что менял, она у тебя русифицированная, а исходная - на транслите). Какие теперь претензии? Значит, что-то не так "изменил". Либо пользуйся той программой, что тебе дали, либо выкладывай свой "шедевр"...


йа только сообщения поменял...

Сообщение отредактировано: alter -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Это то, что йа сделал. Помогите с частными случаями только плз!


Прикрепленные файлы
Прикрепленный файл  LAB6.PAS ( 1.88 килобайт ) Кол-во скачиваний: 182
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Гость






Чтобы опять получилось так, как с моей программой? Ты благополучно ее проигнорировал, и опять просишь решить то же самое?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Цитата(volvo @ 18.11.2007 12:42) *

Чтобы опять получилось так, как с моей программой? Ты благополучно ее проигнорировал, и опять просишь решить то же самое?

Йа ее не игнорировал. Она просто написана более сложно чем эта. Вот я уже сам справился!

Сообщение отредактировано: alter -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Новичок
*

Группа: Пользователи
Сообщений: 23
Пол: Мужской
Реальное имя: Александр

Репутация: -  0  +


Вот моя прога!


Прикрепленные файлы
Прикрепленный файл  LAB6.PAS ( 3.81 килобайт ) Кол-во скачиваний: 178
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 8.12.2021 16:24
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name