Jump to content
php.lv forumi

Pascal uzdevums


JaRu
 Share

Recommended Posts

Pievienots Pirms 2 minūtēm

Uzdevums:

Aprēķināt  funkcijas  y= (1+x)e-x vērtības pie argumenta x vērtībām no  –6  līdz  6  ar  soli  0.5. Aprēķinu veikt pēc augstāk dotās formulas un izvirzījuma rindā!

<..............................KODS.........................................>


Program  RINDA;
uses crt;
var X, S, Y, A : real;
    k : integer;
begin
writeln(' Rekinam funkcijas y= x * Exp(-2*x)        ');
writeln(' Vertibas diapazona  -3 ... 3 ar soli 0.25  ');
writeln('  x            Rinda      Standartfunkcija    Loc. skaits rindaa');

   x:= -3;
   while x<= 3 do    // veertibu intervals no -3 lidz 3
   begin
      S:=1-2*x*x;             // n2 vertiba ar +1 elements
      A:= -2*x*x;              // tikai n2 vertiba
      k:=3;
      while ABS (A)> 0.0001 do
      begin
         A:= -A*(2*x/(k-1));       //Algoritms, kas apreekina nakamo A vertibu
         S:=S+A;             //Summeejums S+ algortims A
         k:=1+k;             //N vertiba +1
      End;
      y:=x*Exp(-2*x);
      writeln(x:6:2, S:18:6, Y:18:6, k:12);
      x:=x+0.25          // SOLIS pa cik iet vertibas
   End;
   readkey;
End.



<..............................KODS.........................................>



Lai pārbaudītu rindas aprēķina pareizību ir nepieciešams salīdzināt rezultātus, kurus iegūstam, pielietojot standartfunkcijas un rindas aprēķinu. Abas augšminētās vērtības tiek izvadītas kā Y un S. Y un S vērtībām ir jāsakrīt ar uzdoto precizitāti. 

Esmu izburies kodam cauri... Aprēķini sanāk pareizi, formula arī. bet tests nesakrīt. Es kaut ko padzirdēju kko par tekošo "K" , bet nesapratu konkrēti. Mani interesē vai esmu kļūdjies forumla, vai kodā. Un kas ir ar to "K"


Pievienoju pielikumā programmas rezultātu, jeb testu!

post-8766-0-77101800-1354656933_thumb.png

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

×
×
  • Create New...