|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
|||
|
|||
Цитата:
Как тогда проверять однозначное или двузначное число в S1 и если двузначное, тогда уже присваивать значение А2? т.к. в большинстве случаев они двузначные (проверял все возможные варианты, оказалось сумма дает не всегда двузначное). |
#17
|
|||
|
|||
Ну, например, так:
Код:
procedure SplitNumber(InNmb : Integer; var A1 : Integer; var A2 : Integer); var A : Array Of Integer; begin SetLength(A,0); While InNmb > 0 Do Begin SetLength(A,Length(A)+1); A[High(A)] := InNmb mod 10; InNmb := InNmb div 10; End; If Length(A) = 1 Then Begin A1 := A[0]; A2 := 0; End Else Begin A1 := A[1]; A2 := A[0]; End; end; |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
vers0 (25.07.2019)
|
#18
|
|||
|
|||
Цитата:
В принципе, так и думал, проще if then else Спасибо, что помогаете тупым людям вроде меня |