Znalazłem w tablicach jeszcze jedno rozwinięcie w szereg ważne dla każdego x>0: Ln(x)=2*\sum{\frac{1}{2n+1}*(\frac{x-1}{... dla n=0 do ∞ {Oblicza logarytm naturalny z dokładnością eps z ograniczeniem na ilość wyrazów ciągu maxit (by uniknąć zawieszenia się jeżeli nie udaje się osiągnąć założonej dokładności) Funkcja zwraca:...
Wystarczy sprawdzić najniższy bit liczby Jeżeli jest 1 , to liczba nieparzysta, inaczej liczba parzysta. W Pascalu dawno nie pisałem, ale to będzie coś w stylu IF ((liczba and 1) = 1) then nieparzysta else parzysta
Jak wyznaczyć liczbę odwrotną do podanej liczby? Zastosowania w elektronice, przykłady i optymalizacja obliczeń.
Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.
Witam.Jedno z sumowaniem dla przykładu zrobiłem.Z resztą kolega powinien sobie poradzić bo wzór już będzie i programiki są bardzo proste :D program suma_tablic; uses crt; type tab=array[0..10] of array[0..10] of integer; var a,b,c:tab; i,j:integer; procedure wyswietl(d:tab); var i,j:integer; BEGIN for i:=0...
http://www.dzyszla.aplus.pl/programy_i_t... = w C
Po pierwsze, to z tego co zrozumiałem, to potrzebujesz kod źródłowy, a nie plik wykonywalny, tak? Bo jeżeli tak, to jest to post w stylu: Napiszcie mi taki program, bo ja sam nie umiem. Pozatym nie wiem czy dobrze zrozumiałem problem... Potrzebujesz program, który uporządkuje zbiór liczb, np rosnąco bądź malejąco? Napisz dokładniej, o co chodzi w tym...
To jest formatowanie liczb rzeczywistych (innych zapewne tez). Ma wyswietlic liczbe (2 liczby znaczace przed przecinkiem i 2 liczby znaczace po przecinku). Tylko tyle pamietam. Jesli usuniesz to formatowanie bedzie wyswietla cala liczbe rzeczywista.
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)
Cześć. Muszę napisać program które policzy spółgłoski w zdaniu. Skleiłem coś takiego, choć jestem początkujący, działa, ale brakuje czegoś, co policzy. program spolgloski; uses Crt; var zdanie:string; licznik:byte; begin Write('wpisz zdanie: '); Readln(zdanie); for licznik:=1 to length(zdanie) do if zdanie[licznik]= 'bcdfghjklmnpqrstwxzBCDFGHJKLMNPRQSTWXZ'...
Mam do napisanie program ktory ma czytać z klawiatury liczbę naturalną n, a następnie sprawdzić ILE kolejnych liczb naturalnych (od 1) trzeba zsumować, aby ta suma przekroczyła podane n. Ma ktos jakis pomysl? Regulamin, punkt 11.1. Temat poprawiłem.
Potrzebuje wsparcia, musze stworzyc kalkulator w Pascalu dodajacy duze liczby (np. 3421910383 + 21329381291) nie bardzo potrafie sobie z tym poradzic a od tego zalezy moja ocena koncowa z programowania wiec jesli ktos by byl na tyle uprzejmy to bardzo bym prosil zeby mi go napisal albo podsunal jakis pomysl. DziEKI
Witam. Jestem kompletnie zielony w tym programie i prosze o pomoc a jest mi to bardzo potrzebne i mam takie polecenie : wczytaj liczbe calkowita i okresl czy jest liczba parzysta czy nieparzysta. Prosze o pomoc:)
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
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...
[syntax=delphi]var T: array[1..10000] of LongInt; i, max, min, n: LongInt; begin for i:=1 to n do // pętla do n gdzie n nie jest znana ... Read(n); // doiero wewnątrz pętli wczytujemy to n // tu wyliśmy z pętli ale teraz n - to ostatnio wczytana liczba max := 0; min := 0; for i:=1 to n do // pętla do któreś tam wczytanej liczby begin if T[i]> max...
Pisane na szybko więc mogą być błędy ... ;) var a,b:real; k:char; begin repeat writeln('Podaj 2 liczby i operacje matematyczna: '); write('Podaj a: ');readln(a); write('Podaj b: ');readln(b); repeat write('Operacja matematyczna +,-,*,/ : ');readln(k); case k of '+':writeln('Suma...
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):...
Witam mam problem. Tworzę prosty program w programie TURBO PASCAL(dopiero się uczę). I nie wiem gdzie zrobiłem błąd jeśli był by ktoś w stanie pomóc był bym wdzięczny. Z Góry Dziękuje. PS. Poniżej zamieszczam w/w zadanie uses crt; var a,b:string; c:integer; begin ClrScr; backgroundcolor(brown); Writeln('Jak masz na imie?'); Readln(a);...
funkcja random generuje tzw. liczby pseudolosowe wg wzoru (tzw. generator kongruencyjny) : function Random:real; begin seed:=(A*SEED+B) mod C; Random:=seed; end; Gdzie SEED - wartość początkowa, po włączeniu komputera zwykle inicjowana odczytem zegara sytemowego. A, B, C - duże liczby pierwsze mod - reszta z dzielenia. Okres takiego generatora (po tylu...
i ja się dołączam: program tablice; var x,y: byte; //współrzędne kom. w tabeli min, max: integer; //wartości max i min tab: array[1..4,1..4] of integer; //tablica suma: array[1..4] of integer; //tablica sum kolumn suma2: integer; //na potrzeby średniej sr: real; //średnia begin randomize; //dzięki temu losowane...
Zamykam bo Elektroda się dopomina
Witam Mam do napisania program w pascalu który będzie szukał największej liczby z pośród trzech podanych liczb, z wykorzystaniem instrukcji IF THEN ELSE. Program nie musi sprawdzać czy liczby są równe.
Będę musiał o tym pomyśleć jak to wykonać, bo obecnie wartości liczbowe mam w postaci pliku .txt. Pozycji jest niestety kilkanaście tysięcy. I tu trzeba każdą pozycję z każdą porównać i określić, czy te 5 liczb jest takich samych czy nie. Do tej pory robiłem tak, że otwierałem plik do odczytu, brałem pierwszą czy też dowolną pozycję i odczytywałem poszczególne...
Musisz tylko użyć zmiennych zmiennoprzecinkowych (signle, real, double, extended)
Mogłby mi ktos mi napisac program w pascalu znjadujacy 3 najwieksze liczby gdy wpsiujemy 5 do programu i wyswietlajacy je w kolejnosci malejącej, Siedze nad tym i nie moge sobie poradzić :(
Można też wczytać najpierw do stringa wszystko, a potem funkcją val spróbować skonwertować to na inta. Trzecim parametrem tej funkcji jest wynik operacji - jeśli ustawi go ta funkcja na 0, to znaczy że konwersja się udała, każda inna liczba będzie oznaczać błąd.
Dzięki wielkie, a jeżeli chciałbym tylko z systemu dziesiętnego na ósemkowy to w którym miejscu muszę zmienić?? mając do dyspozycji podaną przez Ciebie procedurę?? wynik:=cyfry[liczba_dziesietna mod 8]+wynik; liczba_dziesietna := liczba_dziesietna div 8; until liczba_dziesietna=0; coś takiego?
Tu nie ma co wyświetlać - program jest totalnie skopany (szczególnie proc. losowanie ) - właściwie to prościej było by napisać od nowa. Siedzę w robocie i na więcej nie mam czasu !
Dzięki za pomoc
Wielkie dzięki. Teraz wszystko gra.
Może zamiast write wpisz wszędzie writeln
Witam. Mam problem z pascalem ;) Mianowicie źle dzieli mi liczby na moim mini kalkulatorze, oto kod: program kalkulator ; [syntax=pascal]uses crt; var a,b : real; w1 : double; znak : char; procedure dodawanie; begin w1:=a+b; end; procedure odejmowanie; begin w1:=a-b; end; procedure mnozenie; begin w1:=a*b; end; procedure dzielenie; begin w1:=a/b; end;...
mam wlasnie zrobione tak jak to ty napisales..... i wlasnie max moze byc tylko 80 znakow i jak te znaki sie zapelnia to liczby nie chca zejsc do nastepnej lini.... max w taki sposob jak ty dales pascal moze pokazac tylko 30 liczb...
nie dziala... sproboj to zaimplementowac... ta liczba ma wygladac mniej wiecej tak; 0.00000 (ponad 100 zer)37076975 w sumie dadza liczbe majaca 500 znakow... pascal sie wylozy na tym dzialaniu dajac komunikat, ze nie moze dalej przesuwac... na mniejszych wartosciach to dziala ale wlasnie problemem sa tak dlugie liczby
[syntax=pascal]if i mod a=0 then writel(' liczba ',i,' jest podzielna przez ',a);[/syntax]
Muszę napisać program który po wprowadzeniu liczby rzeczywistej sprawdza czy jest ona podzielna przez 3 jednak gdy wprowadzam zmienną rzeczywistą Pascal twierdzi że "jest to niekompatybilny typ zmiennej" [syntax=pascal]program hest; uses crt; var x:real; begin clrscr; writeln('Podaj liczbe: '); readln(x); if x mod 3=0 then writeln('Liczba jest podzielna...
Wystarczy stworzyć tablicę dla histogramu - będziesz ją indeksowała wylosowaną liczbą zwiększając wartość tej pozycji o 1 (1 wylosowana). Na koniec wystarczy znaleźć największą wartość i wyświetlić na którym jest indeksie - to bedzie najczęściej losowana liczba.
kiedy pascal dochodzi do miejsca gdzie jest koniec liczb to zwraca zera za każde puste pole, ale kiedy zaro będzie wpisane jako liczba w pliku to już nie posortuję. Napisałem prog co sortuje liczby w pliku ale w tych liczbach nie może być zera, jak to zrobić aby prog brał pod uwagę zero? Ten kod źródłowy niestety nic mi nie mówi, ale jeszcze go poanalizuję....
Jeśli nie będzie jakiej kolwiek liczby podzielnej przez 2 (w całej tablicy). Ma wyświetlić przykładowo "BRAK" A w napisanym programie będzie wypisywał za każdym razem, gdy nie będzie spełniony warunek dzielenia. Mam nadzieje, że już jaśniej.
Witam!! Otóż mam do zrobienia program losujący liczbę, my w 15 próbach musiamy odgadnąć jaka to liczba. Niestety wyskakuje mi Error podany w temacie. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum Wpadłem na pomysł. Nie wiem czy będzie poprawnie działało, ale jak narazie błędu nie pokazuje: G:RANDOM (50)+1 ; REPEAT H:RANDOM (50)+1 UNTIL H<>G; Będzie to dobrze śmigać :D? Cofam to. Przy włączeniu programu wszystko...
Jakoś sobie poradziłem... ale pojawił się następny problem:cry: Program losuje i wyświetla statystykę ale.... Właśnie.... w kolumnie.... i widoczne są tylko liczby od "26" do "49"... pozostałe znikają poza okno.... (korzystam z FREE PASCAL pod Windows)... Czy nie można tego jakoś poprawić. żeby np. wyświetlał statystykę w dwóch kolumnach ???, żeby widoczne...
Witam serdecznie! Mam do Was ogromną prośbę. Muszę zrobić 3 proste zadania w języku Pascal Zadanie I Wejście Pierwszy i jedyny wiersz wejścia zakończony znakiem nowej linii zawiera liczbę całkowitą z zakresu 0..255. Wyjście Pierwszy i jedyny wiersz wyjścia zakończony znakiem nowej linii powinien zawierać osiem cyfr z zakresu 0..1. Przykład Dla danych...
Tak mało Pascala w tym Pascalu, że pan Wirth się przewraca. :) Napisz przynajmniej jaka jest treść Twojego zadania, bo teraz wszyscy się domyślają, niestety. Ja nie wiem co masz właściwie zrobić z tą funkcją, znaleźć miejsca zerowe (delta) czy stablicować i pokazać na wykresie? A może i to i to? A co do samego zadania, to rób po kolei, Masz już wczytywanie...
Nie moge poradzić sobie ze zrobieniem programu ,Licze na wsza pomoc. zad Dany jest plik dane.dat a w nim ciag liczbowy . W zalozeniu tego ciagu liczby powinny byc na przemian parzyste i nieparzyste. a)napisac procedure sprawdzające czy liczby sa ulozone na przemian b) napisac procedure ktora przepisze z pliku liczby nieparzyste do tablicy a i zad 2...
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; index <=ile; index++) { liczba = n + index;...
Pisząc takie bzdury nigdy nie nauczyś się poprawnego programowania. Już w poprzednich postach ktoś sugerował Ci zastąpienie procedury "read" przez "readln": uses crt; var liczba1,liczba2:longint; begin clrscr; writeln('Podaj pierwsza liczbe'); readln(liczba1); {!!! odczytanie liczby i wszystkich znaków do końca linii, w tym...
Dobra, podstawowy, dosowy pascal nie ma inttostr ani strtoint. Można jednak zastąpić w tym szczególnym przpadku w dość specjalny sposób - liczby, jakie będziemy konwertowac nigdy nie przekroczą zakresu 0..9. Stąd zamiana znaku (tak znaku!) na liczbę będzie wyglądała tak: [syntax=pascal]function CharToInt(const c: Char): Integer; begin Result:=Ord(c)-Ord('0');...
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...
Witam! Jako, że jestem kompletnym początkującym jeżeli chodzi o programowanie, a program, który tu opisze jest mi bardzo potrzebny, zwracam się z prośbą o pomoc w napisaniu takiego oto programu: Chodzi o program, który dzieli liczby w zakresie od 2,00 do 12,00 przez stałą liczbę, którą jest 0,85. Dobrze by było gdyby ten program miał możliwość ponownego...
No skoro potrafisz zrobić, to co za problem liczby zastąpić zmiennymi, które uzupełni użytkownik?
Łap, tylko że zamiana jest z dwójkowego na dziesiętny, a później z dziesiętnego na dwa pozostałe... no i zakładamy że użytkownik jest uczciwy i podaje nam na wejściu tylko 0 i 1 ;] uses crt; var binarna:string; function potega2(pot:integer):int... var i,wynik:integer; begin wynik:=1; for i:=1 to pot do wynik:=wynik*2;...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
pascal liczby parzyste liczby pierwsze pascal tablica pascal liczby pierwsze
gasną światła skoda fabia volvo silnika modul electrolux
makita migają diody bateria niteo
Ustawienia zasilania w Ubuntu Server - pliki konfiguracyjne Wymiary ekranu 16:9 o przekątnej 114 cali
