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);...
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...
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;...
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;...
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...
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ą...
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...
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):...
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...
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...
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...
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...
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.
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)
Witam. Mam problem w wykonaniu pętli Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
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...
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...
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....
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??
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; { ****************************************...
sqrt - pierwiastek kwadratowy (square rot) sqr - kwadrat (square) arctg x + arcctg x = π/2 (dla x=0; dla przeciwnych jest to - π/2)
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...
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,...
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...
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...
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)...
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...
: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...
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...
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...
(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...
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...
_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...
pierwiastek telefon funkcja pierwiastek delta pierwiastek
pilot alarm seicento overmax tablet włączać podtrzymać sekunda
momenty dokrecania peugot momenty dokrecania
Nissan Primastar - Przyczyny Podwyższonych Obrotów Silnika Sprawdzenie legalności laptopa Dell Tag: 9M5BH74