Дано x, y, z. Вычислить max(a, min(b, c)

@НАСТЮШКА111 · Регистрация: 06.02.2014

Напишите пожалуйста код

@Xo6ut · 06.02.2014, 18:05

Не по теме:

Сейчас вашу картинку удалят и заставят писать все от руки( я так думаю) Так что можете уже начинать, формулы набирайте с помощью редактора формул

И желательно перевести все на рус. язык

@ildwine · 07.02.2014, 06:34

Комментарий модератора

НАСТЮШКА111, текстовые задания необходимо набирать от руки, для формул есть редактор. Официальными языками форума являются русский и английский. Ознакомьтесь с правилами форума.

@ermolay · 07.02.2014, 12:53

НАСТЮШКА111, можно через функции или хотя бы циклы, но, имхо, для подобной задачи так проще и быстрее:

Pascal

var
  x, y, z, a, b, c, min, max, t: real;
 
begin
  write('Введите x, y, z через пробел: ');
  readln(x, y, z);
  t := x * cos(z) - z * cos(y) + y * cos(x);
  b := sin(3 * pi / 4) + t;
  c := 5 * t;
  if b < c then min := b else min := c;
  x := x * x;
  a := x / 2 - x * x / 2 / 3 / 4 + x * x * x / 2 / 3 / 4 / 5 / 6;
  if a > min then max := a else max := min;
  writeln('Max = ', max:0:5);
  readln;
end.

@НАСТЮШКА111 0 / 0 / 0 Регистрация: 06.02.2014 Сообщений: 26
		1
	Дано x, y, z. Вычислить max(a, min(b, c) 06.02.2014, 18:01. Показов 3271. Ответов 3 Метки нет (Все метки) Напишите пожалуйста код Миниатюры __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Xo6ut
	06.02.2014, 18:05 #2
	Не по теме: Сейчас вашу картинку удалят и заставят писать все от руки( я так думаю) Так что можете уже начинать, формулы набирайте с помощью редактора формул И желательно перевести все на рус. язык 1

Опции темы

Дано x, y, z. Вычислить max(a, min(b, c)

Решение