Question

Срочно, помогите пожалуйста. 1) Напишите пожалуйста программу в Паскале ,которая бы содержала и функцию и процедуру одновременно в одной программе.

Answer 1

{Эта рабочая 100% :3}

var n: string;

procedure foo(str: string);

begin

writeln(str);

end;

function foo1(str: string): string;

begin

foo1:= str;

end;

begin

foo('I am a procedure');

n:= foo1('I am a function');

writeln(n);

end.

Answer 2

Конечно, вот пример программы на Pascal, в которой есть и функция, и процедура:

pascalCopy code
program FunctionProcedureExample;

{$APPTYPE CONSOLE}

uses
  SysUtils;

// Процедура, которая принимает параметр и выводит его на экран
procedure PrintMessage(message: string);
begin
  writeln('Процедура: ', message);
end;

// Функция, которая принимает два числа, складывает их и возвращает результат
function AddNumbers(a, b: Integer): Integer;
begin
  AddNumbers := a + b;
end;

var
  result: Integer;

begin
  // Вызов процедуры с передачей параметра
  PrintMessage('Привет, это процедура!');

  // Вызов функции с передачей параметров и получение результата
  result := AddNumbers(5, 7);

  // Вывод результата на экран
  writeln('Результат сложения: ', result);

  readln;
end.

Эта программа содержит процедуру PrintMessage, которая принимает строку и выводит ее на экран, а также функцию AddNumbers, которая складывает два числа и возвращает результат. Обе они вызываются в основном блоке программы.