Question

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

Answer 1

// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadReal('r=').ToString;
  var i:=Pos('.',s);
  var r:real;
  if i>0 then r:=(s[i+1:]+'.'+s[:i]).ToReal
  else r:=('0.'+s).ToReal;
  Writeln('r= ',r)
end.

Пример
r= 3.14159265
r= 14159265.3

Answer 2

Конечно! Вот пример задачи на языке Pascal, которая решает данную задачу:

pascalCopy code
program SwapDigits;

var
  number: real;
  integerPart, fractionPart: integer;
  swappedNumber: real;

begin
  writeln('Введите положительное вещественное число:');
  readln(number);

  // Разделяем число на целую и дробную части
  integerPart := trunc(number);
  fractionPart := round((number - integerPart) * 100);

  // Меняем местами цифры из целой и дробной частей
  swappedNumber := fractionPart + integerPart / 100;

  writeln('Исходное число:', number:0:2);
  writeln('Число после замены:', swappedNumber:0:2);

  readln;
end.

В этой программе пользователю предлагается ввести положительное вещественное число. Затем число разделяется на целую и дробную части. Цифры из целой и дробной частей меняются местами, а затем полученное число выводится на экран.

Например, если пользователь вводит число 123.45, программа меняет местами цифры и выводит число 45.23.