Кто-нибудь может мне помочь? МНе задали по Паскалю задание, а как делать я не знаю... Там надо решить систему... Программеру 2 минуты делов... Если кто готов помочь-дам задание... Завтра здавать надо уже

так ты сразу и пиши

Это сообщение отредактировал(а) dsergey - 19.10.2004, 15:10

Вот скрин
http://www.rutanks.net/rabota.gif
Помогите срочно плиз...

Извините, вот правильный скрин http://www.rutanks.net/rabota.GIF

Код

function ArcCot (X: real): real; begin  if x = 0 then ArcCot := pi/2    else ArcCot := ArcTan(1/x); end; function f(x : real) : real; begin  if x < 0 then f := 5 - Exp(Exp(2)*Ln(Abs(x)))  else if x = 0 then f := cos(3*x)  else f := ArcCot(5*x); end;

PS: насчёт случая, когда x < 0 - не уверен, т.к. не знаю, как высчитывать любую дробную степень отрицательного числа ... Какой там знак получится ? Поэтому считаю так:
f := 5 - Abs(x)^Exp(2);

Срочно помощь нужна.... Иначе завтра я труп... Откликнитесь ... Люди добрые

А нельзя ли полностью написать?

В смысле - полностью ? С вводом и выводом данных ?

Код

program abc; function ArcCot (X: real): real; begin  if x = 0 then ArcCot := pi/2    else ArcCot := ArcTan(1/x); end; function f(x : real) : real; begin  if x < 0 then f := 5 - Exp(Exp(2)*Ln(Abs(x)))  else if x = 0 then f := cos(3*x)  else f := ArcCot(5*x); end; var  x, y : real; begin  WriteLn ('Input x: ');  ReadLn (x);  y := f(x);  WriteLn ('f(x) = ', y);  ReadLn; end.

PS: только где там надо было решать систему уравнений ? Я что-то их там не увидел. Из того, что дано, можно просто вычислить значение функции f...

Короче там ещё надо сделать, чтобы можно было вводить промежуток и шаг
Мой друг так сделал
Program tabul;
uses crt;
var a,b,p:real;
BEGIN
clrscr;
writeln ('Vvedite predel A');readln(a);
writeln ('Vvedite predel B');readln(b);
writeln ('Vvedite shag P');readln(p);
If p>=b-a then writeln ('Shag previshaet diapazon');
If b<a then writeln ('Nepravilniy vvod') else begin
writeln (' x f(x) ');
Repeat
if a<0 then writeln (' ',a:2:2,' ',Exp(Exp(2)*Ln(Abs(a))):2:2);
if a=0 then writeln (' ',a:2:2,' ',cos(3*a):2:2);
if a>0 then writeln (' ',a:2:2,' ',ArcTan(1/5*a):2:2);
a:=a+p;
Until a>b;
end;
readkey;
END.


Мне надо похожее только попроще... И чтоб на это не было похоже

Цитата(term0stat @ 20.10.2004, 13:33)

Мне надо похожее только попроще... И чтоб на это не было похоже

Интересная фраза: надо похожее, но только чтобы было не похоже

Ну, если надо попроще и непохоже, то можно так:

Код

program abc; function f(x : real) : real; begin  if x < 0 then f := 5 - Exp(Exp(2)*Ln(Abs(x)))  else if x = 0 then f := cos(3*x)  else f := ArcTan(1/(5*x)); end; var  x1, x2, s : real; begin  WriteLn ('Input start value, end value, step: ');  ReadLn (x1, x2, s);  while x1 <= x2 do  begin   WriteLn ('x=', x1:3:3, ' f(x)=', f(x1):3:3);   x1 := x1 + s;  end;  ReadLn; end.

При запуске программы вводи через пробел начальное значение, конечное и шаг.

Это самый смешной диалог из всех, которые я встречал...

Модератор: Название темы должно отражать ее суть!