Модули - Страница 2

dimok5 · 07.10.2010, 20:57

Цитата:

Сообщение от Vladimir_S

Ну так и помогли бы Наташок, раз уже занимались аналогичной задачей, тем более недавно!

Ну так как я уже и отписывался у меня нет времени, тем более на модули.
В пятницу если задача будет не решена, то я попытаюсь её решить!!!

Vladimir_S · 07.10.2010, 21:18

Честно говоря, я просто не понимаю, что требуется. Если нужно составить программу для вычисления a + b, то причем тут модули, и как их сюда впихнуть?

Наташок · 07.10.2010, 21:23

эх,вы !!!!!пока вы тут ругались, и сорили кто-кому поможет я уже вроде как решила эту задачу!!!посмотрите, так?
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.

dimok5 · 07.10.2010, 21:27

Хах...конечно правильно)))
только

Цитата:

pROGRAM GFRG;

uses my;
begin
kalk;
end.

является основной программой и записывается отдельно от модуля.

Vladimir_S · 07.10.2010, 22:42

Ну так она и записана отдельно - раз перед ней "END." (с точкой!) стоит.
Единственное, что я бы добавил - это останов после получения результата (оператор ReadLn; без параметров) в модуль или в основную программу.

07.10.2010, 20:57
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот ссылки на темы, которые скорее всего помогут вам в решении проблемы Модули питания S-150-13,5... Схема 2-Гбайт DDR3-модули подешевели до $10-11 Модули Пельтье

07.10.2010, 21:18	#12 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Честно говоря, я просто не понимаю, что требуется. Если нужно составить программу для вычисления a + b, то причем тут модули, и как их сюда впихнуть?

07.10.2010, 21:23	#13 (permalink)
Наташок Member Регистрация: 05.10.2010 Сообщений: 16 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	эх,вы !!!!!пока вы тут ругались, и сорили кто-кому поможет я уже вроде как решила эту задачу!!!посмотрите, так? 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.

07.10.2010, 22:42	#15 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Ну так она и записана отдельно - раз перед ней "END." (с точкой!) стоит. Единственное, что я бы добавил - это останов после получения результата (оператор ReadLn; без параметров) в модуль или в основную программу.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070