Решение задачки по палиндромам

@dushesofficial · Регистрация: 14.08.2019

Студворк — интернет-сервис помощи студентам

Кто поможет решить задачу. Вот условие:
Вывести число натуральных чисел-палиндромов от а до b. (а, b не превышают 10000).
На паскале abc

@JuriiMW · 15.08.2019, 07:41

Pascal

1
2
3

begin
  ReadInteger.To(ReadInteger).Where(n->begin var(t,m):=(n,0);repeat m*=10;m+=t mod 10;t:=t div 10;until t=0;Result:=m=n; end).Count.Println;
end.

@dushesofficial · 15.08.2019, 09:45 **[ТС]**

а можно попроще? код вообще непонятный.

@JuriiMW · 15.08.2019, 10:00

Код работает?
Зачем же его ломать?

Если вам нужен был код на Turbo Pascal, так и нужно было тему там поднимать!

@dushesofficial · 15.08.2019, 10:13 **[ТС]**

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

@JuriiMW · 15.08.2019, 10:50

Это код именно для PascalABC.Net именно потому, что он работает!
https://www.cyberforum.ru/post13771686.html

@dushesofficial · 15.08.2019, 17:06 **[ТС]**

Мне ваш код просто в 3 строки с кучей точек и пр. не подошел, вы тут ни при чем, это ваш стиль работы

@Sun Serega · 15.08.2019, 17:57

Сообщение от dushesofficial

это ваш стиль работы

Нет, это стиль кода в PABC.Net.

Вас скорее всего до этого просто учили говнокодить в стиле прошлого века и только по этому вы ничего не понимаете.
На самом деле этот код проще того, чему учили вас. Если что - я могу объяснить всё в подробностях.

@dushesofficial · 15.08.2019, 18:06 **[ТС]**

да, это правда XD. к сожалению, я тот доисторический динозавр) мне просто желателен этот древний код для понимания программы)
п.с. Сергей, если вам конечно не трудно, я бы познал, как же выглядит программирование на паскале абц.нет сейчас

@Sun Serega · 15.08.2019, 19:41

0. Тот код выглядит особо страшно из за того, что его написали в 1 строчку. Вот только компилятор не видит разницы между переносами строк и пробелами, поэтому можно расписать более читабельно:

Pascal

begin
  ReadInteger.To(ReadInteger)
  .Where(n->
  begin
    var(t,m):=(n,0);
    
    repeat
      m *= 10;
      m += t mod 10;
      t := t div 10;
    until t=0;
    
    Result := m=n;
  end)
  .Count
  .Println;
end.

1. Для начала прочитайте эту презентацию:
http://pascalabc.net/downloads... Simple.pdf
Она коротенькая, но объяснит основные понятия, как применения точек и слова var.

2. .To генерирует последовательность, они объясняются тут:
http://pascalabc.net/downloads... uences.pdf

3. А знак -> (означающий объявление лямбды) - тут:
http://pascalabc.net/downloads... ambdas.pdf

Что ещё будет не понятно - спрашивайте, не стесняйтесь, объясню уже своими силами (то есть без ссылок на презентации от разработчиков).

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
		1
	Решение задачки по палиндромам 14.08.2019, 19:40. Показов 723. Ответов 9 Метки задача, палиндром (Все метки) Кто поможет решить задачу. Вот условие: Вывести число натуральных чисел-палиндромов от а до b. (а, b не превышают 10000). На паскале abc 0

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
	15.08.2019, 09:45 [ТС]	3
	а можно попроще? код вообще непонятный. 0

@JuriiMW 5065 / 2637 / 2348 Регистрация: 10.12.2014 Сообщений: 10,003
	15.08.2019, 10:00	4
	Код работает? Зачем же его ломать? Если вам нужен был код на Turbo Pascal, так и нужно было тему там поднимать! 0

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
	15.08.2019, 10:13 [ТС]	5
	мне нужен код на паскаль абц.нет. вы написали какую то ересь (проверил, работает, извините, но для меня нужен другой код, более простой.) 0

@JuriiMW 5065 / 2637 / 2348 Регистрация: 10.12.2014 Сообщений: 10,003
	15.08.2019, 10:50	6
	Это код именно для PascalABC.Net именно потому, что он работает! https://www.cyberforum.ru/post13771686.html 0

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
	15.08.2019, 17:06 [ТС]	7
	Мне ваш код просто в 3 строки с кучей точек и пр. не подошел, вы тут ни при чем, это ваш стиль работы 0

@Sun Serega 2213 / 1336 / 503 Регистрация: 07.04.2017 Сообщений: 4,611
	15.08.2019, 17:57	8
	Сообщение от dushesofficial это ваш стиль работы Нет, это стиль кода в PABC.Net. Вас скорее всего до этого просто учили говнокодить в стиле прошлого века и только по этому вы ничего не понимаете. На самом деле этот код проще того, чему учили вас. Если что - я могу объяснить всё в подробностях. 0

@dushesofficial -6 / 0 / 0 Регистрация: 14.08.2019 Сообщений: 12
	15.08.2019, 18:06 [ТС]	9
	да, это правда XD. к сожалению, я тот доисторический динозавр) мне просто желателен этот древний код для понимания программы) п.с. Сергей, если вам конечно не трудно, я бы познал, как же выглядит программирование на паскале абц.нет сейчас 0

Опции темы