Программирование модуля

[Casio007001]

Задание:
1. Из каждой разработанной ранее программы, сформировать модуль.
2. Подключить модули к основной программе. Основная программа должна содержатся в отдельном файле.
3. Используя оператор выбора Case, сформировать меню для каждого модуля.

Замечание: Должно быть 3 модуля, и 4-ая программа основная.

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

Первая:

Program cilindr;
const pi=3.14;
var S,R,V,h:real;
begin
writeln('Vvedite radius');
readln(R);
writeln('Vvedite visoty');
readln(h);
S:=2*pi*R*(h+R);
V:=pi*sqr(R)*h;
writeln('Plowad=',S:3:2);
writeln('OBbEM=',V:3:2);
readln;
end.

Вторая:

Program treygolnik;
var a,b,c:real;
begin
writeln('Vvedite a,b,c');
read(a,b,c);
if (a<0) or (b<o) or (c<0) then writeln('Error')
     else if (b+a>c) and (a+c>b) and (b+c>a) then writeln ('Sywestvyet')
 else writeln('Ne sywestvyet');
readln;
end.

Третья.1:

Program lab_6;
const a=3.72;
xn=1;
xk=3;
h=0.2;
var 
t,x:real;
i,n:byte;
begin
n:=round((xk-xn)/h);
x:=xn;
for i:=0 to n do begin 
t:=(a+sqrt(a*x))/sqrt(a)+ln(a*x);
writeln('x=',x:6:3,' ','t=',t:8:5);
x:=x+h;
end;
end.

Третья.2:

program isaev; uses crt; var
n,i,j,minus:integer;
x,y,a,ches:real;
begin
clrscr;
writeln('vvedite kolichestvo slagaemih');
readln(n);
writeln;
writeln('vvedite x');
readln(x);
Writeln;
minus:=l;
ches:=l;
y:=0;
for i:= 0 to n-1 do begin
for j:= 1 to 2*i+1 do begin
ches:=ches*x; end;
if i mod 2<>0 then minus:=-1;
a:=(ches*minus)/(2*i+1);
y:=y+(ches*minus)/(2*i+1);
minus:=l;
ches:=l;
writeln('a/p=',a:10:4,'   summa= ',y:4:4);
writeln;
end; writeln; end.

[Casio007001]

Требуется очень срочно! Кто в силах помочь, прошу вас...

[Mad_Cat]

Клибательно

)
а кодом никак свои лабы выложить нельзя было?

[Casio007001]

конечно, сейчас исправлю.

[Casio007001]

Вы в силах реализовать это задание? Я был бы очень благодарен.

[Mad_Cat]

Вы в силах реализовать это задание?

Да
<--Контакты там
Обращайтесь! Договоримся!