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

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

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

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

Mettt © (2007-01-19 12:21:00)
хочу for a:=0 to 1000 step 2 do begin // 0 2 4 6 8 9
но параметра step нету
придется так
for a:=0 to 1000 s do begin if TestChet(a)=True thenдействия
кривая-медленная идея перевод в стринг ,анализ последнего СИМВОЛА
на 0.2.4.8

SergP (2007-01-24 19:46:00) [1]
кстати седня на вижуал-васике попросили написать програмку для какой-то контрольной у студента...
ну я и там где нужно было определить четность числа написал:
if a/2=int(a/2) then
...
пофиг. главное что работает и что я получил обещаное пиво...

Palladin (2007-01-20 15:35:00) [2]

> [10] SergP ©

просто это настоящее искусство... творить безумный код...

SergP (2007-01-20 15:32:00) [3]
> [8] Pasha L © (20.01.07 14:53)

> [9] Архангел Фаронов-Фленов и Ко (20.01.07 15:10)

А зачем, если есть odd ?

Архангел Фаронов-Фленов и Ко (2007-01-20 15:10:00) [4]
function isChet(a:integer):boolean;
begin
result:=a mod 2 = 0;
end;

Правильные пацаны пишут так:
Result := a / 2 <> a div 2;

А хакеры вот так:
s := IntToStr(a);
Result := s[Length(s)] in ['0', '2', '4', '6', '8'];

Pasha L (2007-01-20 14:53:00) [5]
function isChet(a:integer):boolean; begin result:=a mod 2 = 0; end; if isChet(a) then {}

ors_archangel (2007-01-19 23:50:00) [6]

> // 0 2 4 6 8 9

9 - 10, тогда уж
Да, stepа не хватает.....

DrPass (2007-01-19 23:45:00) [7]

> Mettt (19.01.07 22:59) [5]

Возьми Турбо Бейсик, там твоя проблема решена

Mettt (2007-01-19 22:59:00) [8]
А если for a:=0 to 1000
1000- это переменная ? то

M:=dMass DIV 2 ; for a:=0 to M do begin нормально ?

begin...end (2007-01-19 13:27:00) [9]
for a := 0 to 500 do
... a*2 ...

Правильный Вася (2007-01-19 12:34:00) [10]
odd

Комбинатор (2007-01-19 12:33:00) [11]
a:=0;
While a<=1000 do
a:=a+2;

Думкин (2007-01-19 12:33:00) [12]
Плохая провокация. Не цепляет.

Наверх

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