Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 16.11.2010, 17:44   #1 (permalink)
Wardler
Новичок
 
Регистрация: 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.
Wardler вне форума   Ответить с цитированием

Старый 16.11.2010, 17:44
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Посоветую вам прочитать эти темы, они схожи с вашей

"Никитин" пообещал новые иски против пользователей "ВКонтакте"
"Реализация окна с эффектом тоннеля" - вопросы
Пропали кнопки "Вперёд", "Назад" и "Вверх"
Видеокамера SONY записывала в формате в "mpg", а теперь стала в "m2ts". Почему?
После ошибки "reboot and select proper boot device" "умер" HDD, что делать?
Можно ли на "Gigabyte U60" установить "Windows XP Tablet PC Edition"?

Старый 16.11.2010, 19:41   #2 (permalink)
Wardler
Новичок
 
Регистрация: 27.09.2010
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот что должно получиться при запуске:
Миниатюры
ieia.png  
Wardler вне форума   Ответить с цитированием
Старый 17.11.2010, 20:12   #3 (permalink)
Wardler
Новичок
 
Регистрация: 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.

свой набросок уже скидывал..
Wardler вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 20:20.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.