procedure

← →
kibon (2005-11-16 01:38) [0]

что я не так делаю

procedure TForm1.Button1Click(Sender: TObject); var t:integer; begin x:=strtoint(Edit2.Text); repeat t:=x-4 until t=2; edit3.Text:=FloatToStr(t); end;

зависает почемута

← →
MRAk (2005-11-16 01:50) [1]

может просто у тя t проскакивает значение 2 попробуй так:
Until t<=2;

← →
MRAk (2005-11-16 01:56) [2]

ой а дело даже не в этом если у тя x не равен t+4 то t никогда не станет равным 2 потому что в цикле t присваеваеш значение неизменного x-4

← →
Джо © (2005-11-16 02:00) [3]

>
> зависает почемута

Не зависает, а выполняет именно тот цикл, который ты записал. Кстати, какой смысл ты вкладываешь в эти чудные манипуляции?

← →
kibon (2005-11-16 02:19) [4]

специально пишу на edit2.Text число 100, проскакивать не сможет.шас что делать? :)
var t,f,g:integer; begin g:=StrToInt(edit2.Text); repeat begin t:=g-2; edit3.Text:=FloatToStr(t) end until t<=2

← →
Джо © (2005-11-16 02:20) [5]

> [4] kibon (16.11.05 02:19)

А ты можешь своими словами описать то, что ты хочешь сделать при помощи этого кода?

← →
kibon (2005-11-16 02:20) [6]

уважаемый Джо ,есть смысл :)

← →
Джо © (2005-11-16 02:22) [7]

> [6] kibon (16.11.05 02:20)

Уважаемый благородный дон kibon, я его не вижу :) Не затруднит ли Вас донести его до меня, сей дивный смысл.

← →
kibon (2005-11-16 02:28) [8]

уважаемый Джо ,есть смысл :)

← →
MRAk (2005-11-16 02:31) [9]

var t,f,g:integer; begin g:=StrToInt(edit2.Text); repeat begin t:=g-2; ---{Да это действительно интересная строчка... я предположу все же:} edit3.Text:=FloatToStr(t) end until t<=2

var t,f,g:integer; begin g:=StrToInt(edit2.Text); repeat begin g:=g-2; end until g<=2 edit3.Text:=INTToStr(g)
Может все таки так?

← →
kibon (2005-11-16 02:38) [10]

ок.например я поставил флажок на 2004 год(логически). ети флажки действитель если для всех (2004-4=2000-4...) и (2004+4=2008+4...). вот,шас хочу например узнать ( edit2.Text) на 1300 есть ли флажок? знаю запутанно обяснил,но иначе не получается.

← →
kibon (2005-11-16 02:42) [11]

можно и алгоритм предложить,интересно было бы.

← →
Джо © (2005-11-16 02:43) [12]

> [11] kibon (16.11.05 02:42)
> можно и алгоритм предложить,интересно было бы.

Возможно, было бы интересно. Только алгоритм чего?

← →
kibon (2005-11-16 02:55) [13]

ну узнать например на 1200 есть флажок или нет.
я делаю так,может быть приметивен,ну всеже.

данное число (напр;1200) минус 4. в тцикле пишем его,это продалжается до тех пор пока значение будет равен на 2 (потому что я точно знаю в нем есть флажок). если будет равным тогда и в данном числе тоже есть флажок,в пративном случае form1.close.

var f,g:integer; begin f:=2004; g:=StrToInt(edit2.Text); if f-g div 4=f-g/4 then showmessage("вот оно") else showmessage("Нефига"); end;
а может так?

не... боюсь я не понял...

← →
kibon (2005-11-16 03:03) [16]

MRAk
а что,хорошый вариант.ближе этому и я придмал

да нет вариант то рабочий... просто я так и не понял что требуется...

Что творит автор не известно, похоже, что для этого у него нет просто слов. Зато есть загадочно, что смысл есть.

procedure Найти похожие ветки