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

@Shy_name · Регистрация: 01.01.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте, мне для проекта нужно переключаться между функциями т.е. был в функции A попал в функцию B после перешёл в функцию A из функции B. Реально ли это сделать? Или лучше пробовать сделать это в кейсе (case of)?

@Соколиный глаз · 03.02.2018, 12:52

Можно через case.

@Shy_name · 03.02.2018, 13:00 **[ТС]**

Сообщение от Volobuev Ilya

Можно через case.

У кейса есть нюанс, там нельзя клипать всё кейсами что и плачевно(

@volvo · 04.02.2018, 18:53

У программирования тоже есть нюанс. Нельзя бездумно прыгать туда-сюда между функциями, иначе все закончится плачевно.

Пример кода "прыжков" между функциями - в студию, и заодно - объяснение, что именно не получается, и чего хочется добиться. Потому что на словах - это гадание на кофейной гуще. Несерьезно.

@alex5code · 04.02.2018, 20:35

Сделать это реально, более чем, приведу свой пример.

@volvo · 04.02.2018, 20:36

Сообщение от alex5code

приведу свой пример

Для начала пусть ТС приведет свой. Потому что ты опять будешь делать что-то свое, а не то, что изначально нужно ТС-у. Так уже много раз бывало...

@alex5code · 04.02.2018, 20:55

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
Function TheWay(C, T: Char): boolean; begin
  TheWay:= not (C = T);
end;
 
Function A:boolean; forward;
Function B:boolean; forward;
Function C:boolean; forward;
 
Procedure RunWay(Ch: Char); begin
  Case Ch of 
  'A': A();
  'B': B();
  'C': C();
  'D': Exit;
  end;
end;
 
Function A: boolean; begin
Writeln('Я - функция А');
 
Var Way:= ReadlnChar('Куда идем мы со Shy name: ');
if TheWay(Way,'A') = true then begin RunWay(Way); Exit; end;
 
Writeln('Ты со мной остался?)'); Halt;
end;
 
Function B: boolean; begin
Writeln('Я - функция B');
 
Var Way:= ReadlnChar('Куда идем мы со Shy name: ');
if TheWay(Way,'B') = true then begin RunWay(Way); Exit; end;
 
Writeln('Ты со мной остался?)'); Halt;
end;
 
Function C: boolean; begin
Writeln('Я - функция C'); 
 
Var Way:= ReadlnChar('Куда идем мы со Shy name: ');
if TheWay(Way,'C') = true then begin RunWay(Way); Exit; end;
 
Writeln('Ты со мной остался?)'); Halt;
end;
 
begin
RunWay('A');
Writeln('Ты вернулся живым из клубка функций, Shy name!');
end.

На данной картине представлена дилема всего мира: жена, основная функция Main, провожает мужа в поход. По пути муж ходит по женщинам-функциям. Функций всего 3 "A, B, C" (английские заглавные буквы). Если мужчина не выберет путь к другой функции, то он вызовет процедуру Halt и не сможет вернуться к жене-Main. Чтобы вернуться к главной функции Main, нужно выбрать путь D. В функциях

Writeln('Ты со мной остался?)'); Halt;

представляет оставшийся код функции после выбора, он может стоять и до выполнения выбора пути. С помощью этой новаторской технологии можно реализовать главное меню, режим кодировки и расшифровки на основе 3 функций, или использовать для Вашей программы.

Добавлено через 4 минуты
Не увидел, поздно удалять мои труды(

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@Shy_name 0 / 0 / 0 Регистрация: 01.01.2018 Сообщений: 8

	Как использовать процедуру для выбора действия и переключения между ними 03.02.2018, 12:49. Показов 930. Ответов 6 Метки case, паскаль abc.net, с, сложно, функции (Все метки) Здравствуйте, мне для проекта нужно переключаться между функциями т.е. был в функции A попал в функцию B после перешёл в функцию A из функции B. Реально ли это сделать? Или лучше пробовать сделать это в кейсе (case of)? 0

@Соколиный глаз Alvin Seville 343 / 273 / 134 Регистрация: 25.07.2014 Сообщений: 4,537 Записей в блоге: 22
	03.02.2018, 12:52
	Можно через case. 0

@volvo Супер-модератор 33400 / 21510 / 8236 Регистрация: 22.10.2011 Сообщений: 36,907 Записей в блоге: 12
	04.02.2018, 18:53
	У программирования тоже есть нюанс. Нельзя бездумно прыгать туда-сюда между функциями, иначе все закончится плачевно. Пример кода "прыжков" между функциями - в студию, и заодно - объяснение, что именно не получается, и чего хочется добиться. Потому что на словах - это гадание на кофейной гуще. Несерьезно. 0

@alex5code Aimez-vous les baguettes? 193 / 26 / 27 Регистрация: 25.10.2017 Сообщений: 165
	04.02.2018, 20:35
	Сделать это реально, более чем, приведу свой пример. 0