Комментарии: Решаем задачи Абрамян на Паскале. String23

Автор: Anton

Anton — Tue, 06 Dec 2016 15:31:38 +0000

В ответ на Anton. Хотя мне кажеться в Pascal это как то не смотриться. :)

Автор: Anton

Anton — Tue, 06 Dec 2016 15:23:11 +0000

Не знаю почему я использовал именно такую конструкцию. Но согласен так лучше. Поправил.

Было:

if (ord(S[i]) in  [48..57]) then Rez:=Rez+operation*(ord(S[i])-48);
if (ord(S[i]) = 43) then Operation:=1; //+
if (ord(S[i]) = 45) then Operation:=-1; //-

if (ord(S[i]) in [48..57]) then Rez:=Rez+operation*(ord(S[i])-48);

if (ord(S[i]) = 43) then Operation:=1; //+

if (ord(S[i]) = 45) then Operation:=-1; //-

Стало:

if (ord(S[i]) in  [48..57]) then Rez:=Rez+operation*(ord(S[i])-48)
else if (ord(S[i]) = 43) then Operation:=1 //+
else if (ord(S[i]) = 45) then Operation:=-1; //-

if (ord(S[i]) in [48..57]) then Rez:=Rez+operation*(ord(S[i])-48)

else if (ord(S[i]) = 43) then Operation:=1 //+

else if (ord(S[i]) = 45) then Operation:=-1; //-

Автор: Newton

Newton — Mon, 05 Dec 2016 20:23:00 +0000

Вы здесь (да и не только здесь) намеренно избегаете конструкции вида IF-THEN-ELSE-IF в пользу наглядности и простоты восприятия?