Вычислить значение выражения

@Br0k · Регистрация: 24.04.2016

Итак, нужно написать простенькую программку с подсчетом по формуле. Давно в Паскале не был, очень многое позабыл. Ругается на все выражение начиная с экспоненты.

Pascal

program qwe;
var a,b,t,e,y,s: integer;
begin
writeln('Vvedite b');
readln (b);
writeln('Vvedite t');
readln (t);
writeln('Vvedite a');
readln (a);
y:=exp(-b*t)*sin(a*t+b)-sqrt(abs(b*t)+a);
writeln();
end.

Второю формулу я записал в таком виде

Pascal

1	s:=bsin(a^(tt)cos2*t)-1;

но ещё не проверял на ошибки.

@Puporev · 24.04.2016, 13:28

Pascal

program qwe;
var a,b,t,y,s:real;
begin
writeln('Vvedite b');
readln (b);
writeln('Vvedite t');
readln (t);
writeln('Vvedite a');
readln (a);
if abs(b*t)+a<0 then writeln('Y не определено')
else
 begin
  y:=exp(-b*t)*sin(a*t+b)-sqrt(abs(b*t)+a);
  writeln('Y=',y:0:3);
 end;
s:=b*sin(a*t*t*cos(2*t))-1;
writeln('S=',s:0:3);
end.

@Br0k · 24.04.2016, 13:37 **[ТС]**

Благодарю!

@Br0k 0 / 0 / 0 Регистрация: 24.04.2016 Сообщений: 6
	24.04.2016, 13:37 [ТС]	3
	Благодарю! 0

Опции темы