Главная страница
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.023 c
14-42040
Vlad Oshin
2003-10-16 11:58
2003.11.13
Ищу распозванулку рукописного текста, есть где-то?


14-41883
Думкин
2003-10-22 04:28
2003.11.13
С днем рождения! 22 октября.


4-42324
WELLiON
2003-08-31 23:53
2003.11.13
ini-файл создание


6-41858
SidDN
2003-09-10 14:10
2003.11.13
Проблема с блок. сокетами!!!!


1-41169
Shadow77
2003-11-03 01:30
2003.11.13
Вот решил классы освоить...