помогите написать подпрограмму, чтобы модуль открыть..
я не знаю как сделать чтобы все окна сразу отображались..
Unit ocna;
Interface
Uses Crt,dos;
Procedure Window1(x1,y1,x2,y2:Integer);
Procedure Window2(x1,y1,x2,y2:Integer );
Procedure Window3(x1,y1,x2,y2:Integer );
Implementation
Procedure Window1;
var
x:byte;
begin;
Window(x1,y1,x2,y2);
TextBackground(White);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('vvod dannyh');
End;
Procedure Window2;
var
x:byte;
begin
Window(x1,y1,x2,y2);
TextBackground(Yellow);TextColor(Blue);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
Write('Vychisleniy');
End;
Procedure Window3;
var
x:byte;
begin
Window(x1,y1,x2,y2);
TextBackground(Cyan);TextColor(Black);
ClrScr;
x := (X2-x1) Div 2 - 5;
GoToXY(x,1);
WriteLn('Meny');
WriteLn;
WriteLn('Vvesty <F1>');
WriteLn('Zapisaty <F2>');
WriteLn('Zagruzity <F3>');
WriteLn('Clear <F4>');
WriteLn('Acount <F5>');
WriteLn('Vyhod <F9>');
End;
end.
свой набросок уже скидывал..