Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.12;
Скачать: CL | DM;

Вниз

Четное или нечетное число   Найти похожие ветки 

 
Ngk88   (2006-10-27 13:57) [0]

Как узнать - четное или нечетное число? Новичок... =)

Спасибо.


 
markers ©   (2006-10-27 13:59) [1]

   if odd(inc) then Brush.Color:=$FFFFFF
   else Brush.Color:=$F5F5F5;


 
Desdechado ©   (2006-10-27 15:42) [2]

x mod 2 = 0 - это четное


 
DevilDevil ©   (2006-10-27 16:14) [3]

if X and 1 = 0 then ЧЁТНОЕ


 
Shirson ©   (2006-10-27 16:17) [4]

odd(x)


 
C@N ©   (2006-10-28 19:08) [5]

3й класс 2я четверть... математика... число является четным, если оно без остатка делится на 2!!!

var i,iAns:integer;
Begin
iAns:= i mod 2;
If iAns=0 then showmessage ("Число "+ inttostr(i)+" является четным");
End;


но это действует для Integer, для Real выдумай сам )))


 
vidiv ©   (2006-10-28 19:22) [6]

как вариант:
if I and 1 = 0 then //четное


 
Desdechado ©   (2006-10-28 19:30) [7]

Shirson ©   (27.10.06 16:17) [4]
C@N ©   (28.10.06 19:08) [5]
vidiv ©   (28.10.06 19:22) [6]
повторяетесь, господа

> для Real выдумай сам
первый раз слышу, чтоб на четность проверяли дроби


 
vidiv ©   (2006-10-28 19:49) [8]


> vidiv ©   (28.10.06 19:22) [6]
> повторяетесь, господа

Во фишка =)) Внатуре =))) Вывод: пора на боковую =)


 
Все равно шутка   (2006-10-28 21:10) [9]

Вот, не тестировал, но вроде должно работать

s := inttostr(X);
s := copy (s, length (s) - 1, 1);
if s = "0" then
 writeln ("odd")
 else
if s = "2" then
 writeln ("odd")
 else
if s = "4" then
 writeln ("odd")
 else
if s = "6" then
 writeln ("odd")
 else
if s = "8" then
 writeln ("odd")
 else
if s = "1" then
 writeln ("even")
 else
if s = "3" then
 writeln ("even")
 else
if s = "5" then
 writeln ("even")
 else
if s = "7" then
 writeln ("even")
 else
if s = "9" then
 writeln ("even")
 else
 writeln ("что-то очень странное :)");


 
vidiv ©   (2006-10-28 21:12) [10]


> Вот, не тестировал, но вроде должно работать

не будет работать.. в строке 2 - ошибка


 
Ketmar ©   (2006-10-28 21:17) [11]

кустращина это всё. надо создать SQL-базу на оракуле, и записать туда все целые числа с соответствующими флажками. сервер, правда, понадобится нехилый. зато можно будет новый сервис в инете забабахать.


 
Ketmar ©   (2006-10-28 21:20) [12]

а какие ньюсы можно на инетовском сайте давать! "купили два новых сервера. добавлено несколько миллиардов чисел!" %-)


 
Anatoly Podgoretsky ©   (2006-10-28 21:32) [13]

Desdechado ©   (28.10.06 19:30) [7]
Математика она разная бывает, есть и для дураков.


 
Zeqfreed ©   (2006-10-28 21:58) [14]

Все равно шутка   (28.10.06 21:10) [9]
Код хороший, но для того, чтобы его использовать придется объявить дополнительно процедуру:

procedure WriteLn(const s : String);
begin
 if (s = "even") then
  System.WriteLn("odd")
 else if (s = "odd") then
  System.WriteLn("even")
 else
  System.WriteLn(s);
end;


 
Petr V.Abramov   (2006-10-29 00:37) [15]

> Ketmar ©   (28.10.06 21:17) [11]
Кто-то может обидиться на "с флажками". Application-сервер забыли ведь


 
Ketmar ©   (2006-10-29 01:01) [16]

>[15] Petr V.Abramov 29-Oct-2006, 00:37
ну, это общее направление. идея, конечно, сырая -- дорабатывать и дорабатывать...


 
Орион ©   (2006-10-29 01:21) [17]

> [16] Ketmar ©   (29.10.06 01:01)

а за доступ к сервису можно плату брать и делать деньги из воздуха :)
к нему же можно таблицу логарифмов и доходы увеличатся вдвое %)


 
guav ©   (2006-10-29 01:22) [18]

procedure TForm1.Button1Click(Sender: TObject);
var S: string;
begin
 S := IdHTTP1.Get(
   Format("http://www.google.com.ua/search?q=%d%%252&meta=",
     [StrToInt(Edit1.Text)]));
 case S[Pos("modulo 2 = ", S) + Length("modulo 2 = ")] of
   "0": Caption := "even";
   "1": Caption := "odd";
 else
   Caption := "neigther";
 end
end;


 
Орион ©   (2006-10-29 01:27) [19]

> [18] guav ©   (29.10.06 01:22)

:))) супер!!!


 
Ngk88   (2006-10-29 20:44) [20]

Ну и развели тут! :)

Про функцию odd не знал, а до банального

iAns:= i mod 2;
If iAns=0 then showmessage ("Число "+ inttostr(i)+" является четным");
End;

мой чайник не догадался.

Спасибо!



Страницы: 1 вся ветка

Текущий архив: 2006.11.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.049 c
15-1161632789
cyborg
2006-10-23 23:46
2006.11.12
Может кто нибудь по русски объяснить


8-1144405028
SL777
2006-04-07 14:17
2006.11.12
Cовмещение цветов при перетаскивании TImage


15-1161339330
ArtemESC
2006-10-20 14:15
2006.11.12
Язык, который всем нравится...


2-1161749896
LexXL
2006-10-25 08:18
2006.11.12
следим за заголовками


15-1161933968
boriskb
2006-10-27 11:26
2006.11.12
Сведения о доходах членов Российского правительства.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский