Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сушествить перевод числа? [D7, WinXP]

Саня © (2004-09-15 00:02:00)
Дано натуральное число N. Найти число, получающееся, если записать цифры числа N в обратном порядке.
Вход
В первой строке входа дано целое число N (0<=N<=1e9).
Выход
В первую строку выхода вывести результат.
Пример
Вход:

123
Выход:

321

wl (2004-09-15 11:53:00) [1]
может поможет? 1e9 это не целое число, по заверениям делфи
procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; begin i:=StrToInt(Edit1.Text); j:=0; while(i > 0) do begin j := j*10 + i mod 10; i := i div 10; end; Edit2.Text := IntToStr(j); end;

Думкин (2004-09-15 11:35:00) [2]
> [16] MegaBass (15.09.04 11:22)
> условие задачи читать надо мастера
> так что строки тут не ройдут

Можно подробнее? И расшифруйте тогда, что значит записать в обратном порядке число?

MegaBass (2004-09-15 11:22:00) [3]
условие задачи читать надо мастера
>>> N (0<=N<=1e9).
пример : 1е7 результат???
так что строки тут не ройдут
?)

Ega23 (2004-09-15 11:15:00) [4]
Сергей Цвигун (15.09.04 10:59) [14]

Наверняка ему за такое читерство "банан" влемят.

оффтоп: ты в МИФИ не учился?

Сергей Цвигун (2004-09-15 10:59:00) [5]
Зачем изобретать "велосипед": в unit'e StrUtils уже есть функция
function ReverseString(const AText: string): string;
(Description: ReverseString returns the string specified by AText with the characters in reverse order.)
А уж преобразовать из Int/Int64 в String и обратно вроде не сложно :-)

Alx2 (2004-09-15 10:05:00) [6]
>TUser © (15.09.04 10:03) [12]
Ты свое "инкогнито" и не скрывал :)

TUser (2004-09-15 10:03:00) [7]
См. на второй странице.
Мое инкогнито вчера было раскрыто на 33 посту.

Defunct (2004-09-15 09:47:00) [8]
Саня (15.09.04 00:02)

см [6]. mod/div надо юзать и никаких массивов

Dum (2004-09-15 09:45:00) [9]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SelStart:=0
end;

Dum (2004-09-15 09:43:00) [10]
Edit1.SelStart=0 и пиши себе в обратном порядке

Ega23 (2004-09-15 09:16:00) [11]
Конечно рекурсия. И никаких строк, всё только числами. Со строками - читерство!

Кстати, а результат функции, когда на входе 1000 какой?

pavel_pavel (2004-09-15 09:08:00) [12]
А я за рекурсию :) - в инсте похожую задачу с помощью нее решали. там надо было строку наоборот записать

wl (2004-09-15 08:58:00) [13]
совершенно непонятно, причём тут натуральное число, если ввести можно хоть матерное слово.
похоже это какая-то контрольная задача и работать придётся именно с числом, то есть брать остатки от деления и умножать их на 10...

Саня (2004-09-15 00:24:00) [14]
Спасибо.

Megabyte (2004-09-15 00:24:00) [15]
Епта. Массив, конечно. :)

jack128 (2004-09-15 00:24:00) [16]
Саня (15.09.04 0:20) [2]
циклом. Если строку считать массивом сиволов, то и массивом..

Саня (2004-09-15 00:20:00) [17]
>Palladin © (15.09.04 00:10) [1]
Думай федя думай. Задачи для того и дадены.

Я не прошу исходник. Подскажите чем лучше воспользоваться - циклом, массивом иль еще чем?

Palladin (2004-09-15 00:10:00) [18]
Думай федя думай. Задачи для того и дадены.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »