Массив - Форум «Всё о Паскале»

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

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

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

Массив, задачи

Опции

Singo5	6.11.2005 7:59 Сообщение #1
Группа: Пользователи Сообщений: 2 Пол: Мужской Репутация: 0	Мы проходим сейчас одномерные массивы с ветвлением. Но только ничего понять немогу... Помогите решить 2 задачи: №1 Условие: Создать произвольный массив. Из его элементов построить новый массив, элементы которого-отрицательные числа. Распечатать созданный массив. №2 Условие: Создать произвольный массив. Из его элементов построить новый массив, элементы которого дробные числа. Распечатать созданный массив (только дробные числа)...........Помогите !!!!!

klem4	6.11.2005 12:10 Сообщение #2
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Первым делом FAQ и поиск : Массывы+Матрицы+Типичные задачи будут конкренные вопросы, спашивай. вот тебе решение второй задачи : countY := 0; for i := 1 to n do if x[i]=trunc(x[i]) then begin // число целое, заносим его в массив Y inc(countY); // получем номер этого элемента в массиве Y y[countY] := x[i]; // запоминаем число в массиве Y end; для первой тоже самое, только проверка, отрицательное ли число ... неужели так сложно ? Сообщение отредактировано: klem4 - 6.11.2005 13:20 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Guest	7.11.2005 12:43 Сообщение #3
Гость	if x[i]=trunc(x[i]) then begin // число целое, заносим его в массив Y Цитата элементы которого дробные числа. Разве trunc это дробное число?

klem4	7.11.2005 12:48 Сообщение #4
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Ну елки-палки, значи if x[i] <> trunc(x[i]) then ... не ужели так трудно было знак поменять ? а trunc - отсекает дробную чусть, то есть trunc(1.23)=1 и trunc(1.99)=1 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Guest	7.11.2005 12:53 Сообщение #5
Гость	Цитата Ну елки-палки, значи Код if x[i] <> trunc(x[i]) then ... не ужели так трудно было знак поменять ? Вот это я и хотела услышать Просто человек задал конкретный вопрос и соответсвенно получил конкретный ответ. А в ответ было сказано неправильно. И не надо сразу же ругаться, ёлки палки - возьмите да исправьте.

volvo	7.11.2005 13:13 Сообщение #6
Гость	Цитата Просто человек задал конкретный вопрос и соответсвенно получил конкретный ответ. А ты, я так понимаю, адвокат этого человека? Какое ТЫ имеешь отношение к этому вопросу? Цитата И не надо сразу же ругаться, ёлки палки - возьмите да исправьте. Ну вот возьми в следующий раз, исправь программу и выложи сюда, и мы будем в ней ошибки искать... А то из твоих 39 сообщений на форуме я ни одной строки ТВОЕГО кода так и не увидел. Только критика чужого...