Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Самый простой калькулятор

Автор: Salamander 27.10.2007 0:49

Я только что начал изучать паскаль. И вот столкнулся с такой проблемой: написал простенький калькулятор, но он почему-то результат выводит в 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.

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


Прикрепленные файлы
Прикрепленный файл  DEMOCALC.PAS ( 512 байт ) Кол-во скачиваний: 398

Автор: Гость 27.10.2007 1:06

Нету тут 16-тиричной системы...
Просто надо ограничивать число знаков за запятой при выводе на печать.

Автор: Гость 27.10.2007 1:08

Это просто число, с большим кол-вом знаков. Ограничивать как-то вроде

Rezult:какое-то число:какое-то число


Что это за числа - я не помню...

P.S.: Сорри, что в двух постах sad.gif

©m0n573r

Автор: Sozialist 27.10.2007 11:32

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

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

Автор: О_Джей_Симпсон 27.10.2007 18:00

ну так и чего хочешь-то,автор? это раздел "Задачи на заказ".

Автор: Salamander 27.10.2007 19:21

СПС, все вроде понял.
з.ы. "задачи на заказ" значит платно штоли?

Автор: О_Джей_Симпсон 27.10.2007 22:46

Цитата(Salamander @ 27.10.2007 16:21) *

з.ы. "задачи на заказ" значит платно штоли?


да)

Автор: аНДРЮХА paS 17.11.2007 2:39

program DemoCalc;
var
X, Y, A,B,C,D: real;
begin
WRITELN('VVEDITE DVA CHISLA');
READLN(X,Y);
A:=X+Y;
B:=X*Y;
C=X/Y;
D:=X-Y;
WRITELN('SUMMA',A:6:3);
WRITELN;
WRITELN('RAZNICA',D:6:3);
WRITELN;
WRITELN('DELENIE',C:6:3);
WRITELN;
WRITELN('UMNOJENIE',B:6:3);
READLN;
end.
ВОТ И ВСЁ, ВВОДИШЬ ДВА ЧИСЛА И СРАЗУ ПОЛУЧАЕШЬ СУММУ, ДЕЛЕНИЕ, УМНОЖЕНИЕ И ОТНИМАНИЕ, ИЗВИНИ ЕСЛИ ЧТО НЕ ТАК.... ТОЛЬКО ЧТО НАБРАЛ.