Напишите функцию, которая возвращает наименьшее из значений - Pascal

  1. Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.


textual

Код к задаче: «Напишите функцию, которая возвращает наименьшее из значений - Pascal»

function f(x, y, z: Integer): Integer;
var m, t: Integer;
begin
  m:=Abs(x-y);
  t:=Abs(y-z); if m>t then m:=t;
  t:=Abs(z-x); if m>t then m:=t;
  f:=m;
end;

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.083 из 5



Похожие ответы
  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. Напишите программу для данного рисунка:

  1. Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения. Здравствуйте помогите пожалуйста с написанием программы. Я смог написать только для одного числа а надо для трёх(пример снизу).

  1. Помогите, пожалуйста, с задачей! Закономерность вывела, вот: U= -(u*x^2*(2k+1))/(2k+1). Как все 3 способа в одну программу запихать не знаю Вычислите функцию, заданной в виде суммы бесконечного ряда тремя способами: с заданной погрешностью EPS (F1(x)), с заданным числом K первых членов ряда (F2(x)) и по аналитической формуле (F(x)). Функция и область сходимости: sinx, |x|<1 Разложение в ряд:

  1. Написать рекурсивную функцию, которая определяет степень числа f(x,n) x^n n-будет натуральным.

  1. Напишите функцию для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.

  1. Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными числами, начиная с последнего элемента, который должен быть равен X . Входные данные Входная строка содержит два целых числа: начальное значение X и размер массива N , разделённые пробелом. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести содержимое массива: убывающую последовательность из N последовательных натуральных чисел; последний элемент должен быть равен X . Примеры входные данные 6 4 выходные данные 9 8 7 6