Задача 1 урок 14 Фукция, пример решения задачи

Primary tabs

Submitted by pakot on Fri, 04/10/2020 - 18:40

Forums:

Урок 14 задача 1

Напишите функцию, которая возвращает сумму трёх целых чисел.

var
  a, b, c, d: integer;
procedure sum(x, y, z: integer; var v: integer); // начало объявления процедуры
begin
     v := x + y + z;   // задаем процедцру
end; // конец тела процедуры

begin // начало тела программы
      write('Введите два числа: ');
      readln(a, b, c);
      sum(a, b, c, d);
      writeln(d);
      readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 2389 reads
vedro-compota's picture

vedro-compota

Fri, 04/10/2020 - 19:16

по условию задачи надо было написать функцию, а не процедуру)

_____________
матфак вгу и остальная классика =)

pakot

Fri, 04/10/2020 - 20:05 

var
  a, b, c: integer;
  function sum(x, y, z: integer): integer; // начало объявления процедуры
begin
 result := x + y + z; { результат для возврата наружу
  (в глобальное пространство программы из локального пространства функции) }
end; // конец тела процедуры

begin // начало тела программы
     write('Введите два числа: ');
     readln(a, b, c);
     writeln(sum(a,b,c));
     readln();
end.
vedro-compota's picture

vedro-compota

Fri, 04/10/2020 - 20:06

засчитано

_____________
матфак вгу и остальная классика =)