pascal pierwiastek

[Pascal] Pascal – suma pierwiastków kwadratowych liczb naturalnych od n do k (Word)

W Pascal-u będzie to bardzo podobne : program pierwiastki; var n,k,x : word; suma : double; begin Write('Podaj wartosc n : '); readln(n); Write('Podaj wartosc k : '); readln(k); If n>k then begin Writeln(' Blad : n>k !'); exit; end; suma:=0.0; for x:=n to k do suma:=suma+sqrt(x);...

[Turbo Pascal] Błąd w kodzie szukającym liczb pierwszych w Turbo Pascalu - jak go znaleźć?

Tak zapisana funkcja ma wadę, na moim komputerze sprawdzenie czy 2.000.000.011 jest pierwsze zajęło minutę i 22 sek. długo...., podobnie długo trwało sprawdzenie liczby 2.000.000.012, a przecie już po chwili wiemy że liczba ta pierwsza nie jest. Pewnym ulepszeniem będzie: . pier:=false; . if not odd(L) then EXIT; . for i:=2 to L-1 do . . if L mod i...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Obliczanie pierwiastka metodą newtona w turbo pascalu, potęgowanie??

spróbuj w ten sposób : [syntax=pascal]{$N+} uses crt; var a,w : real; i,j,n,m : integer; function potega(x:real;y:byte):double; var j:byte; pot:double; begin pot:=x; for j:=1 to y-1 do pot:=pot*x; potega:=pot; if y=0 then potega:=1; end; begin clrscr; writeln('Podaj a: '); readln(a); writeln('Podaj stopien pierwiastka: '); readln(n); w := 1; i := 100;...

Pascal: Wczytywanie trójek liczb o sumie będącej liczbą pierwszą

no to jeszcze mała optymalizacja wynikająca częściowo z założeń autora (tylko czemu pierwiastek, a nie połówka? To nie sito!), przy okazji znacznie wydajniejsza: function Czy_Liczba_pierwsza( x: integer) : boolean; var idx : integer; begin if x in [0,1] then {sprawdzamy czy podana liczba to 0, 1} begin Czy_Liczba_pierwsza:=false;...

Błąd z funkcją integer przy obliczaniu pierwiastków w Delphi

Niestety nie podałeś jaki jest błąd. Nie pamiętam dużo z pascala, ale na 99% czepia się tego, że pierwiastek z liczby nie jest raczej liczbą całkowitą i trudno to zapisać w typie integer bez konwersji. Masz dwie możliwości: -Konwersja pierwiasta do typu integer (bodajże funkcja Round) , ale wtedy tracisz całą wartość ułamkową... -Zmiana typu integer...

Pascal - Program nie wstrzymuje działania - readln;

Jeżeli delta jest większa lub równa 0 wtedy twój program oblicza możesz sprawdzić lecz gdy jest mniejsza wyskakuje błąd. Nie potrzebnie jako o przypisujesz pierwiastek z delty, przypisz samą deltę wtedy warunki się dobrze sprawdzą a pierwiastek policz dopiero jeżeli delta jest większa od 0. co do readln to nie potrzebnie pod każdą instrukcją warunkową...

[Turbo Pascal] Turbo Pascal kalkulator: jak uniknąć błędów przy operacjach i typach zmiennych?

Po pierwsze, jeżeli stosujesz własne funkcje do dokonywania obliczeń, to możesz sprawdzać właśnie w tych funkcjach, czy ich argumenty "są odpowiednie". Zamiast : function pierwiastkowanie(a:real):... begin pierwiastkowanie:=sqrt(a); end; Zrób coś takiego : function pierwiastkowanie(a:real):... begin if...

[PASCAL] Błąd składni w kalkulatorze Pascal - syntax error, ; expected but UNTIL found

Twoje dzieło po poprawkach: program bartek2; uses crt; VAR a,b,c:integer; {o ,d:string;}o, d: char; {!zmiana typu zmiennych} {poczatek funkcji} function dodawanie(a,b:integer):i... begin dodawanie:=a+b; end; {koniec funkcji} {poczatek funkcji} function odejmowanie(a,b:integer):...

