AMX MOD X
Понедельник, 06.05.2024, 15:30:43



Приветствую Вас Гость | RSS
[ Главная ] [ [Pascal] Как провить на чётность и нечётность. - AMX Mod X Форум ] [ Регистрация ] [ Вход ]
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Вниманию участников! Данный форум теперь является архивом и вскором времени здесь нельзя будет создавать новых тем! Просьба всем для общения и создания новых тем перейти на наш новый форум: http://amxmodx.su/

  • Страница 1 из 1
  • 1
Модератор форума: AlMod, slogic  
AMX Mod X Форум » Остальные форумы » Любые вопросы » [Pascal] Как провить на чётность и нечётность.
[Pascal] Как провить на чётность и нечётность.
BruteДата: Вторник, 18.03.2008, 15:03:59 | Сообщение # 1
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
Собственно возник вопрос по языку Pascal (TP 7.0): "Как проверить число на четность или нечетность?"
Пажалуста с примером, буквально только функцию и число.
 
DaTaДата: Вторник, 18.03.2008, 15:27:49 | Сообщение # 2
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Репутация: 16
Статус: Не в сети
if(10%2 = 0) then write('это число четное');
 
max_ripДата: Вторник, 18.03.2008, 15:35:07 | Сообщение # 3
Подполковник
Группа: Пользователи
Сообщений: 147
Репутация: 0
Статус: Не в сети
DaTa, а процент это деление по модулю ? разве такое есть в ТП )
 
BruteДата: Вторник, 18.03.2008, 16:02:20 | Сообщение # 4
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
Quote (DaTa)
if(10%2 = 0) then write('это число четное');

спасибо конечно, но это не то...
в общем должно быть что-то mod или div, короче хз, подождём админов-они 99% знают.
 
slogicДата: Вторник, 18.03.2008, 16:02:55 | Сообщение # 5
Генералиссимус
Группа: Админы
Сообщений: 1941
Репутация: 47
Статус: Не в сети
mod вроде есть.
 
BruteДата: Вторник, 18.03.2008, 16:07:02 | Сообщение # 6
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
Quote (slogic)
mod вроде есть.

а поподробнее можно?

offtop Сделай статус видимый.

 
DaTaДата: Вторник, 18.03.2008, 16:49:32 | Сообщение # 7
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Репутация: 16
Статус: Не в сети
это нам в универе запудрили мозги "системой алгоритмов" devil
mod в паскале :)
 
BruteДата: Вторник, 18.03.2008, 16:52:23 | Сообщение # 8
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
Quote (DaTa)
mod в паскале :)

я о паскале и спрашиваю. Давай ближе к теме: знаешь ответ на вопрос-говори, не знаешь-кышь..
 
DaTaДата: Вторник, 18.03.2008, 16:53:24 | Сообщение # 9
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Репутация: 16
Статус: Не в сети
можно еще юзать (x div 2 = x*2), но если x=0, то в обоих способах выйдет, что ноль делиться на ноль, хотя можно утверждать, что 0 не четное
 
BruteДата: Вторник, 18.03.2008, 16:54:43 | Сообщение # 10
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
Quote (DaTa)
можно еще юзать (x div 2 = x*2)

щас проверим, спс
 
DaTaДата: Вторник, 18.03.2008, 16:56:56 | Сообщение # 11
Генерал-полковник
Группа: Cупер-модеры
Сообщений: 1025
Репутация: 16
Статус: Не в сети
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
Репутация: 0
Статус: Не в сети
if ((i mod 2) = 0 ) then begin
{код}
end
 
BruteДата: Вторник, 18.03.2008, 18:03:30 | Сообщение # 13
Генерал-полковник
Группа: Скриптеры
Сообщений: 1123
Репутация: 9
Статус: Не в сети
max_rip, DaTa, спасибо огромное! Очень очень помогли!

Ответ дан, автор удовлетворен на 100%! Тема закрыта!

 
AlModДата: Среда, 19.03.2008, 15:09:40 | Сообщение # 14
Сонный кодер
Группа: Админы
Сообщений: 600
Репутация: 27
Статус: Не в сети
Добавка:
mod - оператор вычисление остатка от деления целых чисел
Code
5 mod 2 = 1

div - оператор вычисления целой части при делении целых чисел
Code
5 div 2 = 4


 
AMX Mod X Форум » Остальные форумы » Любые вопросы » [Pascal] Как провить на чётность и нечётность.
  • Страница 1 из 1
  • 1
Поиск:

AMX Mod X Russian Community © 2006-2024