Программка "Окна"
Помогите разобраться с ошибками в написании программы.. - не запускается..
Program ocna11; uses ocna,crt,dos; const x11=3;y11=2;x12=58;y12=12; x21=3;y21=15;x22=58;y22=23; x31=62;y31=2;x32=76;y32=12; var ch:Char; begin Window1(x11,y11,x12,y12); Window2(x21,y21,x22,y22); Window3(x31,y31,x32,y32); ch:= ReadKey; TextMode(Co80); End. ------------------------------------------------------------ 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. |
Вложений: 1
Вот что должно получиться при запуске:
|
помогите написать подпрограмму, чтобы модуль открыть..
я не знаю как сделать чтобы все окна сразу отображались.. 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. свой набросок уже скидывал.. |
Часовой пояс GMT +4, время: 06:41. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.