|
[Pascal] Как провить на чётность и нечётность.
|
|
| Brute | Дата: Вторник, 18.03.2008, 15:03:59 | Сообщение # 1 |
 Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| Собственно возник вопрос по языку Pascal (TP 7.0): "Как проверить число на четность или нечетность?"
Пажалуста с примером, буквально только функцию и число.
|
| |
| |
| DaTa | Дата: Вторник, 18.03.2008, 15:27:49 | Сообщение # 2 |
|
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Статус: Не в сети
| if(10%2 = 0) then write('это число четное');
|
| |
| |
| max_rip | Дата: Вторник, 18.03.2008, 15:35:07 | Сообщение # 3 |
|
Подполковник
Группа: Пользователи
Сообщений: 147
Статус: Не в сети
| DaTa, а процент это деление по модулю ? разве такое есть в ТП )
|
| |
| |
| Brute | Дата: Вторник, 18.03.2008, 16:02:20 | Сообщение # 4 |
|
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| Quote (DaTa) if(10%2 = 0) then write('это число четное');
спасибо конечно, но это не то...
в общем должно быть что-то mod или div, короче хз, подождём админов-они 99% знают.
|
| |
| |
| slogic | Дата: Вторник, 18.03.2008, 16:02:55 | Сообщение # 5 |
|
Генералиссимус
Группа: Админы
Сообщений: 1941
Статус: Не в сети
| mod вроде есть.
|
| |
| |
| Brute | Дата: Вторник, 18.03.2008, 16:07:02 | Сообщение # 6 |
|
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| Quote (slogic) mod вроде есть.
а поподробнее можно? offtop Сделай статус видимый.
|
| |
| |
| DaTa | Дата: Вторник, 18.03.2008, 16:49:32 | Сообщение # 7 |
|
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Статус: Не в сети
| это нам в универе запудрили мозги "системой алгоритмов" 
mod в паскале 
|
| |
| |
| Brute | Дата: Вторник, 18.03.2008, 16:52:23 | Сообщение # 8 |
|
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| Quote (DaTa) mod в паскале :)
я о паскале и спрашиваю. Давай ближе к теме: знаешь ответ на вопрос-говори, не знаешь-кышь..
|
| |
| |
| DaTa | Дата: Вторник, 18.03.2008, 16:53:24 | Сообщение # 9 |
|
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Статус: Не в сети
| можно еще юзать (x div 2 = x*2), но если x=0, то в обоих способах выйдет, что ноль делиться на ноль, хотя можно утверждать, что 0 не четное
|
| |
| |
| Brute | Дата: Вторник, 18.03.2008, 16:54:43 | Сообщение # 10 |
|
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| Quote (DaTa) можно еще юзать (x div 2 = x*2)
щас проверим, спс
|
| |
| |
| DaTa | Дата: Вторник, 18.03.2008, 16:56:56 | Сообщение # 11 |
|
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Статус: Не в сети
| Quote (Brute) я о паскале и спрашиваю. Давай ближе к теме: знаешь ответ на вопрос-говори, не знаешь-кышь..
проверка числа x на четность:
if(x mod 2 = 0) then write('это число четное'); если ты берешь число 0, как нечетное, то нужно сделать проверку:
if(x mod 2 = 0 and x <> 0) then write('это число четное');
|
| |
| |
| max_rip | Дата: Вторник, 18.03.2008, 16:57:00 | Сообщение # 12 |
|
Подполковник
Группа: Пользователи
Сообщений: 147
Статус: Не в сети
| if ((i mod 2) = 0 ) then begin
{код}
end
|
| |
| |
| Brute | Дата: Вторник, 18.03.2008, 18:03:30 | Сообщение # 13 |
|
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Статус: Не в сети
| max_rip, DaTa, спасибо огромное! Очень очень помогли! Ответ дан, автор удовлетворен на 100%! Тема закрыта!
|
| |
| |
| AlMod | Дата: Среда, 19.03.2008, 15:09:40 | Сообщение # 14 |
|
Сонный кодер
Группа: Админы
Сообщений: 600
Статус: Не в сети
| Добавка:
mod - оператор вычисление остатка от деления целых чисел
div - оператор вычисления целой части при делении целых чисел
|
| |
| |
