Модули

@Наташок · Регистрация: 05.10.2010

Помогите!!Не врубаюсь в тему модули!Надо решить...

Разработать модуль, реализующий функции калькулятора.Предусмотреть возможность выполнения операций +,-,*,/.Запись операндов осуществляется в польской форме(один операнд,второй операнд,а затем знак операции)

@Наташок · 07.10.2010, 20:23 **[ТС]**

Вот решила, проверьте так:?

Pascal

UNIT My;
 
INTERFACE
PROCEDURE kalk;
 
IMPLEMENTATION
 
 
PROCEDURE kalk;
var a,b,rez,k: Real;
Oper:Char;
BEGIN
Writeln('Enter number 1');
ReadLn (a);
 
 
Writeln('Enter number 2');
ReadLn (b);
Writeln('(+,/,*,-)');
ReadLn (oper);
case oper of
'+' : rez:=a+b;
'-' : rez:=a-b;
'*' : rez:=a*b;
'/' : rez:=a/b;
else WriteLn('I dont now')
end;
WriteLn('Chislo = ',rez );
end;
END.
pROGRAM GFRG;
 
uses my;
begin
kalk;
end.

@Наташок 0 / 0 / 1 Регистрация: 05.10.2010 Сообщений: 32
		1
	Модули 06.10.2010, 13:04. Просмотров 1483. Ответов 1 Метки нет (Все метки) Помогите!!Не врубаюсь в тему модули!Надо решить... Разработать модуль, реализующий функции калькулятора.Предусмотреть возможность выполнения операций +,-,*,/.Запись операндов осуществляется в польской форме(один операнд,второй операнд,а затем знак операции) 0

Опции темы

Модули

Решение