Инженерный калькулятор

[MyNameIts..]

Пасиб, это уже хоть чтото, коечто проясняется, но действий маловато для инженерного

[ex.cluz]

А вам что, как обычно, "вчера надо было сдать" ?
Нет? Тогда есть всезнающие поисковики и голова на плечах. Творите!

[MyNameIts..]

нет, мне 2,5 недели до сдачи этой курсовой

[kogemrka]

Ну а чего не хватает до того, чтобы перевести код "инженерного калькулятора" с бэйсика или дельфи на паскаль? Или чтобы взять арифметический калькулятор, который вам преложили выше и дописать до инженерного?

Кстати, а что вообще нужно от инженерного калькулятора?

[vedro-compota]

видимо, чтобы раскрывал скобки.....так сказать их расстановку анализировал
-------------------------------------------------------
сюда смотри - http://programmersforum.ru/showthrea...t=97015&page=3
там Серж решение предлагает своё ну и моё недоделанное

[MyNameIts..]

Так я делаю из предоставленых мне калькуляторов, ток подскажите, как сделать так, после того как он высчитает результат он не просто выдавал его, а можно было с этим результатом проводить дальнейшие расчеты, и не могу справится со скобками...

[MyNameIts..]

У меня вообще получается франкенштейн, сделаный из разных програм))гг

[MyNameIts..]

Program Calculator;
Uses crt;
Label j;
Var x,y,u:real;
k,l:char;
i:integer;
const q=pi;

Procedure wind(x1,y1,x2,y2,col_fon:byte);
begin
window(x1,y1,x2,y2);
textbackground(col_fon);
clrscr;
textcolor(15);
end;

Procedure Z;
begin
writeln;
writeln(' „Для продолжения нажмите " Enter "');
wind(13,20,46,22,4);
writeln;
end;

Function Factorial(n:integer):integer;
begin
if n=1 then Factorial:=1
else Factorial:=n*Factorial(n-1);
end;

Procedure Output(rezult:real);
begin
Z;
writeln(' ',rezult:8:2);
end;

Procedure Ro;
begin
write(' ‚Введите X : ');
readln(x);
write(' ‚Введите Y : ');
readln(y);
end;


Procedure Menu;
begin
wind(1,1,80,25,0);
wind(2,2,79,2,1);
write(' Инженерный калькулятор "');
wind(2,24,46,24,5);
write(' „Для выхода нажмите X"');
wind(48,4,79,24,15);
wind(49,5,78,5,0);
write(' М Е Н Ю');
wind(49,7,78,18,5);
writeln;
writeln(' „Действия:');
writeln;
writeln(' + - Сложение (x+y)');
writeln(' - - вычитание (x-y)');
writeln(' * - умножение (x*y)');
writeln(' / - деление (x/y)');
writeln(' K - корень квадратный');
writeln(' C - квадрат(x^2)');
writeln(' P - степень (x^y)');
writeln(' F - факториал*(x!)');
writeln(' C - косинус (Cos X)');
writeln(' S - синус (Sin X)');
writeln(' T - тангенс (Tg X)');
writeln(' O - котангенс (Ctg X)');
wind(49,20,78,22,5);
writeln;
wind(1,20,12,22,0);
writeln;
writeln(' РЕЗУЛЬТАТ:');
end;

Begin
repeat
Menu;
wind(2,4,46,18,2);
writeln;
write(' Введите действие : ');
readln(k);
until (k='x') or (k='X') or (k='з') or (k='—') then goto j;
case of k
'+':begin Ro; Output(x+y); end;
'-':begin Ro; Output(x-y); end;
'*':begin Ro; Output(x*y); end;
'/':begin Ro; if y=0 then begin
Z; writeln('Ошибка на нуль делить нельзя ');
end else Output(x/y); end;
'p':begin Ro; Output(exp(y*ln(x))); end;
'c':begin write(' ‚Введите X : '); readln(x); Output(sqr(x)); end;
'k':begin write(' ‚Введите X : '); readln(x); Output(sqrt(x)); end;
'f':begin write(' ‚Введите X : '); readln(i); Output(Factorial(i));




'c':begin Trg; Output(cos(x)) end;
's':begin Trg; Output(sin(x)) end;
't':begin Trg; if cos(x)=0 then begin
Z; writeln(' Тангенс не существует ’** !!!'); end else

Output(sin(x)/cos(x)); end;
'o':begin Trg; if sin(x)=0 then begin
Z; writeln(' Котангенс не существует!!!'); end else
Output(cos(x)/sin(x)); end;
else begin Z; writeln(' Неверно заданые данные'); end;

end;
k:=readkey;
j;until (k='x') or (k='X') or (k='з') or (k='—')
end;


End.
Скомпилируйте пожалуйста этот исходный код, в нем есть ошибка, непойму с чем она связана