VPF::четность и нечетность - Форум программистов

LinuxanT

Дата 29.10.2007, 03:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 21.10.2007

Репутация: нет
Всего: нет

выдает ошибку на этой строке...
y:=(4.5*x);
b:=odd(y);
не знаю какой тип данных подобрать.... для Y;
возможно ли обрезать число до целого значения?

Код

var x,y: integer;
var b: boolean;
Begin
x:=-3;
repeat
y:=(4.5*x);
b:=odd(y);
if b=true then
writeln('четная')
else
writeln('нечетная');
x:=x+1;
until x>2;
readln;
End.

Это сообщение отредактировал(а) LinuxanT - 29.10.2007, 05:24

volvo877

Дата 29.10.2007, 09:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(LinuxanT @ 29.10.2007, 02:59

)

возможно ли обрезать число до целого значения?

Код


Y := Trunc(4.5*X);

Тольуо учти, что Odd - проверяет на НЕчетность...

LinuxanT

Дата 30.10.2007, 06:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 21.10.2007

Репутация: нет
Всего: нет

а тоже самое но на си++, есть???
просто тему в том разделе такую же не хочется.....

new_

Дата 18.11.2007, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 8.3.2005

Репутация: нет
Всего: нет

а зачем Odd? Можно и самому проверить!

Цитата

Y := Trunc(4.5*X);

If ( (Y & 1) = 1) then begin ...... end {не четное!!}
else begin ....... end; { четное!!}

Кстати и в Си пригодиться!

volvo877

Дата 18.11.2007, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(new_ @ 18.11.2007, 18:07

)

Можно и самому проверить!

Вот и попробуй ЭТО скомпилировать в Паскале, а я посмотрю...

(Если есть Библиотечная функция - пользуйтесь ей... Не лезьте вы на низкий уровень, что за тяга к этому постоянно? Одно время тоже пытались "хакерствовать" - вместо Length(s) пользовались Ord(s[0]), зачем - непонятно, крутизну свою показывали, что-ли? И что? Теперь все программы, в которых это делалось, приходится править, ибо НЕТ теперь доступа к s[0] в современных компиляторах, а старая добрая Length(s) - как работала, так и работает...)

primax

Дата 25.11.2007, 03:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 29.12.2006
Где: НТУУ-КПИ.Киев

Репутация: нет
Всего: нет

современый - fpc?
хм, странно что он не пускает на нулевой символ строки.

Snaiper

Дата 26.11.2007, 21:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет

Цитата(LinuxanT @ 29.10.2007, 03:59)

выдает ошибку на этой строке...
y:=(4.5*x);

'y' должен быть real

bems

Дата 26.11.2007, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88

Цитата(volvo877 @ 18.11.2007, 21:53

)

НЕТ теперь доступа к s[0] в современных компиляторах

для shortstring вроде все осталось как было

Цитата(volvo877 @ 18.11.2007, 21:53

)

Одно время тоже пытались "хакерствовать" - вместо Length(s) пользовались Ord(s[0])

НЕ! по-хакерски будет byte(s[0])
А Ord не круто smile

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »