16.11.2010, 17:44 | #1 (permalink) |
Новичок
Регистрация: 27.09.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программка "Окна"
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. |
16.11.2010, 17:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посоветую вам прочитать эти темы, они схожи с вашей "Никитин" пообещал новые иски против пользователей "ВКонтакте" "Реализация окна с эффектом тоннеля" - вопросы Пропали кнопки "Вперёд", "Назад" и "Вверх" Видеокамера SONY записывала в формате в "mpg", а теперь стала в "m2ts". Почему? После ошибки "reboot and select proper boot device" "умер" HDD, что делать? Можно ли на "Gigabyte U60" установить "Windows XP Tablet PC Edition"? |
17.11.2010, 20:12 | #3 (permalink) |
Новичок
Регистрация: 27.09.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите написать подпрограмму, чтобы модуль открыть..
я не знаю как сделать чтобы все окна сразу отображались.. 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. свой набросок уже скидывал.. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|