Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Программирование обработки одномерных массивов |
| ЯЯЯ |
Сообщение
#1
|
 Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Гена Репутация:  0   |
Помогите, пожалуйста решить 2 задачки:
1) Создать массив вещественных чисел. Заменить все отрицательные значения равными по модулю положительными и вывести результат работы на экран. 2) Создать массив целых чисел. Найти сумму и количество тех элементов массива, которые меньше заданного числа N. Вывести результат работы на экран. |
   |
 
|
  |
| Алена |
Сообщение
#2
|
|
Гость |
TimeStopper, если в IDE установлен режим RangeCheck (что, кстати, вполне логично делать, особенно для начинающего), то твой код вылетит при генерации первого же числа, которое ты думаешь, что будет отрицательным... Я бы делала так:
a[i]:=Integer(random(20))-10;, тогда ошибки не будет... |
|
|
|
ЯЯЯ Программирование обработки одномерных массивов 27.10.2006 20:27
Reflex var arr : array [ 1..100] of real;
n:integer;
i:in… 27.10.2006 20:37 volvo ЯЯЯ, в задаче №1 проще всего пробежаться по всему … 27.10.2006 20:39 Reflex var arr : array [ 1..100 ] of integer;
n:integer;
… 27.10.2006 20:39 volvo Reflex, а если подумать?
if arr<0 then arr:=-2*… 27.10.2006 20:40 Reflex Volvo - опечатка
if arr[i]<0 then arr[i]:=-(ar… 27.10.2006 21:06 мисс_граффити ОФФ:
из паскаля тоже можно копировать :) просто от… 27.10.2006 21:43 ЯЯЯ Задачи не работают! Помогите исправить! 27.10.2006 23:43 Reflex выложи код, который править. А те задачи которые в… 28.10.2006 0:02 Гость Program Sm;
var arr : array [ 1..100 ] of integer;… 9.11.2006 21:34
TimeStopper Program Sm;
uses crt;
var a : array [ 1..100 ] of … 9.11.2006 22:10 ЯЯЯ А что насчёт первой задачи? 10.11.2006 21:31 TimeStopper
А что насчёт первой задачи?
Так ето и есть перва… 11.11.2006 1:09 klem4
Последнее китайское предупреждение, _ЧИТАЙТЕ_ пр… 11.11.2006 2:26 TimeStopper Видел, но я просто быстро писал и хотел помочь, и … 11.11.2006 2:32 klem4 Поспешишь - людей насмешишь. Твоя программа выдает… 11.11.2006 2:36 мисс_граффити
Поспешишь - людей насмешишь. Твоя программа выдае… 11.11.2006 2:48 TimeStopper
Поспешишь - людей насмешишь. Твоя программа выдае… 11.11.2006 3:05 klem4 В смысле результат, который выдает твоя программа … 11.11.2006 3:22 TimeStopper
В смысле результат, который выдает твоя программа… 11.11.2006 3:34 ЯЯЯ А что такое
inc(k)
12.11.2006 21:38 TimeStopper
А что такое
inc(k)
Ето тоже самое что k:=k+1; 12.11.2006 21:44 |
|
Текстовая версия | 7.12.2025 22:11 |
