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

Primary tabs

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

Forums:

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

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

var
  a, b, c, d: integer;
procedure sum(x, y, z: integer; var v: integer); // начало объявления процедуры
begin
     writeln(v);
     v := x + y + z;
     writeln(v);
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
  • 2545 reads
vedro-compota's picture

vedro-compota

Fri, 04/10/2020 - 19:15 

var v: integer

зачем в сигнатуре 4-я переменная?

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

pakot

Fri, 04/10/2020 - 22:05 

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

begin // начало тела программы
    readln(a, b, c);    // ввод процедуры
  sum(a, b, c);  // вызов процедуры
  readln();
end.
vedro-compota's picture

vedro-compota

Fri, 04/10/2020 - 22:08 

 readln(a, b, c);    // ввод процедуры

это не ввод процедуры, а скорее получение значений переменных обычное.
Решение в целом засчитано.

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