Skocz do zawartości

suma szeregu


lukas_s

Polecane posty

Witam proszę o pomoc co jest źle bo wywala mi na w:=x/(i*i);... ??/

program zad;

const eps=0.0001;

var ss,xx:real;

procedure wczytaj(var x:real);

begin

writeln('podaj x');

readln(x);

end;

procedure suma(x:real;var s:real);

var i,w:integer;

const eps=0.0001;

begin

s:=0;

i:=1;

Repeat

w:=x/(i*i);

s:=s+w;

i:=i+1;

until

ABS(w)<eps;

writeln('suma wynosi',s);

readln();

end;

begin

writeln(xx);

suma (xx,ss);

end.

Link do komentarza
Udostępnij na innych stronach

Panowie tak wy nie pomagacie, a szkodzicie portalowi. :P

 

Roumiem, są wszyscy PRO i bolą oczy jak patrzy się na taki kod ale zrozumieć trzeba, że społeczeństwo nastawione na zaliczenie nijak ma się do reszty porządku świata :) (tu mowa o formatowaniu kodu), a swoją drogą to niejako wina skryptu strony.

Sama jakość kodu pozostawia wiele do życzenia.

 

Co do problemu to tak jak kolega Sazian wspomniał w daj real.

 

 

program zad;

const
 eps=0.0001;
var
 ss,xx:real;

procedure wczytaj(var x:real);
begin
 writeln('Podaj x : ');
 readln(x);
end;

procedure suma(x:real;var s:real);
var
 i:integer;
 w:real;
begin
 s:=0;
 i:=1;
 Repeat
   w:=x / (i*i);
   s:=s+w;
   i:=i+1;
 until ABS(w)<eps;
 write('Suma wynosi',s);
 readln();
end;

begin
 wczytaj(xx);
 writeln(xx);
 suma(xx,ss);
end. 

Prawdziwy programista wiesza sie wraz ze swoim programem.

Link do komentarza
Udostępnij na innych stronach

Panowie tak wy nie pomagacie, a szkodzicie portalowi. :P

Więcej już nie zaszkodzimy. Monopol w Polsce osiągnęły inne portale ;)

 

Poza tym... gdyby ktoś się postarał, to powiadomienie o odpowiedzi przenosiłoby mnie do odpowiedniego wątku, a nie na stronę główną forum...

Link do komentarza
Udostępnij na innych stronach

Więcej już nie zaszkodzimy. Monopol w Polsce osiągnęły inne portale ;)

 

Poza tym... gdyby ktoś się postarał, to powiadomienie o odpowiedzi przenosiłoby mnie do odpowiedniego wątku, a nie na stronę główną forum...

Wydaje mi się, że właściciel pozostawił stronę samej sobie.

Zbudowałbym nowy portal... ale czy warto ?

W sumie jest coś nad czym kiedyś pracowałem... devport

Prawdziwy programista wiesza sie wraz ze swoim programem.

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...