Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Delphi .NET
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 18.01.2012, 19:07
Alinca3303 Alinca3303 вне форума
Прохожий
 
Регистрация: 16.01.2012
Сообщения: 8
Репутация: 11
По умолчанию задача

Поменять порядок следования цифр в натуральном числе N на обратный.
Ответить с цитированием
  #2  
Старый 18.01.2012, 19:17
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

PHP код:
function swap(sstring): string;
begin
  
case length(sof
    1
result := s;
    
2result := s[2]+s[1];
  else
    
result := s[length(s)] + swap(copy(s2length(s)-2)) + s[1];
  
end;
end;

procedure TForm1.Button1Click(SenderTObject);
begin
  Edit1
.Text := swap(Edit1.text);
end
Ответить с цитированием
  #3  
Старый 18.01.2012, 19:18
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Код:
s:=inttostr(N);
k:=length(s);
setlength(s1,k);
for i:=1 to length(s) do
  s1[i]:=s[k-i+1];
N:=StrToInt(s1);
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:18.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter