|
#1
|
|||
|
|||
синтаксис CASE
Привет специалисты программирования. Для оптимизации нижеследующего кода необходимо перевести в case, но у меня не получается (нехватает знания). Если у кого найдется желание, дайте немного знания новичку. Спасибо всем, кто заглянул.
Код:
if w1='1' then begin wNach:=0; wKon:=6; end; if w1='2' then begin wNach:=1; wKon:=5; end; if w1='3' then begin wNach:=2; wKon:=4; end; if w1='4' then begin wNach:=3; wKon:=3; end; if w1='5' then begin wNach:=4; wKon:=2; end; if w1='6' then begin wNach:=5; wKon:=1; end; if w1='7' then begin wNach:=6; wKon:=0; end; |