Главная страница
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.028 c
3-40844
chtr
2003-10-21 15:45
2003.11.13
BDE или ADO при работе с dBase?


14-41937
RoLeX
2003-10-20 16:17
2003.11.13
Как сгенерировать случайные Числа?? Буквы???


1-41382
snake1977
2003-10-29 18:10
2003.11.13
Drag & Drop


7-42160
Fontom
2003-09-02 11:38
2003.11.13
COM порт (Таймауты)


3-41012
Павел
2003-10-16 08:19
2003.11.13
Проблема с QRMemo