Implementacja wzoru - prośba o sprawdzenie poprawności

Czy mogłby ktoś sprwdzić czy dobrze zapisalem te wzory.Pierwszy to 2e -3x czyli 2*(exp(-3x)).A drugi to e 2lg(-x) czyli exp(2ln(x)).Czy poprawnie to zapisałem??

Nie wiem dlaczego wczesniej nie pokazało potęg powinno być 2e^(-3x) a ten drugi e^2lg(-x)

Powiedz mi czy nie jesteś w stanie napisać takiego programu:

var x:Double;
begin
  x:=10; WriteLn(x,' ',2*exp(-3*x));
end;

?

Czy też nie umiesz posługiwać się excel'em ani openofis'em ?

Chodzi mi o samą implementacje wzoru 2e^-3x zapisuje jako a:=2exp(-3x) tak jak ty ale jest to źle ponieważ program oblicza np.x=5 że a=0,a powinno być 6.1110^-7.I tak samo ten drugi e²lg(-x)</sup> czy jest poprawnie zapisany exp(2*ln(x)).

czy masz zadeklarowane a:Double ?

Tak mam.Mój program wygląda następująco.

Program Z1_1_3;

 var x,f:double;
Begin
 writeln('Podaj wartosc argumentu x' );
 readln(x);
If x>4 then f:=2*exp(-3*x)
        else
If (x>=0) and (x<=4) then f:=(1+sqrt(x))/3
        else f:=exp((2)*ln(x));
Writeln('Wartosc funkcji wynosi ',f:2:2);
Readln;

End.

Pierwszy wzór działa tylko z drugim jest coś nie tak.

a konkretnie to ten exp((2)*ln(x));

dodanie znacznika <code class="delphi"> - fp

begin
  Write('Podaj wartosc argumentu x: ' );
  ReadLn(x);
  if x>4 then f:=2*exp(-3*x)
  else if x>=0 then f:=(1+sqrt(x))/3
  else f:=exp(2*ln(-x)); // tu ewidentnie brakowało minusa, poza tym można to zamienić na f:=x*x;
  WriteLn('Wartosc funkcji wynosi ',f:2:2);
  ReadLn;
end.

Tak w drugim brakowało minusa ale pierwszy wciąż jednak źle oblicza http://www.wolframalpha.com/input/?i=2*exp%28-3*1%29 wynik 0,09 a w programie wynik=0,67

A czy 1 jest większe od 4?

Tak oczywiście ma Pan racje przepraszam za zamiesznie.Późna pora i pośpiech i człowiek już nie myśli.Jeszcze raz przepraszam temat do zamknięcia.