С для профессиональных программистов



         

Прикладная часть TSR-программы - часть 8


a = pop();

b = pop();

answer = b-a;

push(b-a);

break;

case '- ':

a = pop();

b = pop();

answer = b*a;

push(b*a);

break;

case '/ ':

a = pop();

b = pop();

if(a==0)

window_puts(0, "divide by 0\n");

break;

answer = b/a;

push(b/a);

break;

default:

push(atoi(in));

continue;

itoa(answer, out, 10);

window_puts(0, out);

   while(*in);

deactivate(0);

/* Поместить число в стек.

Возвратить 1 при успешном завершении; и 0, если стек переполнен

*/

push(i)

int i;

if(p>bos) return 0;

*p = i;

p++;

return 1;

/* Извлечь верхний элемент стека Возвратить 0, если стек пуст.

*/

pop()

p--;

if(p<tos)

p++;

return 0;

return *p;

Вы можете сразу вводить эту программу в ЭВМ. Для того, чтобы установить прикладную часть, запустите ее на выполнение. Для вызова калькулятора нажмите клавишу PT SCR.




Содержание  Назад  Вперед