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

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

16.03.2017, 17:29. Просмотров 288. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дублирование цифры (Free Pascal):

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

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

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

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

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

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

8
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
16.03.2017, 17:34 #2
По 2-й задаче:
http://www.cyberforum.ru/pascalabc/thread1180196.html

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

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

Не по теме:

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

0
Uni_programist
1 / 1 / 1
Регистрация: 11.08.2016
Сообщений: 202
Завершенные тесты: 1
17.03.2017, 19:45  [ТС] #6
Hitoku, нет это отдельное задание, то есть, было 173 и стало 1773. Надо продублировать 7.
0
Hitoku
Модератор
1694 / 1293 / 1398
Регистрация: 28.10.2016
Сообщений: 4,235
Завершенные тесты: 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
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
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
Сообщений: 202
Завершенные тесты: 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