Проверка условий

← →
Макака (2016-02-29 16:29) [0]

есть штук 10 последовательных if () then
Как сделать, чтобы при выполнении первого условия остальные не проверялись?
если за ними нет кода, то можно сделать exit;
пробовал ещё
if () then что то иначе if () then
итак все, но после компиляции ответ не сошёлся, так что подумал это тоже не катит.

← →
Rouse_ © (2016-02-29 16:49) [1]

ну сделай case

← →
Макака (2016-02-29 16:50) [2]

Я с ним никогда не работал, но похоже самое время (тоже подумал о нём)

← →
Плохиш © (2016-02-29 16:56) [3]

> но после компиляции ответ не сошёлся

Ошибка в 17й строке, тут без вариантов.

← →
Макака (2016-02-29 17:05) [4]

А case только с числовыми переменными работает?
С строкой никак не сделать?
типо
F: текстовая переменная
if F="R" then Result:=1;
if F="T" then Result:=2;

← →
эндсоувот © (2016-02-29 17:19) [5]

не с числовыми а с простыми типами данных.
строки и плавающая точка - к ним не относятся

← →
Макака (2016-02-29 19:47) [6]

значить на мой вопрос в первом посте больше ничего не сделать?

← →
Макака (2016-02-29 19:48) [7]

расходуются же ресурсы дико, если этот кусок кода миллионы раз прогоняется

← →
эндсоувот © (2016-02-29 20:05) [8]

у символа есть код (числовой).
и по счастливой случайности коды эти на шкале целых стоят в том же порядке что и буквы.
и если к коду буквы R прибавить два то попадешь на букву T (перепрыгнув через S)

← →
Макака (2016-02-29 20:11) [9]

Ord(), но коды идут не так как мне надо, т.е. Мне нужно старшинство по убыванию A K Q J T, по кодам не получится

← →
эндсоувот © (2016-02-29 20:52) [10]

настолько не так как надо что даже

case Ord(CharSymb)
end

не помогает?

← →
Плохиш © (2016-02-29 23:37) [11]

Ord("A") > Ord("K") > Ord("Q") > Ord("J") > Ord("T")
В этой реальности всегда!

← →
Плохиш © (2016-02-29 23:39) [12]

> эндсоувот © (29.02.16 20:52) [10]
>
> настолько не так как надо что даже
>
> case Ord(CharSymb)
> end
>
> не помогает?

goto [3]

PS. Партизанов здесь не любят.

← →
Плохиш © (2016-02-29 23:39) [13]

Пардон
Ord("A") > Ord("J") > Ord("K") > Ord("Q") > Ord("T")

← →
Плохиш © (2016-02-29 23:41) [14]

> Мне нужно старшинство по убыванию A K Q J T

Невыполнимое условие в нашей реальности.

> Макака (29.02.16 17:05) [4]
>
> А case только с числовыми переменными работает?
> С строкой никак не сделать?

Переходи на Лазарус. Там можно.

> Плохиш © (29.02.16 23:39) [13]
>
> Пардон

Галочку поверни влево :)

> Галочку поверни влево :)
</I
Точно, но надо было подождать возмущения от топикстартера ;-)

← →
Макака (2016-03-01 04:03) [17]

Да какие возмущения, я это самым первым делом проверил, посмотрел и завернул губу обратно.

Для автора - код в студию!
Покажи как пробовал написать, и что, по твоему, идёт не так.

> [9] Макака (29.02.16 20:11)
> Мне нужно старшинство по убыванию A K Q J T

-Ord()

http://segfault.kiev.ua/smart-questions-ru.html

Проверка условий Найти похожие ветки