Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
 
qpiwebb
4 / 1 / 2
Регистрация: 08.06.2015
Сообщений: 21
#1

Линейные программы на Delphi - Delphi

08.06.2015, 08:53. Просмотров 496. Ответов 16
Метки нет (Все метки)

Из трехзначного числа Х вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа Х, то получилось число 458. Найти число Х.
Есть наработка небольшая:
Delphi
1
2
3
4
5
6
7
var chastnoe,cifra,x,y:integer;
begin
y:=strtoint(Edit1.Text);
cifra:=(y div 100);
chastnoe:=(y mod 100);
x:=chastnoe*10+cifra;
Edit2.Text:=inttostr(x);
Только соль в том что некоторые другие числа не работают!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.06.2015, 08:53
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Линейные программы на Delphi (Delphi):

Delphi 7 Линейные программы - Delphi
1. Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения массы молекул кислорода в...

Delphi 7 Линейные программы.Лабораторная работа №2 Ветвления - Delphi
Помогите кто чем может:sorry: Задание 1. Туристы вышли из леса на шоссе неподалеку от километрового столба с отметкой А км и решили...

Линейные программы. - Delphi
Помогите с написанием кода : Написать программу для расчета по двум формулам: z1=cos^2(3п/8-альфа/4)-cos^2(11п/8+aльфа/4) z2=(2^1/2 /...

Линейные программы - Delphi
4. Система из двух параллельных сопротивлений R1 и R2 соединена последовательно с сопротивлением R3. К цепи приложено напряжение V. Найти...

Delphi линейные списки и записи,не могу разобраться - Delphi
Создать запись "Станция" (хранит номер или название). Создать запись "Поезд" (хранит номер поезда, а также хранит указатель на запись...

Линейные списки(перевести вроде с Си++ на Delphi [console application]) - Delphi
Здравствуйте, переведите, пожалуйста, программу с вроде Си ++ на Delphi; Си еще не проходили(((.

16
Puporev
Модератор
52963 / 40774 / 14029
Регистрация: 18.05.2008
Сообщений: 94,815
09.06.2015, 11:56 #16
да уж...
Delphi
1
x:=10*(458-400)+4;
0
Narimanych
244 / 205 / 90
Регистрация: 23.03.2015
Сообщений: 695
09.06.2015, 13:56 #17
Есть число ABC, если из него вычесть С и разделить на 10 - получится AB . Затем к AB приписывается слева C.
Т.Е получаем САВ.
Сл-но легче сделать обратную перестановку строковых переменных CAB и прийти к ABC.
Допустим в Edit введено число ( слово KLM).Изменив позицию К ( перемемтив К в конец) получим искомое число(слово).

Добавлено через 2 минуты
Цитата Сообщение от Narimanych Посмотреть сообщение
перемемтив
Sorry -"перемеcтив"
0
09.06.2015, 13:56
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2015, 13:56
Привет! Вот еще темы с ответами:

линейные программы - Delphi
Найти плоскость кольца с внутренным и наружным радиусами используя формулу S= (R2-R1).

Нуждаюсь в написании программы. Линейные списки - Delphi
Сформировать односвязный список из 7 записей, вывести список, удалить записи, удовлетворяющие некоторому условию, добавить новую запись в...

Есть исходник DLL на Delphi как (и возможно ли) написать похожее на VB.NET и использовать в среде программы написанной на Delphi - Delphi
Суть вопроса вкратце такова - Есть исходник DLL написанной на Delphi Library Extdll; uses SysUtils, Windows; type ...

Программа на Delphi внутри программы на Delphi - Delphi
Добрый вечер. Делаю тренажерный комплекс,состоящий из тестирования и программного тренажера. Все написаны на Delphi. Создал ещё один проект...


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

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

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