Округление чисел

@NWO228 · Регистрация: 31.01.2017

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

Добрый день!
Помогите,пожалуйста.Есть программа,нужно максимально подробное описание для неё.То есть какая строчка что делает,зачем она нужна.Заранее спасибо

Pascal

var
  x, x1, x2, x3, x4, x5: Real;
  n, x44: integer;
 
begin
  Writeln('Введите число');
  Readln(x);
  Writeln('Введите количество знаков после запятой');
  Readln(n);
  x1 := Frac(x * exp(ln(10) * n));
  x2 := Int(x1 * 10);
  x3 := Frac(x * exp(ln(10) * (n + 1)));
  x3 := Int(x3 * exp(ln(10) * 10));
  x4 := Frac(x * exp(ln(10) * (n - 1)));
  x4 := Int(x4 * 10);
  x44 := round(x4);
  x5 := Int(x * exp(ln(10) * n));
  x5 := x5 / exp(ln(10) * n);
  if (x2 = 5) and (x3 = 0) and (x44 mod 2 = 0) then 
    Writeln('Округлённое число = ', x5:1:n)
  else
    Writeln('Округлённое число = ', x:1:n);
end.

@Cyborg Drone · 31.01.2017, 13:51

Что за бред? Во-первых, пояснять тут нечего, во-вторых, что мешает то же самое сделать вот так:

Pascal

var x: real;
    n: integer;
begin
  write('x = ');
  readln(x);
  repeat //можно убрать, если проверки не требуется
    write('n = ');
    readln(n);
  until n >= 0; //можно убрать, если проверки не требуется
  writeln('Округлённое число: ', x:0:n)
end.

	31.01.2017, 13:51