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

Получить новое число, которое образуется путем исключения средней цифры исходного числа

04.12.2015, 06:47. Просмотров 422. Ответов 3

Здравствуйте, помогите написать программу на Delphi и с формой.
Задание:
Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется путем исключения средней цифры исходного числа. Если количество цифр не 5, то М= N. Пример. N = 12345, М = 1245.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2015, 06:47
Ответы с готовыми решениями:

Получить новое число М, которое образуется из числа N путем замены последней цифры на значение наименьшей цифры
Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены...

Получить новое число M, которое образуется путем исключения средней цифры исходного числа
Весь код с функцией getch() пожалуйста

Получить новое число, которое образуется путем исключения средней цифры исходного числа
Дано натуральное число N. Если число содержит 5 цифр, то получить новое число М, которое образуется...

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

__________________
3
662 / 554 / 240
Регистрация: 26.11.2012
Сообщений: 2,182
04.12.2015, 07:00 2
Delphi
1
2
3
4
5
6
if N>9999 then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;
0
498 / 354 / 231
Регистрация: 29.03.2015
Сообщений: 675
04.12.2015, 07:03 3
Прилагаю проект на Delphi.
1
Вложения
Тип файла: zip Nature.zip (199.7 Кб, 3 просмотров)
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
04.12.2015, 12:25 4
Цитата Сообщение от ZfoxAK Посмотреть сообщение
if N>9999
тут не учитывается 6-значные цифры, лучше так:
Delphi
1
if Length(IntToStr(N)) = 5 then M := StrToInt(Copy(IntToStr(N),1,2)+Copy(IntToStr(N),4,2)) else M := N;
Добавлено через 2 минуты
или так тогда уж:
Delphi
1
2
3
4
5
6
if ( (N>9999) and (N<100000) ) then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;
Добавлено через 47 секунд
или так:
Delphi
1
2
3
4
5
6
if Length(IntToStr(N)) = 5 then
begin
S:=IntToStr(N);
Delete(S,3,1);
M:=StrToInt(S);
end else M:=N;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2015, 12:25

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Получить новое число M, которое образуется из числа N путем замены последней цифры
Дано натуральное число N. Получить новое число M, которое образуется из числа N путем замены...

Получить число М, которое образуется из числа N путем замены последней цифры на значение наибольшей цифры
Помогите составить программу, пожалуйста! Вот условие: Дано натуральное число N. Получить новое...

Получить новое число M путем перестановки первой и последней цифры исходного числа
Дано натуральное число N. Если число содержит 3 цифры, то получить новое число M, которое...

Дано натуральное число N. Получить новое число М, которое образуется из числа N
Дано натуральное число N. Получить новое число М, которое образуется из числа N путем замены...


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

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

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