(sin(a + b) - cos(a) * sin(b) / (cos(a- b) - sin(a) * sin(b)

@ruskhas · Регистрация: 19.05.2013

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

(sin(a + b) - cos(a) * sin(b)) / (cos(a- b) - sin(a) * sin(b))

@SladkayaVata · 19.05.2013, 15:10

Pascal

var
  a, b: real;
 
begin
  readln(a, b);
  if ((cos(a - b) - sin(a) * sin(b)) = 0) then write('деление на 0') else
    writeln((sin(a + b) - cos(a) * sin(b)) / (cos(a - b) - sin(a) * sin(b)));
end.

@ruskhas · 19.05.2013, 16:25 **[ТС]**

выдает unit1.pas(1,1) Fatal: Syntax error, "UNIT" expected but "VAR" found

Новичок · 19.05.2013, 16:48

Компилятор какой?

@ruskhas · 19.05.2013, 17:09 **[ТС]**

free pascal, сейчас попробовал в pascalabc все заработало

18.06.2013, 16:22

SladkayaVata, R=x(x+1)/b-sin(x+a) помоги решить плиииз

@SladkayaVata · 18.06.2013, 19:26

Pascal

var
  a, b, R, x: real;
 
begin
  writeln('Введите a, b , x');
  read(a, b, x);
  if b = 0 then writeln('Деление на 0 (b=0)') else
  begin
    R := x * (x + 1) / b - sin(x + a); writeln(R);
  end;
end.

@ruskhas 1 / 1 / 0 Регистрация: 19.05.2013 Сообщений: 34
		1
	(sin(a + b) - cos(a) * sin(b) / (cos(a- b) - sin(a) * sin(b) 19.05.2013, 15:01. Показов 2031. Ответов 6 Метки нет (Все метки) (sin(a + b) - cos(a) * sin(b)) / (cos(a- b) - sin(a) * sin(b)) 0

@ruskhas 1 / 1 / 0 Регистрация: 19.05.2013 Сообщений: 34
	19.05.2013, 16:25 [ТС]	3
	выдает unit1.pas(1,1) Fatal: Syntax error, "UNIT" expected but "VAR" found 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	19.05.2013, 16:48	4
	Компилятор какой? 0

@ruskhas 1 / 1 / 0 Регистрация: 19.05.2013 Сообщений: 34
	19.05.2013, 17:09 [ТС]	5
	free pascal, сейчас попробовал в pascalabc все заработало 0

Ромулька
	18.06.2013, 16:22	6
	SladkayaVata, R=x(x+1)/b-sin(x+a) помоги решить плиииз

	18.06.2013, 19:26