Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Вниз
Как сушествить перевод числа? Найти похожие ветки
← →
Саня (2004-09-15 00:02) [0]Дано натуральное число N. Найти число, получающееся, если записать цифры числа N в обратном порядке.
Вход
В первой строке входа дано целое число N (0<=N<=1e9).
Выход
В первую строку выхода вывести результат.
Пример
Вход:
123
Выход:
321
← →
Palladin © (2004-09-15 00:10) [1]Думай федя думай. Задачи для того и дадены.
← →
Саня (2004-09-15 00:20) [2]>Palladin © (15.09.04 00:10) [1]
Думай федя думай. Задачи для того и дадены.
Я не прошу исходник. Подскажите чем лучше воспользоваться - циклом, массивом иль еще чем?
← →
jack128 © (2004-09-15 00:24) [3]Саня (15.09.04 0:20) [2]
циклом. Если строку считать массивом сиволов, то и массивом..
← →
Megabyte © (2004-09-15 00:24) [4]Епта. Массив, конечно. :)
← →
Саня (2004-09-15 00:24) [5]Спасибо.
← →
wl (2004-09-15 08:58) [6]совершенно непонятно, причём тут натуральное число, если ввести можно хоть матерное слово.
похоже это какая-то контрольная задача и работать придётся именно с числом, то есть брать остатки от деления и умножать их на 10...
← →
pavel_pavel © (2004-09-15 09:08) [7]А я за рекурсию :) - в инсте похожую задачу с помощью нее решали. там надо было строку наоборот записать
← →
Ega23 © (2004-09-15 09:16) [8]Конечно рекурсия. И никаких строк, всё только числами. Со строками - читерство!
Кстати, а результат функции, когда на входе 1000 какой?
← →
Dum (2004-09-15 09:43) [9]Edit1.SelStart=0 и пиши себе в обратном порядке
← →
Dum (2004-09-15 09:45) [10]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Edit1.SelStart:=0
end;
← →
Defunct © (2004-09-15 09:47) [11]Саня (15.09.04 00:02)
см [6]. mod/div надо юзать и никаких массивов
← →
TUser © (2004-09-15 10:03) [12]См. на второй странице.
Мое инкогнито вчера было раскрыто на 33 посту.
← →
Alx2 © (2004-09-15 10:05) [13]>TUser © (15.09.04 10:03) [12]
Ты свое "инкогнито" и не скрывал :)
← →
Сергей Цвигун (2004-09-15 10:59) [14]Зачем изобретать "велосипед": в 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 и обратно вроде не сложно :-)
← →
Ega23 © (2004-09-15 11:15) [15]Сергей Цвигун (15.09.04 10:59) [14]
Наверняка ему за такое читерство "банан" влемят.
оффтоп: ты в МИФИ не учился?
← →
MegaBass (2004-09-15 11:22) [16]условие задачи читать надо мастера
>>> N (0<=N<=1e9).
пример : 1е7 результат???
так что строки тут не ройдут
?)
← →
Думкин © (2004-09-15 11:35) [17]> [16] MegaBass (15.09.04 11:22)
> условие задачи читать надо мастера
> так что строки тут не ройдут
Можно подробнее? И расшифруйте тогда, что значит записать в обратном порядке число?
← →
wl (2004-09-15 11:53) [18]может поможет? 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.039 c
