Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

 
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]));



Страницы: 1 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
1-41230
md
2003-11-01 11:07
2003.11.13
прога - невидимка


3-41062
Карелин Артем
2003-10-23 17:14
2003.11.13
Как снять


7-42206
DVM
2003-09-04 18:11
2003.11.13
Где в Windows хранится обозначение года (г.) на текущем языке.


14-41886
IGray
2003-10-22 02:52
2003.11.13
Идеальный BACKUP хочу


3-40909
Term
2003-10-20 13:00
2003.11.13
Помогите сообразить