Błąd kompilacji w programie Pascal do obliczania miejsc zerowych

Teraz jest dobrze: program dwumian; var a,b,c: real; d: real; x1,x2:real; y1,y2:real; begin write('Podaj współczynniki równania : '); readln(a,b,c); if a=0 then if b=0 then writeln('Równanie sprzeczne') else begin x1:=-c/b; writeln('Pierwaistek równania to : ',x1:0:4);end else begin...

Jaki język programowania wybrać na start: Pascal, C++, Delphi?

Oloam napisał: Moze troche off topic ale czy Turbo pascal byl jezykiem obiektowym? programowanie obiektowe chyba zaczelo sie od delphi 1 (wprowadzona w 1995r) a pakiet skladal sie z object pascal 1.0 i borland pascal 7.0 . Pamietam w szkole mialem turbo pascala 7.0 i tam nie byl to jezyk obiektowy(chociazby dlatego ,ze nie bylo obiektu do opisywania...

POMOCY!!! program w free pascalu obliczajacy pole i wysokość

pole trójkąta mając trzy boki obliczysz ze wzoru Herona: P=pierwiastek(p(p-a)(p-b)(p-c)), gdzie p=(a+b+c)/2, a znając dwa boki i kąt miedzy nimi: P=1/2ab*siny, no i teraz wystarczy to przeniesc do pascala:), proponuje na warunku zapytac o dane które znamy (albo 3 boki, albo 2 i kat miedzy nimi) w zależności od wyboru użytkownika, zapytać go o te dane...

Pascal - Witam.Nie mogę sobie poradzić z programem

Co do normalizacji: Owszem pierwiastek jest liczbą zmiennoprzecinkową ale to nam nie przeszkadza w obliczeniu pierwiastka z liczby całkowitej np z: 2 przecież nikt nie zmusza wynik tego pierwiastka z powrotem do tej zmiennej całkowitej pchać. Więc normalizacja ma polegać na stworzeniu zmiennoprzecinkowej tablicy lub tylko na wyświetleniu wyliczonych...

Jak obliczyć pierwiastek trzeciego stopnia w Ada95?

To jeszcze zależy czy masz użyć funkcji obliczającej pierwiastek czy po prostu obliczyć pierwiastek, ja się uczyłem na pascalu to właśnie tak nam kazała robić pierwiastki bo się wtedy pamiętam pytaliśmy jak to zrobić, ale nie wiem jak jest u Ciebie.

[Pascal] Jak obliczyć liczbę składników sumy przekraczającej n w Pascalu?

W/g Wiki mamy: 1+2+3+...+x = x(x+1)/2 szukamy x(x+1)/2 >= n no to mamy 1/2x^2 + 1/2x - n >= 0 czyli znane równanie kwadratowe, interesujący jest tylko dodatni pierwiastek delta to (1/2)^4 + 4*1/2n = 1/4 + 2n zero mamy dla (-b+sqrt(delta)) / (2a) = -0.5 + sqrt(0.25+2n) interesują nas tylko rozwiązania całkowitoliczbowe, tu trunc(zero+1)

Turbopascal – iteracja pierwiastka Banacha, zakończenie przy powtórzeniu wyniku

Witam. Mam problem w wykonaniu pętli Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .

Co lepsze Turbo Pascal 7.0 czy Free Pascal (FPC 2.0)

Witam Posiadam dwa wymienione w temacie kompilatory których używam na przemian. Uczę się pisać proste programy z książek o programowaniu w Turbo Pascalu.( które są dosyć stare ) Jak do tej pory szło mi wyjątkowo dobrze ale natrafiłem na pewien problem. Niektóre przepisane z książki programy nie chcą się kompilować na free Pascalu. Natomiast na Turbo...

Proszę o pomoc z dwoma zadaniami z Turbo Pascala!!!

Jak najszybciej potrzebuje rozwiązanie tych dwuch zadań w języku Turbo Pascal: 1. Napisz program, który czyta liczbę naturalną n, 1<n<=10, w tablicy dwuwymiarowej tworzy tabliczkę mnożenia dla liczb naturalnych z przedziału Wskazówka Trzeba zadeklarować tablicę dla najwiekrzego n, czyli 10. a w programie korzystać z jej części odpowiednio do wczytanej...

