@Koptyn

Ввести х и вычислить:


.... {tg^2 (x+1) .если х<0
y= {0 .если х=0
.... {e^-x .если х>0


В голову вообще не лезит, на паре нам это не обьясняли, а сделать надо(((((

0

@BoBaH26

^-значит степень?

0

@Antifag

Для кого теги [LaTeX] ?

0

@BoBaH26

Друг, по аналогии с моей решай, у нас тоже была эта тема...

program samus_zadanie_2_1;
uses crt;
const a=2.8;b=-0.3;c=4;
var x,y1,y2,y3: real;
begin
clrscr;
writeln('Vvedite x:');
read(x);
y1:=a*sqr(x)+b*x+c;
y2:=a/x+sqrt(sqr(x)+1);
y3:=(a+b*x)/sqrt(sqr(x)+1);
if x<1.2 then writeln('y=',y1:3:2) else
if x=1.2 then writeln('y=',y2:3:2) else
writeln('y=',y3:3:2);
readkey;
end.

Добавлено через 3 минуты
Короче, вот твоя:

program nn;
uses crt;
const a=2.8;b=-0.3;c=4;
var x,y1,y2,y3: real;
begin
clrscr;
writeln('Vvedite x:');
read(x);
y1:=sqr(sin(x+1)/cos(x+1));
y2:=0;
y3:=exp((-x)*ln(e))
if x<0 then writeln('y=',y1:3:2) else
if x=0 then writeln('y=',y2:3:2) else
writeln('y=',y3:3:2);
readkey;
end.

Добавлено через 17 секунд
Только убери константы...

Добавлено через 7 минут
Antifag, ты тут типа злостный нарушитель?

1

@Antifag

0

@BoBaH26

Antifag, Не ну ты надоел уже!!! Просят по паскалю 7.0, а ты что даешь? И учитывай уровень... Я написал решение на уровне универа...

0

@Antifag

Это решение уровня универа... Принстона, Беркли или MIT.

0

@BoBaH26

Koptyn, Посмотри вверху свое решение, работает по-любому, ну может только если в пунктуации ошибки будут, типа ";" писал быстро..

Добавлено через 1 минуту
Antifag, Нет разницы 1 курс. Ну и не Оксфорд...

0

@Koptyn

Спасибо за ответы, ща буду думать,

Добавлено через 2 минуты
аааа BoBaH26 спасибо, а то после армии мозги вообще не соображают

0

@BoBaH26

Koptyn, Поэтому надо было туда идти после универа. Я в принципе так и сделаю, тем более мне еще 17, поэтому не пошел, пришлось бы год ждать

0