Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Uni_programist
1 / 1 / 1
Регистрация: 11.08.2016
Сообщений: 264
Завершенные тесты: 1
1

Дублирование цифры

16.03.2017, 17:29. Просмотров 919. Ответов 8

Здравствуйте!
Хочу реализовать одну интересную задачу. Условие:
Задано натуральное число N. Разрешено с одной из цифр в записи этого числа такую же цифру. Какое максимальное число можно получить?
Пример ввода: 173
Пример вывода: 1773
Как это сделать, мыслей вообще нет. Возможно, циклом for, но дальше как не понятно.
Да, вот подкину программку, которая работает не совсем правильно:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program np3_1;
uses crt;
var a,a1,b,d,x:real;
    c: byte;
    g: real;
    LF,LF1:byte;
begin
  ClrScr;
  LF:=0; LF1:=0;
  writeln ('Введите 1-е значение: ');
  readln (a);
  writeln ('Введите 2-е значение: ');
  readln (a1);
  for c:=3 to 10 do
  writeln ('Введите ',c,'-е значение: ');
  read (x);
  if (LF=0) and (x<0) then begin
                             a:=x; LF:=1;
                           end;
  if (LF1=0) and (x>0) then begin
                              a1:=x; LF1:=1;
                            end;
  if (x<0) and (x>a) then a:=x;
  if (x>0) and (x<a1) then a1:=x;
  g:=a+a1/2;
  writeln ('Среднее арифметическое  элементов составляет: ',g);
  while not keypressed do;
end.
Условие:
1. Найти среднее арифметическое минимального и максимального элементов из 10 введенных.
Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2017, 17:29
Ответы с готовыми решениями:

Сколько n-значных чисел можно составить, используя цифры 5 и 9, в которых три одинаковые цифры не стоят рядом?
Две цифры Сколько n-значных чисел можно составить, используя цифры 5 и 9,...

Найти все положительные четырехзначные числа у которых: все цифры разные, хотя бы две цифры одинаковы
Найти все положительные четырехзначные числа у которых: все цифры разные, хотя...

Определить частоту попадания всех литер-цифр в заданный текст (литер-цифры - это цифры от 0 до 9)
Все это через record. Помогите пожалуйста!

Дано натуральное число N . Вывести на экран цифры, не превышающие заданной цифры а и вычислить их произведение.
Дано натуральное число N . Вывести на экран цифры, не превышающие заданной...

Заменить слова описывающие цифры на сами цифры в строке
Не могу решить зачетную задачу: Дан текст, состоящий из слов чисел и знаков...

8
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3884 / 2865 / 3640
Регистрация: 05.06.2014
Сообщений: 14,095
16.03.2017, 17:34 2
По 2-й задаче:
Среднее арифметическое значение максимального и минимального

 Комментарий модератора 
Uni_programist, в дальнейшем, пожалуйста, соблюдайте правило: "Одна задача - одна тема".
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26149 / 17526 / 6950
Регистрация: 22.10.2011
Сообщений: 30,864
Записей в блоге: 6
16.03.2017, 20:38 3
Цитата Сообщение от Uni_programist Посмотреть сообщение
Разрешено с одной из цифр в записи этого числа такую же цифру.
Что именно разрешено? Продублировать? Тогда задача сводится к нахождению самой левой максимальной цифры в числе, дублировать нужно именно ее.
0
Uni_programist
1 / 1 / 1
Регистрация: 11.08.2016
Сообщений: 264
Завершенные тесты: 1
17.03.2017, 16:25  [ТС] 4
volvo, нужно из числа 173 найти наибольшую цифру (здесь 7) и продублировать её.
0
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
17.03.2017, 17:05 5
Uni_programist, т.е. вводим 10 чисел, дублируем в каждом максимальную цифру и потом ещё выдаём среднее арифметическое максимальных и минимальных цифр для каждого числа. Верно?

Добавлено через 2 минуты

Не по теме:

Если конечно условие под кодом относится к задаче сверху

0
Uni_programist
1 / 1 / 1
Регистрация: 11.08.2016
Сообщений: 264
Завершенные тесты: 1
17.03.2017, 19:45  [ТС] 6
Hitoku, нет это отдельное задание, то есть, было 173 и стало 1773. Надо продублировать 7.
0
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
17.03.2017, 20:00 7
Лучший ответ Сообщение было отмечено Uni_programist как решение

Решение

Ну вот что-то типа того
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
n,i:integer;
s,max:string;
begin
  readln(n);
  str(n,s); max:='0';
  for i:=length(s) downto 1 do
    if s[i]>max then max:=s[i];
  s:=copy(s,1,pos(max,s))+copy(s,pos(max,s),length(s));
  writeln(s);
  readln;
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3913 / 2567 / 2088
Регистрация: 22.11.2013
Сообщений: 7,188
17.03.2017, 21:51 8
Лучший ответ Сообщение было отмечено Uni_programist как решение

Решение

Pascal
1
2
3
4
5
6
7
var n, i, p: Integer; s: String;
begin
  Read(n); Str(n,s);
  p:=1; for i:=2 to Length(s) do if s[p]<s[i] then p:=i;
  Insert(s,p,s[p]);
  WriteLn(s);
end.
Hitoku,
достаточно max: Char;
1
Uni_programist
1 / 1 / 1
Регистрация: 11.08.2016
Сообщений: 264
Завершенные тесты: 1
21.03.2017, 16:31  [ТС] 9
Hitoku, bormant, огромное Вам спасибо! Выручили из положения!
0
21.03.2017, 16:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.03.2017, 16:31

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

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
1. Построить блок-схему и решить задачу, используя цикл с предусловием: Вывести...

Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых...


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

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

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