Dane są liczby naturalne n i k(n<=k) typu Word. Napisz program, który obliczy sumę pierwiastków kwadratowych liczb naturalnych ze zbioru {n, n+1, ..., k}. void funkcja(unsigned int n, unsigned int k) { unsigned int wynik, ile,liczba; ile = k - n; for(unsigned int index;...
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...
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...
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;...
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...
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=');...
Witam. Jestem nowy na tym forum, od pewnego czasu bawie sie pascalem i mam problem z jednym programem ktory napisalem a dokladnie z rozszyforwaniem co zrobilem zle. Napisalem kalkulator ale po debugu pojawia sie "syntax error, ; expected but UNTIL found" gdy klikam na ten napis pokazuje mi ostatnia linijke...
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...
Napisałem program na zajęcia z informatyki, który ma wyliczać miejsca zerowe program dwumian; var a,b,c: real; d: real; x1,x2:real; y1,y2:real; ... współczynniki równania'); readln(a,b,c); ... a=0 then begin if b=0 then writeln('równanie...
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 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.
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...
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...
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)...
_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); ...
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...
sqrt - pierwiastek kwadratowy (square rot) sqr - kwadrat (square) arctg x + arcctg x = π/2 (dla x=0; dla przeciwnych jest to - π/2)
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...
Poprawiłem "odrobinkę" ten twój kod. uses crt; VAR a,b,c : integer; o : char; function dodawanie(a,b:integer):i... dodawanie:=a+b; end; function odejmowanie(a,b:integer):... odejmowanie:=a-b; end; function mnozenie(a,b:integer):in...
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...
Witam. Potrzebuję program w Turbo Pascalu do obliczania wielkości pierwiastka. Kolega mówił że znajdę w internecie. Owszem znalazłam, ale nie działa :( Jak ktoś jeszcze się na tym zna i napisze co oznacza każda ważniejsza linika będę wdzięczna. Bardzo proszę o pomoc.
dzięki wielkie!!! już prawie sami to zrobiliśmy jak nas naprowadziłeś na typy danych :) niby liczył ale trochę się mylił :) chwała dla takich ludzi jak ty! :D dodam jeszcze ze to działa na free pascal, na borland pascal wyskakuje jakiś błąd, moze tam niema jakiś opcji, nie ważne :) wyskakuje przy...
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...
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) -...
: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...
(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...
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...
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...
Witam. Mam problem w wykonaniu pętli Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
