VPF::А в Делфи это выглядит так - Форум программистов

Бабёр

Дата 24.7.2003, 11:15 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Код

function ks(s:string):integer;
var i,k:integer;
begin
 ks:=0; k:=0;
 for i:=1 to length(s) do
     k:=k+(ord(s[i]) xor (i-1));
 ks:=k;
end;

помогите преобразовать алгоритм.
Немогу найти аналог

Код

ord

yurgen20

Дата 24.7.2003, 12:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 3.4.2003

Репутация: нет
Всего: нет

Что-то вроде:

int ks(String s)
{
int i, k;
ks=0;
k=0;
for(i=1;i<StrLen(s);i++)
{
k+=(s[i])||(i-1);
}
ks=k;
}

maxim1000

Дата 24.7.2003, 13:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 17
Всего: 110

Код

int ks(char *s)
{
  int i,k;
  k=0;
  while((*s)!=0)
  {
    k+=(*s)^(i-1);
    s++;
  }
  return k;
}

--------------------

qqq

PostEr

Дата 24.7.2003, 14:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 282
Регистрация: 30.6.2003
Где: Самара

Репутация: 1
Всего: 1

Код


int ks(char *s)
{
 int i=0;
 int k=0;

while((*s)!=0)
 {
   k+=(*s)^(i-1);
   s++;
 }
 return k;
}

--------------------

------------------------------------------------------------------

[email protected]
До востребования

Dov

Дата 24.7.2003, 18:45 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 15
Всего: 88

Код

int ks(char *s)
{
    int k = 0;

    for(int i = 0; *s; i++, s++)
        k += (int)*s^i;
    return k;
}

--------------------

Тут вечности запах томительный,
И свежие фрукты дешевые,
А климат у нас – изумительный,
И только соседи – #уевые.
Игорь Губерман.

PostEr

Дата 24.7.2003, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 282
Регистрация: 30.6.2003
Где: Самара

Репутация: 1
Всего: 1

Dov, оригинаааал

--------------------

------------------------------------------------------------------

[email protected]
До востребования

Dov

Дата 24.7.2003, 20:28 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 15
Всего: 88

Цитата(PostEr @ 24.7.2003, 19:18)

Dov, оригинаааал

Переведи, чё это значит !!!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C/C++: Общие вопросы \| Следующая тема »