Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2010, 16:02   #1
Наташок
Пользователь
 
Регистрация: 06.10.2010
Сообщений: 17
По умолчанию Модули

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

Разработать модуль, реализующий функции калькулятора.Предусмотреть возможность выполнения операций +,-,*,/.Запись операндов осуществляется в польской форме(один операнд,второй операнд,а затем знак операции) На языке Паскаль!
Наташок вне форума Ответить с цитированием
Старый 06.10.2010, 16:26   #2
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

Код:
UNIT My;

INTERFACE
PROCEDURE kalk;

IMPLEMENTATION
uses crt;

PROCEDURE kalk;
var a,b,rez,k: Real;
		Oper:Char;
BEGIN
Writeln('Enter number 1');
	ReadLn (a);
	Writeln('(+,/,*,-)');
	ReadLn (oper);
	Writeln('Enter number 2');
	ReadLn (b);
	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.

uses crt,my;
    begin
    kalk;
    end.
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
модули Юляшко Паскаль, Turbo Pascal, PascalABC.NET 0 01.05.2010 20:41
модули Юляшко Паскаль, Turbo Pascal, PascalABC.NET 4 27.04.2010 21:11
Модули voron.kz Общие вопросы Delphi 4 20.02.2010 14:31
модули felmor Паскаль, Turbo Pascal, PascalABC.NET 2 18.05.2009 01:17
Модули Claster Помощь студентам 1 16.10.2008 20:26