Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
1

как сформировать число?

07.10.2011, 21:50. Просмотров 596. Ответов 12
Метки нет (Все метки)

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

Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число
Задача 1)Дано натуральных число n. Приписать по единице в начало и конец...

Дано натуральных число n. Приписать по единице в начало и конец записи числа n. Сформировать и напечатать полученное число
Дано натуральных число n. Приписать по единице в начало и конец записи числа n....

Дано целое число. Сформировать новое число...
Дано целое число. Сформировать новое число, нечетные (по порядку) разряды...

сформировать число Р
вводится n цифр. сформировать число Р, считая первый элемент последовательности...

Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать число, состоящее из этих цифр, начиная с разряда единиц.
Дано целое число N — количество цифр и задана каждая из этих цифр. Сформировать...

12
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 22:02 2
решала задачу с div и mod.
ещё бы знать задачу которую вы решали.
0
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
07.10.2011, 22:04  [ТС] 3
дано число. получить максимально возможное число
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 22:05 4
Получить из числа максимально возможное
0
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
07.10.2011, 22:13  [ТС] 5
но в том решении число не сформировано. да?
0
Stic
0 / 0 / 0
Регистрация: 07.10.2011
Сообщений: 5
07.10.2011, 22:24 6
Цитата Сообщение от yuli Посмотреть сообщение
но в том решении число не сформировано. да?
а в чём сложность формирования?
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 22:28 7
объявите переменную l:integer;
инициализируйте ( l:=0; ) до цикла for
и строку где выводится циферка замените на if k=i then l:=l*10+k;
ну и выведите число l
0
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
07.10.2011, 22:38  [ТС] 8
а как решить эту задачу с помощью repeat until и без while, for? помогите пожалуйста.
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 22:40 9
заменить циклы и готово.Покажите как решали.
0
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
07.10.2011, 22:49  [ТС] 10
program ljh;
var n,m,k,i:longint;
begin
readln(n);
for i:=9 down to 0 do
begin
m:=n;
while m>0 do
begin
k:=m mod 10;
if k=i then
write (k);
m:=m div 10;
end;end;
readln
end.
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 23:35 11
видите ли я не просил решение Puporev'a так как я и там мог его посмотреть,я спрашивал как вы решали.Ведь вопрос был задан конкретно
решала задачу с div и mod. как сформировать в конце снова это число?
.Вот только спрашивается зачем вопрос если у вас решения то даже нет?
0
yuli
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 17
07.10.2011, 23:47  [ТС] 12
ну во-первых, это решение не Puporev'a. а то что у него похоже так это очень даже и логично:условие одинаковое. а во-вторых, если бы у меня не было бы решения я бы не задала вопрос!
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
07.10.2011, 23:52 13
а ну да вы прям так как и он переменные описали даже в такой же последовательности (ХаХ) и с циклами for и while сделали? (у вас с ним телепатическая связь?)
Заливать вы будете учителю который вам оценку будет ставить.
Да и странно а что же вы формирование числа не прилепили в код ведь я вам написал как сделать?
Вот по коду Puporev'a:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var n,m,k,i,l:longint;
begin
clrscr;
repeat
 write('Ââåäèòå Г*Г*ГІГіГ°Г*ëüГ*îå ÷èñëî äî 2 147 483 647: ');
 readln(n);
until(n>0)and(n<2147483647);
i:=9;
l:=0;
 repeat
  m:=n;{Г§Г*ïîìèГ*Г*ГҐГ¬ ÷èñëî}
   repeat
    k:=m mod 10;{ГЁГ№ГҐГ¬ öèôðó 9.8.7...0}
    if k=i then l:=l*10+k;
    m:=m div 10;{ñîêðГ*Г№Г*ГҐГ¬ ÷èñëî Г*Г* 10 ГЁ ïîâòîðÿåì ïîêГ* Г*ГҐ ïðîâåðèì ГўГ±ГҐ öèôðû}
   until m=0;
  dec(i);
 until i<0;
 writeln(l);
readln
end.
0
07.10.2011, 23:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.10.2011, 23:52

Сформировать пятизначное случайное число с различными цифрами
Сформировать пятизначное случайное число с различными цифрами, вывести его на...

Дано натуральное число. Сформировать массив чисел делящихся на 5
Дано натуральное число. Сформировать массив чисел делящихся на 5

Сформировать и вывести множество чисел, делящихся на заданное число
Не получается задача По введенному множеству натуральных чисел заданного...


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

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

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