Jak napisać program w Pascalu do pierwiastkowania kwadratowego?

Tak. Te programy powyżej są złe. Potrzebuje program przykładowo podaje liczbę 2 i otrzymam wynik 4. Jest ktoś w stanie przysłać mi taki program? Zastanów się co piszesz: podniosłeś do kwadratu! Podam kod, mimo że nie powinienem bo nic sam nie zrobiłeś. Ale komentarza nie dodam, ani nic nie zrobię z wcięciami i schematem blokowym kodu. Popracuj sam....

Błędne obliczenia sumy w funkcji suman w Pascalu - jak naprawić?

dziekuje bardzo, pomoglo:) teraz mam inny problem, poniewaz nie potrafie pomnozyc tablicy przez pierwiastek np. t[i]*(19/100) to niestety nie dziala, jak sie mnozy przez zwykla liczbe to dziala a jak chce zrobic pierwiastek czyli dodaje dzielenie to juz niechce skompilowac, macie jakies pomysly jak to zrobic??

Turbo Pascal - Jak dodać funkcję silni do kalkulatora?

Witam Mam problem nine moge zrobić kalkulatora zeby liczył silnie proszę o pomoc !!! To mój program !! Program kalkulator; uses crt; var liczba1,liczba2,wynik,i:real;znak:char; label {menu,poczatek,dodawanie,odejmowanie,dzi... procedure MENU; forward; { ****************************************...

Jak obliczyć arcsin, arccos, arctg, arcctg w Pascalu?

sqrt - pierwiastek kwadratowy (square rot) sqr - kwadrat (square) arctg x + arcctg x = π/2 (dla x=0; dla przeciwnych jest to - π/2)

Jak napisać kalkulator w Turbo Pascal z funkcjami matematycznymi?

Program kalkulator; uses crt; var a,b,c,w,w1,w2,w3,w4,w5:real;znak:char; label {menu,poczatek,dodawanie,odejmowanie,dzi... procedure MENU; forward; procedure DODAWANIE; begin clrscr; writeln('obliczenie wyrazenia a+b+c'); write('a='); read(a); write('b='); read(b); write('c='); read(c); w:=a+b+c; writeln('wynik...

Jak w C++ obliczyć pierwiastek n-tego stopnia i operacje na zbiorach?

ad.1. W przypadku tego typu działań najczęściej logarytmuje się obie strony, a potem w razie potrzeby używa funkcji e^x, dzięki czemu otrzymujemy równoważny wzór z wykorzystaniem funkcji log i exp. ad.2. Tutaj trzeba zastosować w zasadzie dowolną strukturę słownikową, np. listę jednokierunkową, tablicę haszującą, albo nawet długie pole bitowe (jak to...

Jak stworzyć prosty kalkulator w Pythonie dla początkujących?

Programy się zwykle pisze a nie robi :) Przy pisaniu programów musisz wykonać następujące kroki: 1. Zdefiniować problem W przypadku twojego kalkulatora musisz określić: - typ obsługiwanych danych - czy to będą liczby wyłącznie całkowite czy całkowite i ułamkowe (ogólnie mówiąc rzeczywiste) - rodzaje działań jakie ma wykonywać twój kalkulator, np. dodawanie,...

Gdzie znaleźć kod prostego kalkulatora w Turbo Pascalu?

Karolatka: Nadużywasz begin,nie jest to błędem,ale program staje się nieczytelny. Poza tym,jak poprzednik zauważył należy w miarę możliwości nie używać goto,zastępując go wywołaniem fcji i procedur. Wytłumaczyć należy zastosowanie deklaracji forward. W Pascalu wywołanie procedury z wnętrza innej procedury jest zakończone powodzeniem,gdy wywołana procedura...

Tworzenie menu w Turbo Pascal dla kalkulatora z powrotem do wyboru działania

Witam. Tworzę właśnie kalkulator w TP i mam takie pytanko: jak stworzyć takie jakby menu aby powracało do wyboru działania (mnozenie, dodawanie itp.). uses crt; var wybor,liczba1,liczba2:longint; begin clrscr; write('Witaj w kalkulatorze! 1-dodawanie, 2-odejmowanie, 3-mnozenie, 4-dzielenie, 5-pierwiastek, 6-potega do 2, 7-potega do 3, 0 (zero)...

[Pascal] Jak połączyć funkcje w kalkulatorze: dodawanie, odejmowanie, mnożenie?

mam dwa kody które napisałem do szkoły teraz dostałem zadanie połączenia tego by wyglądało jak kalkulator o to kod FUNKCJI : uses crt; VAR a,b,l,wynikh,x1,x2:integer; o, d,c: char; e,s:string; reszta,i,j:integer; wx,wy,w,x,y,a1,b1,c1,a2,b2,c2,pdelta,del... wynik:array[1..20]of integer; function dodawanie(a,b:integer):i...

FFT i wyświetlanie widma – jak poprawnie uporządkować dane spektrum z FFT?

:arrow: hunterhouse Dobrze, ale nie wszystko, nie zgadza się z algorytmem :( W sumie to się zgadza, ale tylko dla 3 próbek, ale te 3 próbki to za mało. aby zapisać sygnał 31 Hz (najniższa częstotliwość filtrowana) przy próbkowaniu 44.1kHz potrzebujesz aż: 44100/31=1423 próbki. Do atmega można chyba podłączyć pamięć zewnętrzną (ale nie wiem, bo nigdy...

Koszty ogrzewania w różnych regionach Polski - ceny gazu, prądu, drewna

A że przy obecnym wydobyciu zasoby gazu są szacowane na nieco ponad 40 lat eksploatacji wiele osób może dożyć tego dnia. Wcześniej dożyją kolejnych korekt prognozy. W latach sześćdziesiątych ub. w. zasoby ropy naftowej szacowano na 50-60 lat. Teraz /przy dużo większym wydobyciu/ są szacowane na 40-50 lat. Możesz podać jakiekolwiek źródło tych prognoz...

Potrzebna pomoc w Dyskretnej Transformacie Fouriera

Cześć, nie odpowiadałem ostatnio bom miał dość pijany koniec tygodnia. A to kolegę żona odeszła, a to prokuratorowi coś się przypomniało (trzeba było uczcić że niepotrzebnie), a to znowu mnie dopadły koszmary ;-). Na otrzeźwienie poczytałem sobie „Cyberiadę”. Nie do końca podziałała, ale może dla tego że, w lodówce było jeszcze trochę płynnego...

Jak wyznaczyć okres przebiegu z przesuwającym się offsetem? Autokorelacja?

(przepraszam, każdy czasem ma gorszy dzień, odczytałem, że to ja mam się kłaniać i...) Nie szkodzi, nie rozumiałem zwyczajnie Twojego oburzenia a nie jestem tutaj nowicjuszem (choć na tym forum tak). Tak na marginesie to coś mi się zdaje, że warto sięgnąć po DSP - choćby podstawy. Ciekaw jestem czy "biblia" DSP "Wprowadzenie do cyfrowego..." byłaby...

Jak napisać działający program do obliczania pierwiastka w Turbo Pascalu?

Mimo pięknego różowego paseczka muszę zwrócić Ci uwagę... To forum nie służy do odrabiania prac domowych i zaliczeniowych! Nie podajemy gotowych rozwiązań na tacy! Pokaż nam co już masz, wklej jakiś kod, powiedz czego nie umiesz a my postaramy się pomóc. Dokładnie wytłumaczymy o co chodzi a jeśli zajedzie taka konieczność dostaniesz gotowe rozwiązanie...

Jak stworzyć 10-elementową tablicę i procedury w Pascalu?

_h: świetnie to wygląda: suma:=suma*tablica uses crt; type TTablicaR = array[1..10] of real; procedure WczytajLiczby(var ATab: TTablicaR); procedure WczytajReal(AId: Integer; var AOut: Real); begin Write('Podaj liczbe nr ',AId); Readln(AOut); end; var vI: Integer; begin for vI := 1 to 10 do...