Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
eva-2030
0 / 0 / 0
Регистрация: 21.01.2011
Сообщений: 8
1

Удвоение первого числа

21.01.2011, 20:07. Просмотров 418. Ответов 4
Метки нет (Все метки)

Добрый день. Помогите пожалуйста решить задачку.
Удвоить первую цифру числа. Пример 49->89; 89->169.
Текст программы примерно такой:
procedure TForm1.Button1Click(Sender: TObject);
Var
a,n,d,r:integer;
k,l:string;
begin
a:=Strtoint(Edit1.text);
k:=IntToStr(a);
n:=length(k); //кол-во цифр в числе
l:=Copy(k,1,1);
d:=Strtoint(l)*2; //удвоение первого числа

Теперь не могу сообразить как извлечь оставшиеся цифры из числа?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2011, 20:07
Ответы с готовыми решениями:

Найти минимальное из первого и второго числа или максимальное из третьего числа
Используя 2 зависимых переключателя, решить: Зависимости от выбора, найти...

Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа
Добрый день. Помогите решить задачу. Дан целочисленный массив размера N....

Нужно посчитать сумму чисел, в промежутке от первого отрицательного числа до второго отрицательного числа
Я сделал вроде как, но ответ неправильный. Где то написал неправильно. ...

Строка: удвоение всех чисел в строке
type tekst=file of char; var f:tekst; procedure Double(var t:tekst);...

Определить в массиве номер первого отрицательного числа
Здравствуйте. Подскажите, пожалуйста, как решить следующую задачу: Определите...

4
reversj
0 / 0 / 0
Регистрация: 18.01.2011
Сообщений: 2
21.01.2011, 20:17 2
Обязательно ли их находить можно вывести результат сразу
0
eva-2030
0 / 0 / 0
Регистрация: 21.01.2011
Сообщений: 8
21.01.2011, 20:20  [ТС] 3
И как это сделать?
0
reversj
0 / 0 / 0
Регистрация: 18.01.2011
Сообщений: 2
21.01.2011, 20:21 4
edit1.text:=inttostr(d)+copy(k,2,n-1);
0
eva-2030
0 / 0 / 0
Регистрация: 21.01.2011
Сообщений: 8
21.01.2011, 20:24  [ТС] 5
Спасибо огромное!!!
0
21.01.2011, 20:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2011, 20:24

Заполнить StringGrid датами с первого числа по конец месяца
Доброго времени суток! помогите со следующей задачей.... нужно заполнить...

Найти номер первого из столбцов матрицы, содержащих нечётные числа
Дана целочисленная матрица размер MxN. Найти номер первого их её столбцов,...

Из первого Memo во второй перенести все числа и увеличить их в 2 раза
Здравствуйте. У нас есть два Memo. Нужно из первого во второй перенести все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru