Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части....

0 голосов

Дано вещественное число с двумя цифрами в целой части и одной цифрой в дробной части. Получить вещественное число, запись которого являлась бы зеркальным отображением исходного числа (например, 36.2 и 2.63).


спросил от (17 баллов) в категории Информатика
оставил комментарий от

Паскаль?

оставил комментарий от

Да

оставил комментарий от

Принято )

2 Ответы
0 голосов
ответил от БОГ (678k баллов)
 
Лучший ответ

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 $'{ReadReal:00.0}'.Inverse.Println

end.


16.9

9.61

оставил комментарий от БОГ (678k баллов)

Кстати, можно писать и больше знаков в дробной части... и один в целой. Можно вообще любое число писать, все равно округлит до одного знака после запятой и перевернет.

оставил комментарий от БОГ (678k баллов)

Да, действительно кратко и красиво ) Я понемногу осваиваю работу с такими цепочками. Правда так переводить в строку не умел, использовал .ToString

оставил комментарий от БОГ (678k баллов)

Это форматное преобразование, по шаблону.

оставил комментарий от БОГ (678k баллов)

Почитайте в справке по .NET про интерполированные строки

оставил комментарий от БОГ (678k баллов)

Хорошо, я почитаю. Я в общем то по справке сам и разбираюсь, да по примерам решений других людей.

оставил комментарий от БОГ (678k баллов)

Примеров полно в справочной системе и на официальном сайте 7 презентаций...

оставил комментарий от БОГ (678k баллов)

Да, я немного смотрел презентации. Полностью со всем ознакомится у меня думаю вряд ли получится. Возможности просто огромные заложены. Это надо постоянно работать с Паскалем. Я же больше для себя разбираюсь, когда есть время. Если получится здесь помочь кому то решением- и то хорошо )

оставил комментарий от БОГ (678k баллов)

Это каждый должен для себя сам решать - какие языки изучать, в каком объеме и для чего.

0 голосов
ответил от Отличник (5.3k баллов)

var

 x, y, a, b, c: real;

 t: integer;

begin

 read(x);

 t := Round(10 * x);

 a := t div 100;

 b := (t div 10) mod 10;

 c := t mod 10;

 y := c + b / 10 + a / 100;

 Println(y);

end.


Или можно сократить число используемых переменных:

var

 x: real;

 t: integer;

begin

 read(x);

 t := Round(10 * x);

 Println(t mod 10 + (t div 10 mod 10) / 10 + t div 100 / 100);

end.


image
оставил комментарий от БОГ (678k баллов)

Фу ... писать в PascalABC.NET, используя синтаксис Турбо Паскаль (((

оставил комментарий от БОГ (678k баллов)

Ну, я не знаю что там у вопрошающего, поэтому стараюсь попроще ) Да я собственно, не так много знаю нового. Разве что убрал бы область определения переменных наверное.

оставил комментарий от БОГ (678k баллов)

И я не знаю, поэтому если ничего не сказано, пишу покороче))

...