Оформить в виде функции вычисление среднеарифметического, вычисление суммы и произведения чисел

@Dastan11 · Регистрация: 03.10.2017

Студворк — интернет-сервис помощи студентам

2. Даны три числа. Оформить в виде функции вычисление среднеарифметического, вычисление суммы и произведения этих чисел.

@ZX Spectrum-128 · 04.10.2017, 07:45

Pascal

function summa(x, y, z: real): real;
begin
  summa := x + y + z;
end;
 
function srednee(x, y, z: real): real;
begin
  srednee := (x + y + z) / 3;
end;
 
function mult(x, y, z: real): real;
begin
  mult := x * y * z;
end;
 
var
  a, b, c: real;
 
begin
  a := 4;
  b := 5;
  c := 6;
  writeln(summa(a, b, c));
  writeln(srednee(a, b, c));
  writeln(mult(a, b, c));
end.

@Соколиный глаз · 04.10.2017, 14:47

Pascal

function Sum(params a: array of integer) := a.Sum();
 
function Average(params a: array of integer) := a.Average();
 
function Mult(params a: array of integer) := a.Aggregate((x, y)-> x * y);
 
begin
  Writeln(Sum(8, 7, 1));
  Writeln(Average(8, 7, 3));
  Writeln(Mult(5, 7, 2));
end.

Для любого количества чисел.

@Dastan11 0 / 0 / 0 Регистрация: 03.10.2017 Сообщений: 3
		1
	Оформить в виде функции вычисление среднеарифметического, вычисление суммы и произведения чисел 03.10.2017, 19:04. Показов 1874. Ответов 2 Метки нет (Все метки) 2. Даны три числа. Оформить в виде функции вычисление среднеарифметического, вычисление суммы и произведения этих чисел. 0

	04.10.2017, 14:47

Опции темы

Оформить в виде функции вычисление среднеарифметического, вычисление суммы и произведения чисел

Решение