Вычислить значение Y

@cempel · Регистрация: 07.12.2012

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

Вычислить значение Y, если:

@GggDrej · 23.01.2013, 17:40

Допиши только чему там равен У в 2 и 3 случае

Pascal

uses crt;
var x,a,b,c:integer;
    y:real;
begin
  write('Input x,a,b,c: ');
  readln(x,a,b,c);
  if x<b then y:=sqrt(abs(a-x))*sin(x)*sin(x)
  else if x<=c then
   begin
    if x=-a then writeln('Delenie na 0')
    else y:={...};
   end
  else y:={...};
  writeln ('y = ',y);
end.

@cempel 0 / 0 / 0 Регистрация: 07.12.2012 Сообщений: 28
		1
	Вычислить значение Y 23.01.2013, 17:23. Показов 974. Ответов 1 Метки нет (Все метки) Вычислить значение Y, если: Миниатюры 0

	23.01.2013, 17:40

Вычислить значение Y

Решение