IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> подпрограмма, замена данного натурального числа
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Женский
Реальное имя: Света

Репутация: -  0  +


Здравствуйте! У меня вопрос по задачке...
Нужно заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (напр., дано число 156, нужно получит 651).
Я делала через строку, у меня все запускалось, все было правильно.. но сказали переделать другим способом, так как мне даны числа, а не строка...


Program Perevernut;
function perevertysh (p:integer):integer;
var S,a,a1,a2,a3:integer;
begin
write('Vvedite 3-x znachnoe chislo');
readln(a);
a1:=a mod 10;
a:=a div 10;
a2:=a mod 10;
a3:=a div 10;
S:=a1+a2+a3;
writeln();
readln
end.


Я стала решать так.. но дальit до меня не доходит.. я понимаю, что надо сделать так, чтобы первое вставало на место последнего, второе - на место предпоследнего.. но как это сделать - не знаю. Помогите пож-та.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


допустим, у нас число х=351
Т изначально равно 0
T:=T*10+(x mod 10)
или, подставив значения:
T:=0*10+(351 mod 10)
T:=1
Потом x:=x div 10
x:=351 div 10
x:=35
идем на новую итерацию...
Т:=1*10+(35 mod 10)
T:=10+5
T:=15
ну и т.д.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Светлана   подпрограмма   15.12.2006 4:29
volvo   Замечательные числа "Определить, является ли …   15.12.2006 5:11
Светлана   [url=http://forum.pascal.net.ru/index.php?s=…   18.12.2006 20:11
мисс_граффити   Светлана, какой тип результа у функции perevertysh…   18.12.2006 23:02
Светлана   Светлана, какой тип результа у функции perevertys…   19.12.2006 0:51
мисс_граффити   она правильная, просто ты ее не переделала :) Prog…   19.12.2006 0:54
Светлана   она правильная, просто ты ее не переделала :) Pro…   26.12.2006 16:09
Светлана   Аааа, поняла!..... Спасибо Вам огромное!…   19.12.2006 10:13
Светлана   У меня тут такая проблемка... Мне сказали решать с…   23.12.2006 14:02
мисс_граффити   function perevertysh(x:integer):integer; var a:a…   23.12.2006 14:55
Светлана   n:=0; i:=i+1; {а чему у тебя равно i до этой…   24.12.2006 15:01
мисс_граффити   exp(k*ln(10)) где k-степень. Самый простой способ,…   24.12.2006 17:22
Ozzя   с - целого типа, а ты ей пытаешься присвоить значе…   26.12.2006 16:15
мисс_граффити   Ты бы хоть читала... Я же не зря это набирала.   26.12.2006 16:22
Светлана   Ты бы хоть читала... Я же не зря это набирала. …   26.12.2006 18:40
мисс_граффити   round(exp(k*ln(10))) только твоя программа не зна…   26.12.2006 18:40
Светлана   [code=pas]round(exp(k*ln(10))) только твоя прогр…   26.12.2006 18:47
мисс_граффити   допустим, у нас число х=351 Т изначально равно 0 T…   26.12.2006 21:55
Светлана   допустим, у нас число х=351 Т изначально равно 0 …   27.12.2006 20:27


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2021 13:42
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name