IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> как сделать в пунктах подпункты?
INZA
сообщение 30.10.2011 21:36
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской
Реальное имя: Владимир

Репутация: -  0  +


как сделать в пунктах подпункты?
 Program L3;
Uses crt;
Var a1,b1,c1,d1,e1,f1,x :integer;
    a,b,c:boolean;
    pr:char;
    i,Old_Color :byte;
    ch          :char;
Begin
  Old_Color:=Textattr;
  Repeat
    window(1,1,80,25);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(5,1);
    write(' JIa6apaTopHa9I #3');
    window(20,8,60,18);
    textattr:=black shl 4+cyan;
    clrscr;
    gotoxy(11,4);
    write(' 1-zadanie 1');
    gotoxy(11,5);
    write(' 2-zadanie 2');
    gotoxy(11,6);
    write(' 3-o proge');
    gotoxy(11,8);
    write(' Esc-exit  ');
    textcolor(cyan); gotoxy(12,2);write(' Baw BbI6op? ');
    ch:=readkey;
    if ch<>#0 then
     begin
      window(5,3,75,18);
      textattr:=black shl 4+Cyan;
      clrscr;
      case ch of
      #49:Begin
          TextAttr:=Black shl 4+Cyan;
          ClrScr;

          readln(pr);
          if pr='1' then
           begin

          end;
         if pr= '2' then
          begin

          end;

         Readkey;
        End;
      #50:Begin
           TextAttr:=black shl 4+Yellow;

           Readkey;
          End;
      #51:Begin

           Readkey;
          End;
       #27:exit;
      End;
     end;
 until(ch=#27);
 window(1,1,80,25);
 textattr:=Old_Color;
 clrscr;
END.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
INZA   как сделать в пунктах подпункты?   30.10.2011 21:36
Rian   если проще думаю хватит объявить пункты двумерным ...   31.10.2011 14:27
INZA   если проще думаю хватит объявить пункты двумерным...   31.10.2011 17:47
Гость   а case в case фигня получиться ? смотря что нуж...   31.10.2011 17:52
INZA   смотря что нужно... вход в подпункты будет пошаго...   31.10.2011 19:20
Rian   ну тогда readkey записывае в cmd1, cmd2 и во вложе...   31.10.2011 19:27
INZA   ну тогда readkey записывае в cmd1, cmd2 и во влож...   31.10.2011 20:07
IUnknown   Пишется простейшая функция, которая, собственно, о...   31.10.2011 22:59
Rian   (не надо никаких двумерных массивов: в одном подм...   1.11.2011 0:04
INZA   Пишется простейшая функция, которая, собственно, ...   4.11.2011 20:19
INZA   [hide="Меню любой степени вложенности"]...   26.11.2011 17:50
IUnknown   Какой компилятор?   26.11.2011 17:55
INZA   Какой компилятор? Free Pascal   26.11.2011 17:58
IUnknown   Не знаю, у меня, FPC нормально компилирует этот ко...   26.11.2011 18:05
INZA   Не знаю, у меня, FPC нормально компилирует этот к...   26.11.2011 18:14
INZA   Не знаю, у меня, FPC нормально компилирует этот к...   11.12.2011 18:56


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия 20.07.2025 3:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"