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

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

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

Pascal

Страницы: < 1 2 3
******* © (2004-11-12 20:48:00)
В одной книге вопрос?
Записать группу команд

First:=First+1;
if First>max then
First:=1

одной командой на языке Pascal. Кто знает?

******* (2004-11-12 21:29:00) [41]
Тестировщица Очень благодарен, теперь буду знать!

GuAV (2004-11-12 21:29:00) [42]
Тестировщица © (12.11.04 21:26) [13]
Гениально. Наверное это оно и есть.

******* (2004-11-12 21:27:00) [43]
GuAV © Возможно, скорее всего это и будет правильно.

Тестировщица (2004-11-12 21:26:00) [44]
Verg © (12.11.04 21:07) [6] Может, лучше так:
First:=(First mod max)+1;

GuAV (2004-11-12 21:23:00) [45]
if First > max + 1 then first:=1 else First := First + 1 ?

******* (2004-11-12 21:20:00) [46]
Guav сам незнаю, такие вопросы вот в книгах без звездочки (*)

uny (2004-11-12 21:17:00) [47]
*******
[6] разве не верен? на дельфи и правда ошибка где Вы указываете, (я использую другую среду)

GuAV (2004-11-12 21:17:00) [48]
******* (12.11.04 20:48)
одной командой
что есть одна комманда ?

******* (2004-11-12 21:14:00) [49]
Что приходит на ум только

first:=first mod max;
inc(first)

но это две команды.

******* (2004-11-12 21:10:00) [50]
uny ©

first должно быть равно потом 1, то я думаю
что сначала нужно mod, а потом как то изменить
значение first, в Delphi проверяю на (inc first)
выдает ошибку.

Verg (2004-11-12 21:07:00) [51]
F := ( F + 1 ) mod max;

uny (2004-11-12 21:05:00) [52]
first:=(inc first) mod max;
в [1] не верно, от маx зависит, а так?

******* (2004-11-12 20:58:00) [53]
heady
подрозумевается что first постоянно изменяется.

******* (2004-11-12 20:57:00) [54]
uny ©
попробовал не хочет работать.
Сам думал как, не получается.

heady (2004-11-12 20:54:00) [55]
робко пробую: if inc(First)>max then First:=1;

uny (2004-11-12 20:52:00) [56]
first:=(inc first) and max; ?

Страницы: < 1 2 3

Наверх

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