Решим задачку - Помощь студентам

MAZADA · 14.10.2010, 14:42

Если y и x больше нуля, тогда z минус i, но І:=K[Combobox1.ItemIndex+1,Combobox2.Ite mIndex+1];

Utkin · 14.10.2010, 14:44

Код:

І:=K[Combobox1.ItemIndex+1,Combobox2.Ite mIndex+1]; 
If (y>0) and (x>0) then z:=z-i;

А в чем прикол?

Stilet · 14.10.2010, 14:53

А прикол видимо в том что придется еще проверять на выход за диапазон когда к массиву К обращаешься.

MAZADA · 15.10.2010, 01:04

А можна немного на русском, а я то вопше не второпав!

Код:

if (StrToFloatDef(Edit12.Text,0)>0)
   then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
   else
    if (StrToFloatDef(Edit13.Text,0)>0)
   then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));

вот так оно работает прекрасно.
Как писать остальные едиты, через else оно не работает.
begin end тоже не работает.
Как с этим бывать?

Stilet · 16.10.2010, 16:06

Цитата:

через else оно не работает.

Показывай как пишешь

MAZADA · 16.10.2010, 16:57

if (StrToFloatDef(Edit12.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
else
if (StrToFloatDef(Edit13.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text))
else
if (StrToFloatDef(Edit6.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text))
else
if (StrToFloatDef(Edit8.Text,0)>0)
then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text));

вот так и пишу...

14.10.2010, 14:42	#1
MAZADA Форумчанин Регистрация: 11.09.2010 Сообщений: 103	Решим задачку Если y и x больше нуля, тогда z минус i, но І:=K[Combobox1.ItemIndex+1,Combobox2.Ite mIndex+1];

14.10.2010, 14:44	#2
Utkin Старожил Регистрация: 04.02.2009 Сообщений: 17,351	Код: `І:=K[Combobox1.ItemIndex+1,Combobox2.Ite mIndex+1]; If (y>0) and (x>0) then z:=z-i;` А в чем прикол? Маньяк-самоучка Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика

14.10.2010, 14:53	#3
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	А прикол видимо в том что придется еще проверять на выход за диапазон когда к массиву К обращаешься. I'm learning to live...

15.10.2010, 01:04	#4
MAZADA Форумчанин Регистрация: 11.09.2010 Сообщений: 103	А можна немного на русском, а я то вопше не второпав! Код: `if (StrToFloatDef(Edit12.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text)) else if (StrToFloatDef(Edit13.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text));` вот так оно работает прекрасно. Как писать остальные едиты, через else оно не работает. begin end тоже не работает. Как с этим бывать? Последний раз редактировалось Stilet; 16.10.2010 в 16:07.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
помогите доделать задачку	innaa639	Паскаль, Turbo Pascal, PascalABC.NET	0	27.05.2009 11:29
Решите задачку	Fanny123	Паскаль, Turbo Pascal, PascalABC.NET	1	02.04.2009 17:56
Решите задачку	innaa639	Паскаль, Turbo Pascal, PascalABC.NET	14	30.11.2008 15:20
Проверьте задачку	{StaN}	Паскаль, Turbo Pascal, PascalABC.NET	3	04.07.2008 13:20

16.10.2010, 16:57	#6
MAZADA Форумчанин Регистрация: 11.09.2010 Сообщений: 103	if (StrToFloatDef(Edit12.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text)) else if (StrToFloatDef(Edit13.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit1.Text)) else if (StrToFloatDef(Edit6.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text)) else if (StrToFloatDef(Edit8.Text,0)>0) then Edit49.Text:= FloatToStr(StrToFloat(Edit46.Text)- StrToFloat(Edit3.Text)); вот так и пишу...