Самый простой калькулятор Опции

[Salamander]

Я только что начал изучать паскаль. И вот столкнулся с такой проблемой: написал простенький калькулятор, но он почему-то результат выводит в 16-тиричной системе. Вот собственно программа:

program DemoCalc;
var
X, Y, Rezult : real;
Ope, Ans : char;
begin
repeat
      write('X = ');
      Readln(X);
      write('Y = ');
      Readln(Y);
      Writeln('Операция (+,-,/,*) >');
      Readln(Ope);
      case Ope of
      '+' : Rezult := X+Y;
      '-' : Rezult := X-Y;
      '*' : Rezult := X*Y;
      '/' : Rezult := X/Y;
      else
      writeln('Error nah...');
end;
Writeln(X, Ope, Y, '=' , Rezult);
Writeln('Продолжить Y\N');
Readln(Ans);
Until (Ans='N') or (Ans='n');
end.

прикрепил для Вас файл программы, можете испытать)

Сообщение отредактировано: Salamander - 27.10.2007 0:50

[Sozialist]

Человек увидел в числе символ "E" и утверждает, что это 16-ая система Перевел бы в 16-ую, посмотрел бы.

Это экспоненциальная запись действительного числа. Замени соотв. строку, например, на Writeln(X:0:2, Ope, Y:0:2, '=' , Rezult:0:2); где, 2 параметр - кол-во цифр после запятой. Это есть форматирование числа.

Сообщение отредактировано: Sozialist - 27.10.2007 11:33