lukas_s Napisano Grudzień 15, 2014 Zgłoś Share Napisano Grudzień 15, 2014 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 More sharing options...
babubabu Napisano Grudzień 16, 2014 Zgłoś Share Napisano Grudzień 16, 2014 Znaczniki kolorujące składnie lub pastebin.com Link do komentarza Udostępnij na innych stronach More sharing options...
xevil21 Napisano Grudzień 17, 2014 Zgłoś Share Napisano Grudzień 17, 2014 Złe jest tutaj dzielenie, dlaczego? Poczytaj: http://turbopascal.helion.pl/r-08.htm Specjalnie nie wyjaśniam. Naucz się korzystać z książek oraz wiedzy udostepnionej w internecie. To Ci dużo ułatwi. Link do komentarza Udostępnij na innych stronach More sharing options...
sazian Napisano Grudzień 18, 2014 Zgłoś Share Napisano Grudzień 18, 2014 operator / daje wynik zmienno przecinkowy, a zmienna "w" jest typu całkowitego Link do komentarza Udostępnij na innych stronach More sharing options...
DevPort Napisano Grudzień 19, 2014 Zgłoś Share Napisano Grudzień 19, 2014 Panowie tak wy nie pomagacie, a szkodzicie portalowi. 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 More sharing options...
Jason Napisano Grudzień 21, 2014 Zgłoś Share Napisano Grudzień 21, 2014 Panowie tak wy nie pomagacie, a szkodzicie portalowi. 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 More sharing options...
DevPort Napisano Grudzień 21, 2014 Zgłoś Share Napisano Grudzień 21, 2014 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 More sharing options...
5corpio Napisano Grudzień 23, 2014 Zgłoś Share Napisano Grudzień 23, 2014 Nie wiele tam zrobiłeś bo widzę same lorem ipsum Ot taka mini-strona moja po godzinach http://www.wnetrzekuchni.pl Link do komentarza Udostępnij na innych stronach More sharing options...
DevPort Napisano Grudzień 24, 2014 Zgłoś Share Napisano Grudzień 24, 2014 Życie mnie zajmuje strasznie... ale dam rade hehe Prawdziwy programista wiesza sie wraz ze swoim programem. Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.