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

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

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

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

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

Опции

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

klem4	6.11.2005 8: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 9:20 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

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

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

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