Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
 Аватар для t_panda
8 / 8 / 2
Регистрация: 11.12.2014
Сообщений: 85

Нужно сделать меню и подключить к нему 4 программы с процедурами

27.01.2015, 10:46. Показов 1931. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть 4 программы(если нужно скину), нужно написать меню, в котором с помощью процедур можно будет вызвать любую из этих 4 программ. Скажем запускается меню: 1.Комплексные числа 2. Умножение 3. Вычитание 4. Деление 5. Выход. Вот пользователь выбирает 1 и у него запускается программа 1. Очень срочно, спасибо!
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
27.01.2015, 10:46
Ответы с готовыми решениями:

Вставить программы с процедурами в меню
Здравствуйте, пожалуйста помогите с абс паскалем, очень важно и очень срочно надо. Есть меню, ниже вставлю. Туда можно вставить программы,...

Нужно сделать меню программы, где задаются 2 переменные
Нужна программа, у нее похожее меню (как в прикрепленном файле), две переменные задаются плюсом/минусом (в том числе можно ввести с...

Как сделать сервер, и к нему подключить мобильное приложение?
Всем привет, мне нужно сделать сервер и к нему подключить мобильное приложение , при помощи каких компонентов можно это сделать и как будет...

3
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.01.2015, 16:37
Пример меню. Вставьте свои процедуры
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
uses crt;
{массив названий пунктов меню}
const vybor:array[1..5] of string=('1-Комплексные',
                                   '2-Умножение',
                                   '3-Вычитание',
                                   '4-Деление',
                                   '5-Выход');
procedure Menyu(var k:byte;kol:byte);
var kod: char;
    i:byte;
begin
clrscr;
k:=1;
gotoxy(5,1);
repeat
  for i:=1 to kol do
   begin
     if i=k then
      begin
         textbackground(2);
         textcolor(1);
      end
     else
      begin
         textbackground(7);
         textcolor(0)
      end;
     gotoxy(18*(i-1)+1,1);
     write(vybor[i]);
   end;
  writeln;
  repeat
  kod:=readkey;
  until kod in [#13, #75, #77];
  case kod of
  #77: begin  {стрелка влево}
       k:=k-1;
       if k=0 then k:=kol;{если левый край, в конец}
       end;
  #75: begin  {стрелка вправо}
       k:=k+1;
       if k>kol then k:=1;{если правый край, в нaчало}
       end;
  end;
 until kod in [#13];
 textbackground(15);
end;
 
var k:byte;
begin
 repeat
   Menyu(k,5);{выводим меню}
   case k of{выбираем стрелками действие}
   1:begin
     clrscr;
     writeln('Выбрана программа Комплексные числа');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   2:begin
     clrscr;
     writeln('Выбрана программа Умножение');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   3:begin
     clrscr;
     writeln('Выбрана программа Вычитание');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   4:begin
     clrscr;
     writeln('Выбрана программа Деление');
     write('нажмите Enter');
     readln;
     Menyu(k,5);{выводим меню}
     end;
   end;
 until k=5;
end.
1
 Аватар для t_panda
8 / 8 / 2
Регистрация: 11.12.2014
Сообщений: 85
27.01.2015, 17:14  [ТС]
В этом вся и проблема, я не знаю как вставить эти процедуры, покажи одну пожалуйста, скажем файл в папке пусть называется compl. Как его в меню открыть процедурой? Спасибо!

Добавлено через 29 минут
Всё всё понял как делать!)
Спасибо Puporev, всегда выручаешь)
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.01.2015, 17:38
У меня как-то все коряво работает в Паскаль АВС, Программы с подобным меню которые нормально работают в Турбо Паскале в АВС отказываются работать, извините.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.01.2015, 17:38
Помогаю со студенческими работами здесь

есть проект на С#(программа для помощи создания школьного расписания), к нему нужно подключить БД
Здравствуйте. У меня такая проблема: есть проект на С#(программа для помощи создания школьного расписания), к нему нужно подключить БД. ...

есть роутер(проводной) TL-R460, нужно подключить к нему WIFI роутер
Ребят есть роутер(проводной) TL-R460. Раздаёт инет на 2 компа. Нужно подключить к нему WIFI роутер... D-link DIR 615 (чтобы одновременно...

Нужно сделать на сайте тест и чат к нему
Работаю в универе. Начальник просит на сайте универа организовать тестирование (замена ЕГЭ или типа того что-то) и к нему чат, для того...

Сделано меню программы через case, как сделать цикл для меню
Сделано меню программы через case ,как сделать цикл для меню чтобы после каждого выбранного пункта в меню и отображения действия появлялось...

Как сделать чтобы по нажатию кнопки запускался exe файл, но путь прописывать к нему не нужно было бы.
Как сделать чтобы по нажатию кнопки запускался exe файл, но путь прописывать к нему не нужно было бы. Т.е он как бы находился по имени exe...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru