Вычислить max (a, b, c)

@Влад Костючик · Регистрация: 13.10.2013

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

Даны x, y, z. Вычислить max (a, b, c), если даны a:= 2*sqrt(x*x+sqr(y))-z*z*z/1*2*3, b:=1- sqrt(sqr(x)+sqr(y), c:=sin(z*z*z/1*2*3)+cos(pi/4).

@JokeR.BY · 26.05.2014, 19:08

Pascal

const
  PI = 3.14159265359;
 
var
  x, y, z : Integer;
  a, b, c, res : Double;
 
begin
  WriteLn('Введите последовательно (через перевод строки | Enter) x, y, z: ');
  ReadLn(x, y, z);
  a := 2 * sqrt(x * x + sqr(y)) - (z * z * z) / (1 * 2 * 3);
  b := 1 - sqrt(sqr(x) + sqr(y));
  c := sin(z * z * z / 1 * 2 * 3) + cos(PI / 4);
  if (a >= b) then
    res := a
  else
    res := b;
  if (c > res) then
    res := c;
  WriteLn('max=', res:5:2);
end.

Новичок · 26.05.2014, 19:29

Сообщение от JokeR.BY

const PI = 3.14159265359;

Так число пи и так есть константой в Паскале - можно не объявлять.

@JokeR.BY · 26.05.2014, 19:35

Новичок, да это на автомате уже. фик запомнишь, где нужно объявлять, где нет.

@Влад Костючик 0 / 0 / 0 Регистрация: 13.10.2013 Сообщений: 31
		1
	Вычислить max (a, b, c) 26.05.2014, 18:15. Показов 1079. Ответов 3 Метки нет (Все метки) Даны x, y, z. Вычислить max (a, b, c), если даны a:= 2sqrt(xx+sqr(y))-zzz/123, b:=1- sqrt(sqr(x)+sqr(y), c:=sin(zzz/123)+cos(pi/4). 0

Новичок 1647 / 1095 / 488 Регистрация: 17.07.2012 Сообщений: 5,356
	26.05.2014, 19:29	3
	Сообщение от JokeR.BY const PI = 3.14159265359; Так число пи и так есть константой в Паскале - можно не объявлять. 1

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	26.05.2014, 19:35	4
	Новичок, да это на автомате уже. фик запомнишь, где нужно объявлять, где нет. 0

Опции темы

Вычислить max (a, b, c)

Решение