Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Четное или нечетное число

Ngk88 © (2006-10-27 13:57:00)
Как узнать - четное или нечетное число? Новичок... =)

Спасибо.

Ngk88 (2006-10-29 20:44:00) [1]
Ну и развели тут! :)

Про функцию odd не знал, а до банального
iAns:= i mod 2; If iAns=0 then showmessage ('Число '+ inttostr(i)+' является четным'); End;
мой чайник не догадался.

Спасибо!

Орион (2006-10-29 01:27:00) [2]
> [18] guav © (29.10.06 01:22)

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

guav (2006-10-29 01:22:00) [3]
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:21:00) [4]
> [16] Ketmar © (29.10.06 01:01)

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

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

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

Zeqfreed (2006-10-28 21:58:00) [7]
Все равно шутка (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;

Anatoly Podgoretsky (2006-10-28 21:32:00) [8]
Desdechado © (28.10.06 19:30) [7]
Математика она разная бывает, есть и для дураков.

Ketmar (2006-10-28 21:20:00) [9]
а какие ньюсы можно на инетовском сайте давать! "купили два новых сервера. добавлено несколько миллиардов чисел!" %-)

Ketmar (2006-10-28 21:17:00) [10]
кустращина это всё. надо создать SQL-базу на оракуле, и записать туда все целые числа с соответствующими флажками. сервер, правда, понадобится нехилый. зато можно будет новый сервис в инете забабахать.

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

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

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

Все равно шутка (2006-10-28 21:10:00) [12]
Вот, не тестировал, но вроде должно работать

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 19:49:00) [13]

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

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

Desdechado (2006-10-28 19:30:00) [14]
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:22:00) [15]
как вариант:
if I and 1 = 0 then //четное

C@N (2006-10-28 19:08:00) [16]
3й класс 2я четверть... математика... число является четным, если оно без остатка делится на 2!!!

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

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

Shirson (2006-10-27 16:17:00) [17]
odd(x)

DevilDevil (2006-10-27 16:14:00) [18]
if X and 1 = 0 then ЧЁТНОЕ

Desdechado (2006-10-27 15:42:00) [19]
x mod 2 = 0- это четное

markers (2006-10-27 13:59:00) [20]
if odd(inc) then Brush.Color:=$FFFFFF else Brush.Color:=$F5F5F5;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »