Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 12.12.2006, 19:45   #1
Vanek B
Новичок
Джуниор
 
Регистрация: 12.12.2006
Сообщений: 1
Вопрос Проблема

Ребята помогите решить задачку:определить число полученное выписыванием в обратном порядке цифр заданного трехзначного числа.
p.s. буду очень благодарен!!!!!!!!!!!
Vanek B вне форума
Старый 12.12.2006, 19:59   #2
AVer
Андрей
Форумчанин
 
Аватар для AVer
 
Регистрация: 21.11.2006
Сообщений: 457
По умолчанию

То есть просто развернуть число? Или как?
ICQ: 5311314
[SIGPIC][/SIGPIC]
AVer вне форума
Старый 12.12.2006, 20:11   #3
nova-alex
Пользователь
 
Регистрация: 06.11.2006
Сообщений: 51
По умолчанию

Если в общих чертах, то присвой строковой переменной свое число ч/з ф-ю Inttostr(число), а затем другой стороковой переменной (начиная с первого символа) присвой символы первой по одному начиная с конца. Далее ф-ей Strtoint(вторая ст.переменная) преобразуй в новое число.
По-моему так.
nova-alex вне форума
Старый 13.12.2006, 05:49   #4
strannik
python developer
Пользователь Подтвердите свой е-майл
 
Аватар для strannik
 
Регистрация: 30.11.2006
Сообщений: 81
По умолчанию

Если я правильно понял вопрос то попробуй вот эту функцию - может то что тебе надо:

function nazad(s:string): string;
var
a: integer;
begin
result:='';
for a:=length(s) downto 1 do
result:=result+s[a];
end;
Результатом будет строка наоборот.
Границы расширяет тот, кто выходит за них.
strannik вне форума
Старый 17.12.2006, 13:30   #5
Albenous
Helper
Форумчанин
 
Аватар для Albenous
 
Регистрация: 10.12.2006
Сообщений: 109
По умолчанию

Цитата:
function nazad(s:string): string;
var
a: integer;
begin
result:='';
for a:=length(s) downto 1 do
result:=result+s[a];
end;
Результатом будет строка наоборот.
Верно. По-моему, это даже типовая задача. В учебниках и справочниках она должна быть описана.
Глупых вопросов не бывает - бывают глупые ответы.
Albenous вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема. kupulau Общие вопросы C/C++ 19 05.02.2008 21:11
проблема с URL Scorpeon Помощь студентам 1 18.06.2007 13:28