люд как написать эту задачу с помощью модуля в турбо паскаль

ye;yj yfqnb vfrcbvfkmyjt bp 4 xbctk

Необходимо найти наибольшее посреди 4 чисел?

5

а да

Мне кажется что не стоило

Что он пишет

пишет неведомый индефикатор max

если я его в процедуре запишу непрерывно в итоге выдает 0

Эта процедура не имеет смысла для модуля, поэтому что она работает с внешней переменной max, которая в модуле не будет видна и не позволит его откомпилировать.

1. Пишем модуль с функцией f и помещаем его в файл с именованием MyMax.pas

unit MyMax;
interface
  function f(a,b:integer):integer;
implementation
  function f(a,b:integer):integer;
  begin
    if agt;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.