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

Вниз

Как развернуть строку.   Найти похожие ветки 

 
Tadeush ©   (2002-02-06 13:04) [0]

Есть строка AnsiString например А121 как ее развернуть в 21А1


 
Basilio ©   (2002-02-06 13:08) [1]

Что значит развернуть? Написать в обратном порядке?
Это одна из задачек на зачет по программированию на мехмате МГУ для первого курса (правда на языке С)


 
Basilio ©   (2002-02-06 13:12) [2]


procedure TurnString(var S:AnsiString);
var i:integer;
swap:char;
begin
for i:=1 to length(AnsiString) div 2 do
begin
swap:=S[i];
S[i]:=S[Length(S)-i+1)];
S[Length(S)-i+1)]:=swap;
end;
end;


 
Tadeush ©   (2002-02-06 13:12) [3]

в обратном.... я на мех мате не учился . Тем более в МГУ


 
Tadeush ©   (2002-02-06 13:18) [4]

Спасибо



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
3-66482
AndrewK
2002-01-29 09:16
2002.02.21
Как составить SQL запрос


6-66635
SemFLY
2001-12-03 23:08
2002.02.21
Мастера, подскажите, как шифровать траффик между Клиент Сервер


3-66460
NightMan
2002-01-25 14:17
2002.02.21
Задержка с обновлением ?


3-66429
sync
2002-01-25 08:06
2002.02.21
Remote Data Module


1-66543
M@XIDROM
2002-02-03 15:43
2002.02.21
Jpeg->StringGrid