| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

procedure

kibon ©   (2005-11-16 01:38:00) 

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


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;

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

---

Anatoly Podgoretsky   (2005-11-16 08:44:00) [1]

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

---

MRAk   (2005-11-16 03:04:00) [2]

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

---

kibon   (2005-11-16 03:03:00) [3]

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

---

MRAk   (2005-11-16 02:59:00) [4]

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

---

MRAk   (2005-11-16 02:57:00) [5]


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 02:55:00) [6]

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

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

---

Джо   (2005-11-16 02:43:00) [7]

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

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

---

kibon   (2005-11-16 02:42:00) [8]

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

---

kibon   (2005-11-16 02:38:00) [9]

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

---

MRAk   (2005-11-16 02:31:00) [10]


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:28:00) [11]

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

---

Джо   (2005-11-16 02:22:00) [12]

>  [6] kibon   (16.11.05 02:20)

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

---

kibon   (2005-11-16 02:20:00) [13]

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

---

Джо   (2005-11-16 02:20:00) [14]

>  [4] kibon   (16.11.05 02:19)

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

---

kibon   (2005-11-16 02:19:00) [15]

специально пишу на 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:00:00) [16]

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

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

---

MRAk   (2005-11-16 01:56:00) [17]

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

---

MRAk   (2005-11-16 01:50:00) [18]

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

---

Наверх