Question

Пожалуйста скиньте любой пример программы в Паскале составленный из двух или более программ!

Answer 1

Несколько странная программа, где одна подпрограмма висит на другой.

Answer 2

Конечно, вот пример программы на языке Паскаль, состоящей из двух программ:

Программа 1:

program Program1;
var
  a, b, sum: integer;
begin
  writeln('Программа 1');
  
  write('Введите первое число: ');
  readln(a);
  
  write('Введите второе число: ');
  readln(b);
  
  sum := a + b;
  
  writeln('Сумма чисел: ', sum);
  
  writeln('Конец программы 1');
end.

Программа 2:

program Program2;
var
  num: integer;
begin
  writeln('Программа 2');
  
  write('Введите число: ');
  readln(num);
  
  if num mod 2 = 0 then
    writeln('Число ', num, ' является четным')
  else
    writeln('Число ', num, ' является нечетным');
  
  writeln('Конец программы 2');
end.

Эти две программы можно объединить в одну, добавив дополнительное меню для выбора программы пользователем:

program MainProgram;
var
  choice: integer;
begin
  writeln('Главная программа');
  
  writeln('Выберите программу:');
  writeln('1 - Программа 1');
  writeln('2 - Программа 2');
  write('Ваш выбор: ');
  readln(choice);
  
  case choice of
    1: begin
         // Код программы 1
         writeln('Вы выбрали программу 1');
         // ... (код программы 1)
       end;
    2: begin
         // Код программы 2
         writeln('Вы выбрали программу 2');
         // ... (код программы 2)
       end;
    else
      writeln('Неверный выбор');
  end;
  
  writeln('Конец главной программы');
end.

В этом примере пользователь может выбрать программу 1 или программу 2, в зависимости от выбора будет выполнен соответствующий блок кода.