Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.09.2016 09:32
- Информатика
- remove_red_eye 9435
- thumb_up 16
Ответы и объяснения 1
1. Пишем модуль с функцией f и помещаем его в файл с именем MyMax.pas
unit MyMax;
interface
function f(a,b:integer):integer;
implementation
function f(a,b:integer):integer;
begin
if a>b then f:=a else f:=b
end;
begin
end.
2. В меню Turbo Pascal (Compile) обеспечиваем установку Distination Disk
3. Компилируем модуль (Compile - Compile) и получаем файл MyMax.tpu
Он будет записан в директорию, путь к которой указан в опции меню Options - Directories... для TPU-файлов. Убеждаемся, что такой файл там появился.
4. В меню Turbo Pascal (Compile) возвращаем установку Distination Memory
5. Окно с MyMax.pas закрываем, больше оно нам не нужно, теперь у нас есть объектный модуль tpu.
6. Создаем новый файл для вызова нашего модуля (обращаю внимание на появление в uses требования подключить наш модуль).
uses Crt, MyMax;
var
a,b,c,d,e,max:integer;
begin
ClrScr;
Read (a,b,c,d,e);
max:=f(a,b);
max:=f(max,c);
max:=f(max,d);
max:=f(max,e);
Writeln('max=',max);
ReadKey
end.
7. Запускаем на выполнение и убеждаемся, что все работает.
8. Замечание. Можно было написать и более коротко:
uses Crt,MyMax;
var
a,b,c,d,e:integer;
begin
ClrScr;
Read (a,b,c,d,e);
Writeln('max=',f(f(f(f(a,b),c),d),e));
ReadKey
end.
- 03.09.2016 02:30
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.