Вычисление степень число А

[SASFM]

Здравствуйте друзья. Есть такая задачка:

Описать процедуру PowerA234(A, B, C, D), вычисляющую вторую, третью и четвертую степень числа A и возвращающую эти степени соответственно в переменных B, C и D (A — входной, B, C, D — выходные параметры; все параметры являются вещественными). С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.

Написал следующий код:

Program MyProg;
procedure PowerA234(A: real; var B, C, D: real);
begin    
    B:=a*a;
    C:=a*a*a;
    D:=a*a*a*a;
end;

var a2, b2, c2, d2: real;
    i: byte;
begin
  for i:=1 to 5 do
  begin
    read(a2);
    PowerA234(a2,b2,c2,d2);
    write  (b2:0:2,'     ');
    write  (C2:0:2,'     ');
    writeln(D2:0:2);
  end;
end.

Не знаю почему, но мои результаты:

-9.75 -9.39 -3.30 8.32 -6.68

95.06 -926.86 9036.88
88.17 -827.94 7774.32
10.89 -35.94 118.59
69.22 575.93 4791.74
44.62 -298.08 1991.16

отличаются от результаты которых выводить сам Паскаль. (1000 задач по программирование - Proc 2)
Скажите пожалуйста где я допустил ошибку?

[ViktorR]

А что за версия Паскаля?
У меня FPC работает с ваши кодом нормально.
Одно замечание:

write  (b2:0:2,'     ');

Выделенное жирным неверно.
В формате r:m:n
- m - число позиций, которые будет занимать выводимое число: все число с дробной частью, включая точку и возможный знак минуса
- n - число цифр поле запятой.

write  (b2:8:2,'     ');

Так будет правильнее.


Как-то так, ...

[Аватар]

Скажите пожалуйста где я допустил ошибку?

Ну, а взять просто на калькуляторе умножить? И сравнить. Додуматься крайне сложно, почти не вероятно )) Не верь всему, что найдешь в интернете или даже в книжке ))

[SASFM]

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

А что за версия Паскаля?
У меня FPC работает с ваши кодом нормально.

У меня Pascal ABC.NET

Спасибо за:

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

В формате r:m:n
- m - число позиций, которые будет занимать выводимое число: все число с дробной частью, включая точку и возможный знак минуса
- n - число цифр поле запятой.

[SASFM]

Сообщение от Аватар

Ну, а взять просто на калькуляторе умножить? И сравнить. Додуматься крайне сложно, почти не вероятно ))

Даже в голову не пришел ))). Проверил, всё правильно. Спасибо за совет.