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

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

21.01.2011, 20:07. Просмотров 409. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удвоение первого числа (Delphi):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Определить цифры, входящие в запись как первого, так и второго числа
Даны два числа. Определить цифры, входящие в запись как первого, так и второго...

Дан одномерный массив. Найти сумму элементов после первого отрицательного числа
Дан одномерный массив. найти сумму элементов после первого отрицательного числа


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

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

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