Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

piksel007

1 / 1 / 0

Регистрация: 16.03.2010

Сообщений: 32

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
uses crt;
var g:byte;
    n:integer;
    x:char;
procedure menu(k:byte);
          procedure win(a,b,i,e:integer; s:string);
          begin
           textcolor(e);
          window(a,b,a+15,b+5);
          TextBackGround(i);
          clrscr;
          GoToXY(6,3);
          write(s);
          end;
  begin
  win(5,2,14,15,'¦Ґ«вл©');
  win(21,8,4,15,'Єа*б*л©');
  win(37,14,2,15,'§Ґ«Ґ*л©');
  win(53,20,7,15,'ўле®¤');
  case n of
  1:win(5,2,14,15,'¦Ґ«вл©');
  2:win(21,8,4,15,'Єа*б*л©');
  3:win(37,14,2,15,'§Ґ«Ґ*л©');
  end;
  end;
begin
    textbackground(0);
    clrscr;
    n:=1;
 While true do
    begin
    ClrScr;
    menu(n);
    x:=ReadKey;
    If x= #13 then Exit;
    If x= #77 then begin
                           n:=n+1;
                           If n=5 then n:=1
                           end;
    If x= #75 then begin
                           n:=n-1;
                           If n=0 then n:=4
                           end;
    end;
 
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

26.03.2010, 06:32

Ответы с готовыми решениями:

Необходимо создать меню цифровое вертикальное с 'исчезающим" основным меню.
Необходимо создать меню цифровое вертикальное с 'исчезающим" основным меню.

Как сделать меню в меню?
Хочу сделать программку, калькулятор и вычисление корней в квадратном уравнении.. Есть две отдельные, начал делать всё в одну, в начале...

Программы + меню ( надо 2 программы написать с меню вместе )
Ребята есть проблема, что бы в задании выдавало определенное решение то есть, надо что бы решение было через средние выбрал их и ответ,...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

26.03.2010, 06:32

Помогаю со студенческими работами здесь

Меню не работает. Кнопки меню не активны
ссылка на программу, она сюда не помещается

Горизонтальное меню с выпадающим меню
помогите сделать горизонтальное меню с выпадающим меню. Нужно чтобы при выборе какого нибудь пункта в горизонтальном меню под тем пунктом...

Работа с меню. При клике на кнопке меню или вне его, меню должно закрываться
Добрый вечер! Изучаю JQuery. Вот ради развития решил написать меню, практически такое же как на Хабре. Два дня ломаю голову над тем, как...

Как добавить выплывающее меню к уже готовому горизонтальному меню (не меняя дизайн горизонтального меню)?
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html...

Раскрывающееся меню - при открытии/закрытии вложенного меню закрывается все меню
Проблема во вложенном меню. При открытии/закрытии вложенного меню закрывается все меню. Надо, чтобы главное меню не реагировало на клики во...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

Наверх