Работа с формулой)

@Kuroyuki · Регистрация: 14.12.2010

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

Дано: x, y, z. Вычислить и отпечатать значение
Минимальное и максимальные значения также напечатать.

@STGE · 18.12.2010, 02:08

Pascal

uses crt;
var x, y, z: integer; t: real;
function max (a, b: integer): integer;
 begin
  if a>=b then max:=a
  else max:=b;
 end;
function min (a, b: integer): integer;
 begin
  if a<=b then min:=a
  else min:=b;
 end;
begin
 randomize;
 clrscr;
 write ('введите исходные значения аргументов x, y, z: ');
 readln (x, y, z);
 t:=(abs (x)+min (min(x, y), z)+max (x, y))/(abs (y)+max (x, z));
 writeln ('функция имеет значение = ', t);
end.

@Kuroyuki 0 / 0 / 0 Регистрация: 14.12.2010 Сообщений: 9
		1
	Работа с формулой) 18.12.2010, 00:30. Показов 812. Ответов 1 Метки нет (Все метки) Дано: x, y, z. Вычислить и отпечатать значение Минимальное и максимальные значения также напечатать. Изображения 0

	18.12.2010, 02:08

Работа с формулой)

Решение