Вызов процедуры в процедуре - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Собственно вопрос: можно ли в процедуре вызвать другую процедуру? И если можно, то как? У меня не получается. Это нужно проделать в case. Т. е., приблизительно так:
procedure odin;
  begin
  ...
  end;
 
procedure dva;
  begin
    case n of
      1: r0:=1000;
      2: r0:=5000;
      3: odin(?!???);
    end;
  end;

Решение задачи: «Вызов процедуры в процедуре»

textual
Листинг программы
var n,x,y,r0:integer;
procedure odin;
  begin
  r0:=x+y
  end;
 
procedure dva;
  begin
    case n of
      1: r0:=1000;
      2: r0:=5000;
      else odin;
    end;
 end;
 
begin
write('n=');
readln(n);
writeln('x,y');
readln(x,y);
dva;
write('r0=',r0)
end.

Объяснение кода листинга программы

  1. Объявлены четыре переменные: n, x, y, r0 типа integer (целое число).
  2. Определены две процедуры: odin и dva.
  3. В процедуре odin происходит сложение x и y, результат сохраняется в переменной r0.
  4. В процедуре dva происходит проверка значения переменной n.
  5. Если n равно 1, то r0 присваивается значение 1000.
  6. Если n равно 2, то r0 присваивается значение 5000.
  7. Если n не равно 1 и 2, то вызывается процедура odin.
  8. Выводится сообщение n= и считывается значение переменной n.
  9. Выводится сообщение x,y и считываются значения переменных x и y.
  10. Вызывается процедура dva.
  11. Выводится сообщение r0= и значение переменной r0.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы