Строка

← →
viper_cd (2003-11-04 23:22) [0]

К переменной типа string присваеваем значение,ну скажем "1000110" (только цифры 1 или 0), так вот вопрос как взять каждую отдельную цифру из строки (скажем мне необходио посчитать сумму этих цифр)?Пожалуста помогите,если можно то кусок кода!

← →
Regis (2003-11-04 23:26) [1]

К строке можно обратиться как к массиву т.е.
если s - строка, то s[1] даст тебе 1й символ этой строки и т.д.

← →
viper_cd (2003-11-04 23:28) [2]

а кусоче кода мона

← →
Eagle Owl (2003-11-04 23:47) [3]

Ну, сумму можно расчитать примерно так:

accum, i: Integer;
s: String;
........
for i := 1 to Length(s) do
Inc(accum, StrToInt(s[i]));

........

← →
Tumcoat (2003-11-05 04:58) [4]

Или так:

x: integer;
for i:=1 to Length(s) do
x:=x+StrToInt(Copy(s,i,1));

← →
Думкин (2003-11-05 05:28) [5]

Или еще так:

> accum, i: Integer;
> s: String;
> ........

accum :=0;
> for i := 1 to Length(s) do
> Inc(accum, StrToInt(s[i]));

Строка Найти похожие ветки