Объединить 3 программы в одну с запуском диалогового окна

@ValeriyCyber · Регистрация: 29.11.2021

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

Привет, нужно объединить данные программы в 1 и чтобы можно было выбирать при запуске нужное действие.Прошу помочь.Зарание спасибо.(Если можно с объяснением пожалуйста)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program jj887;
var m:byte;
begin
write ('Введите номер месяца: ');
readln (m);
if (m>=1) and (m<=12) then 
case m of
12,1,2: writeln ('зима');
3..5: writeln ('весна');
6..8: writeln ('лето');
9..11: writeln ('осень');
end
else writeln ('Такого месяца не существует');
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program sas1;
var
  i,a,b: integer;
  c: real;
begin
  write('Введи число А: ');
  readln(a);
  write('Введи число Б: ');
  readln(b);
  write('Выбери номер действия (1-сложение)(2-вычитание)(3-умножение) (4-деление): ');
  readln(i);
  if b<>0 then
  begin
    case i of
      1: c:=a+b;
      2: c:=a-b;
      3: c:=a*b;
      4: c:=a/b;
    end;
    writeln('Результат = ',c:5:2);
    end;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program hg77;
var
  a, k : integer;
begin
  k := 0;
  repeat
    write('Введи число от 0-10000: ');
    readln(a)
  until (a >= 0) and (a <= 10000);
  repeat
    a := a div 10;
    inc(k)
  until a = 0;
  writeln('кол-во цифр в числе: ', k)    
end.

@Cyborg Drone · 15.12.2021, 21:24

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

Нагляднее будет вынести каждую программу в отдельную процедуру, а в ветвях оператора выбора делать вызовы соответствующих процедур:

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
uses
  crt;
 
procedure jj887;
var
  m: byte;
begin
  write('Введите номер месяца: ');
  readln(m);
  case m of
    12, 1, 2: write('Зима');
    3..5: write('Весна');
    6..8: write('Лето');
    9..11: write('Осень')
    else write('Такого месяца не существует')
  end
end;
 
procedure sas1;
var
  i, a, b: integer;
  c: real;
begin
  write('Введите число А: ');
  readln(a);
  write('Введите число Б: ');
  readln(b);
  write('Выбери номер действия (1-сложение)(2-вычитание)(3-умножение) (4-деление): ');
  readln(i);
  case i of
    1: c := a + b;
    2: c := a - b;
    3: c := a * b;
    4: if b <> 0 then c := a / b
  end;
  if (i = 4) and (b = 0) then write('Ошибка деления на 0')
  else write('Результат = ', c:5:2)
end;
 
procedure hg77;
var
  a, k: integer;
begin
  k := 0;
  write('Введите число: ');
  readln(a);
  a := abs(a);
  repeat
    a := a div 10;
    inc(k)
  until a = 0;
  write('Количество цифр в числе: ', k)
end;
 
var
  ch: char;
begin
  repeat
    clrscr;
    writeln('1 - определение времени года по номеру месяца');
    writeln('2 - калькулятор');
    writeln('3 - подсчёт количества цифр в числе');
    writeln('Любая другая цифра - выход из программы');
    write('Ваш выбор: ');
    readln(ch);
    case ch of
      '1': jj887;
      '2': sas1;
      '3': hg77;
      else write('Выход из программы')
    end;
    readln
  until not (ch in ['1'..'3'])
end.

Если Вы не желаете знать, что такое подпрограммы: менее наглядно, но можно поместить коды целиком в ветви оператора выбора:

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
uses
  crt;
var
  m: byte;
  i, a, b, j, k: integer;
  c: real;
  ch: char;
begin
  repeat
    clrscr;
    writeln('1 - определение времени года по номеру месяца');
    writeln('2 - калькулятор');
    writeln('3 - подсчёт количества цифр в числе');
    writeln('Любая другая цифра - выход из программы');
    write('Ваш выбор: ');
    readln(ch);
    case ch of
      '1':
        begin
          write('Введите номер месяца: ');
          readln(m);
          case m of
            12, 1, 2: write('Зима');
            3..5: write('Весна');
            6..8: write('Лето');
            9..11: write('Осень')
            else write('Такого месяца не существует')
          end
        end;
      '2':
        begin
          write('Введите число А: ');
          readln(a);
          write('Введите число Б: ');
          readln(b);
          write('Выбери номер действия (1-сложение)(2-вычитание)(3-умножение) (4-деление): ');
          readln(i);
          case i of
            1: c := a + b;
            2: c := a - b;
            3: c := a * b;
            4: if b <> 0 then c := a / b
          end;
          if (i = 4) and (b = 0) then write('Ошибка деления на 0')
          else write('Результат = ', c:5:2)
        end;
      '3':
        begin
          k := 0;
          write('Введите число: ');
          readln(j);
          j := abs(j);
          repeat
            j := j div 10;
            inc(k)
          until j = 0;
          write('Количество цифр в числе: ', k)
        end
      else write('Выход из программы')
    end;
    readln
  until not (ch in ['1'..'3'])
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/