Помогите отредактировать программу, 207 ошибка Опции

[Sane]

Протабулировать надо, программу я сделал и она работает но с другой функцией. А вот с этой нехочет:
Корень кубический из m*tg(l)+c*sin(l)
пишет ошибку с плавающей точкой:
exp(ln(abs(m*((sin(l)/cos(l))+c*sin(l))/3)))


Как правильно нодо ?

[klem4]

y := exp((1/3)*ln(m*sin(l)/cos(l) + c * sin(l)))

компилируется без ошибок, ну естественно при y - вещественного типа.

[hiv]

Код в студию! Тогда точнее сказать можно.

[Sane]

begin
if l>0 then
y:=exp(ln((m*((sin(l)/cos(l))+c*sin(l))/3)));
end;
я сделал так и она заработала. (через условие)

[klem4]

ну так правильно, 2 условия есть для этого выражения
1) cos(l) <> 0
2)m*sin(l)/cos(l) + c * sin(l) > 0

[hiv]

скорее всего в твоей программе переменная l была равна нулю, и в твоем выражении получалось вычисление ln(0) - а это минус бесконечность, о чем тебе компьютер и сообщил: ошибка с плавающей точкой.

[Sane]

(другое задание)

помогите описать вот это:
sqrt(t+1)*exp(a*x*t)*cos(t-a)
где exp((-a)*x*t) это e в степени -axt

верно ли это ?
если нет напишите пожалуйста свою версию.
Заранее спасибо.

[volvo]

помогите описать вот это:

Sane, ты саму функцию, которая тебе задана приводить можешь? А то неясно что ты хочешь: привел что-то и спрашиваешь "Верно ли это?" Откуда я знаю, ЧТО тебе было задано?

[hiv]

в смысле описать? как это будет записываться математически на бумажке?

[Sane]

мне надо протабулировать функцию, это я знаю как сделать, я просто сомниваюсь правильно ли я её записываю в паскале.

[volvo]

Я еще раз повторяю вопрос: "Какую функцию?" Приведи ее МАТЕМАТИЧЕСКУЮ запись (лучше всего - в виде картинки)...

[Sane]

как мне написать е в степени -axt ? (вот конкретно что непонятно)

[volvo]

как мне написать е в степени -axt ?

Вот так:

exp(-a * x * t)

[Sane]

всё понял. Спасибо !

[Sane]

Вобщем если несложно то глянте в целом правильна ли она работает:
Задание: в программе предусмотреть печать таблицы значений аргументов и функций

program tabulirovanie;

  uses crt;
  var y,a,b,x,t:real;
      i,j:integer;



begin

    clrscr;
  writeln ('enter ishodniye danniye');
  write ('a=');readln (a);


    x:=i;
    t:=j;
    for i:=1 to 2 do
    for j:=2 to 3 do
    begin
  begin
    y:=sqrt((t+(1)*exp(-a*x*t))*cos(t-a));
    writeln ('x=',x:2:1,' t=',t:2:1,'   y=',y:4:5);

    t:=t+0.3;
    end;
    x:=x+0.2;
    end;
    readln;
    clrscr;

end.
begin
 clrscr;

end.

Картинка удалена

Сообщение отредактировано: volvo - 1.12.2005 15:44

[Atos]

To: Sane Ты что, издеваешься? выложи картинку в нормальном формате, Ты думаешь, что все могут мегабайт скачать? И не забывай тег [ code]

[Sane]

да, конечно,ты прав, вот картинка

[volvo]

Sane, а , простите, начальное значение T у тебя какое?
Кроме того, есть ведь еще циклы While и Repeat Until, которыми, скорее всего, тебе и надо здесь пользоваться...

[Sane]

Значение 2 у t
попозже попробую с until ом

[volvo]

Да, но программа-то этого не знает... Ты же в T заносишь J еще ДО того, как J инициализирован вообще, так что теоретически T содержит мусор ...