|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.05.2007, 20:32 | #1 |
Регистрация: 07.05.2007
Сообщений: 7
|
Помогите с задачкой
Приписать по 1 в начало и в конец за числа N. Например из числа N=456, получить 14561.
|
07.05.2007, 21:19 | #2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
procedure TForm1.Button1Click(Sender: TObject);
var num: integer; begin num := StrToInt('1' + IntToStr(456) + '1'); end;
Не надо ничего усложнять. Все достаточно тривиально.
|
08.05.2007, 05:53 | #3 |
Регистрация: 07.05.2007
Сообщений: 7
|
вводится с клавиатуры не только число 456, а ЛЮБОЕ
|
08.05.2007, 07:17 | #4 |
Форумчанин
Регистрация: 27.12.2006
Сообщений: 955
|
num := StrToInt('1' + IntToStr(Edit1.Text) + '1');
|
08.05.2007, 09:07 | #5 |
python developer
Пользователь Подтвердите свой е-майл
Регистрация: 30.11.2006
Сообщений: 81
|
Скорее всего так:
num := StrToInt('1' + Edit1.Text + '1');
Границы расширяет тот, кто выходит за них.
|
08.05.2007, 11:07 | #6 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Хм... A задaчка на каком языке? А то вдруг Паскаль... И человек сейчас парится, сделать не может, ищет: что такое Edit1 и StrToInt...
|
08.05.2007, 13:51 | #7 |
Форумчанин
Регистрация: 27.12.2006
Сообщений: 955
|
Ну с паскалем, то проще даже, вот -
Код:
А на С++ еще проще: Код:
Последний раз редактировалось merax; 08.05.2007 в 13:56. |
08.05.2007, 20:19 | #8 |
Регистрация: 07.05.2007
Сообщений: 7
|
не, в делфи, а точно прокатит если вот так просто добавить единички, странно
|
08.05.2007, 20:56 | #9 |
Пользователь
Регистрация: 28.01.2007
Сообщений: 27
|
Мы не ищем легких путей !
Код:
ps просто 1-цы добавить не прокатит - задача точно не нахитрость |
08.05.2007, 20:56 | #10 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Да, а что странного? Сначало преобразуем число в строку, потом со строкой всё что угодно делаем, потом обратно в число.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плз с задачкой | Dendy | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.02.2008 22:16 |
Помогите с задачкой по СИ | pliz | Общие вопросы C/C++ | 7 | 10.12.2007 20:08 |
Помогите с задачкой | Saniok | Помощь студентам | 4 | 29.09.2007 20:34 |
помогите с задачкой.. plz | Diller | Помощь студентам | 3 | 28.09.2007 20:03 |
ПОМОГИТЕ С ЗАДАЧКОЙ!!!! | Solny6ko YasnoE | Помощь студентам | 6 | 22.06.2007 09:09 |