Pascal uzdevums

[JaRu]

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!

[Kemito]

1. Var izmantot "code" tagus, lai var saprast kodu, ko esi iesācis.

2. Gaužām pašā URL ( linkā ) var izlasīt "PHP"  not?

[v3rb0]

un vari pat nelikt screenshotu, bet izmantot http://ideone.com/El1L2C