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

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

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

 
 Ответить  Открыть новую тему 
> Линейный массив, Лінійні масиви
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


PLeeeeeeeeeeeZ, помогите решить задачу!!! rolleyes.gif

Надо переделать массив A[N] так, чтобы положительные элементы разместились перед отрицательными и нулевыми ("впорядкування" не проводить) ....

ОГРОМНОЕ ПАСИБОООООООООООО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! smile.gif smile.gif smile.gif

 ! 
НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТСЯ, КОГДА НА ВАС КРИЧАТ?



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


Пионер
**

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

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


а по-русски можно? ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

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

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


попробуй ввести всё на русском, а то тебя могут не понять...
Впорядкування - упорядочивание smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

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


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


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Впорядкування - упорядочивание .. Ет наверно и есть сортировка...?Значит нельзя... mega_chok.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Perl. Just code it!
******

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

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


Цитата
а сортировка не подходит??


Это и есть упорядочивание, а оно по заданию не требуется.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


А Вы не могли бы помочь с етой задачкой...????? rolleyes.gif

Добавлено через 10 мин.
ПОЖАЛУЙСТА!!!!!!!!СРОЧНО НАДО!!!!!!!УМОЛЯЮ!!!!!!!!

Добавлено через 1 мин.
Цитата(klem4 @ 15.04.2007 17:31) *

Это и есть упорядочивание, а оно по заданию не требуется.



Ну может ...?PLEeeeeeeeeeeeeeeeZ..

 ! 
НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТСЯ, КОГДА НА ВАС КРИЧАТ?

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


Perl. Just code it!
******

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

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


Если я правильно понял условие: Сначала строго положительные (не важно в каком порядке), затем нулевые и отрицательные в перемешку, то посмотри вот это:

Код
const
  n = 10;

var
  x: Array [1..n] of Integer = (-1, -2, 0, 1, 2, 4, -1, 5, 0, -12);
  left, right, T: Integer;

begin
  for T := 1 to n do write(x[T]:4); writeln;

  left := 1;
  right := n;

  repeat
    // ищем первый не положительный слева
    while (left < right) and (x[left] > 0) do inc(left);

    // ищем первый положительный справа
    while (right > left) and (x[right] <= 0) do dec(right);

    // меняем их местами

    T := x[left];
    x[left] := x[right];
    x[right] := T;
  until left >= right;

  for T := 1 to n do write(x[T]:4);
end.



ps пиши пожалуйста на Русском языке.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


БОЖЕ МОЙ,спасибо!!!!!!!!!!Я на русском, сорри smile.gif Только я то вроде поняла, но мы с left,right не делали...НО ВСЁ ЖЕ СПАСИБО ОГРОМНОЕ!!!!!!!!!

 ! 
НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТСЯ, КОГДА НА ВАС КРИЧАТ?

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


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Я очень извеняюсь..Но не могли б Вы помочь ещё с одноы задачей..Она легкая,но мне пишут "." expected...Чё ето значит???Там . не нужна....

Найти минимальный положительный елемент линейного массива.

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


Perl. Just code it!
******

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

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


Ну это смотря кто пишет ... Если мама из командировки, то может и не нужна, а если компилятор ... Присоединяй исходник, посмотрим.

зы не надо постить кучу вопросов в одной теме.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


ууупс..Какой исходник и как его присоединять.....???

рs мне стыдно unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Perl. Just code it!
******

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

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


Исходный текст программы (код).


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Саму задачу??
найти минимальный положительный елемент линейного массива..
и ещё можно вопрос??Как мне саму програму в текстовый документ скопировать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Уникум
*******

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

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


Цитата(Настася @ 15.04.2007 22:16) *

"." expected...Чё ето значит???Там . не нужна....

Это скорее всего значит, что у тебя нарушен баланс begin'ов и end'ов. Один (или больше) end лишний.

Добавлено через 2 мин.
Цитата(Настася @ 15.04.2007 22:37) *

Как мне саму програму в текстовый документ скопировать?

Найди файл с текстом программы на диске (в эксплорере) и драгенддропь его в ноутпад..
То бишь перенеси мышью из Проводника в текстовый редактор Блокнот smile.gif


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Какие все УМНЫЕ!!!!! smile.gif А я в программировании почти полный тупак... wacko.gif

Добавлено через 2 мин.
А можно попросить написать програму к етой задаче? rolleyes.gif

Найти MIN елемент массива

БУДУ ЖУТКО БЛАГОДАРНА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 ! 
НЕ ПИШИТЕ В БОЛЬШОМ РЕГИСТРЕ! ЭТО РАСЦЕНИВАЕТСЯ КАК КРИК!! ВАМ НРАВИТСЯ, КОГДА НА ВАС КРИЧАТ?

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


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


 ! 
ТЕГИ !


М
Еще одно нарушение любого правила форума и ты отправляешься в премодерацию на 3 дня.



program dod;
uses crt;
const m=100;
var a :array[1..m] of integer;min,i,k,n:byte;
begin
ClrScr;
readln(n);
for i:=1 to n do readln(a[i]);
end;
ClrScr;
writeln('Dano');writeln('Masuv');
for i:=1 to n do
write (a[i],' '); writeln;
if o>=min then min:=a[1];k:=1;
for i :=2 to n do
if a [i]<min then begin min:=a[i];k:=i;
writeln('Rezyltat');
writeln('min=',min,'k=',k);
readln
end.


где здесь ошибки?????Ето чтоб найти минимальный положительный

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


Профи
****

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

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


Цитата
if o>=min then min:=a[1];k:=1;
Что это за буква о или это ты думаешь что буква о и 0 для паскаля равносильны ? И если даже это 0, то зачем такое сравнение ? Просто предположи что первый элемент минимальный и сравнивай с ним последующие.
uses crt;
Const N = 10;
var ms : array [1..N] of integer;
min, i : integer;
begin
Clrscr;
randomize;
for i:=1 to N do
begin
ms[i]:=random(10) - 5;
write (ms[i]:3);
end;
writeln;
min:=ms[1];
for i:=1 to N do if ms[i] < min then min:=ms[i];
write (min);
readkey;
end.




--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Женский

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


Просто мне неадо найти неепросто минимальный(ъто я смоглаб,наверно;)) ,а минимальный положительный.... unsure.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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