Код
program Lab_2;
uses crt;
var
F,a,b,c,d,x:real;
q:char;
begin
ClrScr;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
writeln('d=');
readln(d);
x:=0.2*sqrt(a)/(sin(b)/cos(b));
if x in (a,b) then F:=exp(sin(x)**3)+ln(arctan(x))
else if x in (c,d) then F:=sqrt(x)*sin(x/a)
else F:=ln(a+3*exp(a*x)));
writeln (' a= ', a,' b= ', b,' c= ', c,' d= ', d,' x= ', x,' F= ', F);
readln(q);
end.
uses crt;
var
F,a,b,c,d,x:real;
q:char;
begin
ClrScr;
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
writeln('d=');
readln(d);
x:=0.2*sqrt(a)/(sin(b)/cos(b));
if x in (a,b) then F:=exp(sin(x)**3)+ln(arctan(x))
else if x in (c,d) then F:=sqrt(x)*sin(x/a)
else F:=ln(a+3*exp(a*x)));
writeln (' a= ', a,' b= ', b,' c= ', c,' d= ', d,' x= ', x,' F= ', F);
readln(q);
end.
Выдает ошибку.
А выражение выглядит так:
^ - возведение в степень
F(x)=
{exp^(sin^3(x))+ln(arctg(x));
(x^1/2)*sin(x/a);
ln(a+3*(exp^ax))},
если x принадлежит |a,b|, если x принадлежит |c,d|, в остальных случаях.
x=0,2*(a^1/2)/tg(b),
a=4.44
b=3.076
c=6.03
d=8.4
За меня решать не прошу... просто обьясните что у меня не так в коде (шутку про ДНК я знаю). Я пишу программу второй раз в жизни.
Прошу не ругать и не стебацца. Заранее спасибо за помощь.Добавлено через 3 мин.
Если бы можно было у кого-то спросить еще.. я бы не стала тратить чужое время на это. Но мучать некого...
), а второго слова я не знаю.. 
