liczby pierwsze pascal

Jak napisać funkcję zwracającą liczby pierwsze w C i Turbo Pascal 7.0?

http://www.dzyszla.aplus.pl/programy_i_t... = w C

[PASCAL] Jak napisać funkcję zwracającą liczby pierwsze w tablicy?

a po co record? wystarczy typ. Ponadto - widzę niezgodność typów tablicy z n i for n:=z to n do - zagrożenie pętlą nieskończoną! uzywasz tej samej zmiennej po obu stronach. nie ja uzywam tylko przerobilem ten program co byl, autor powinien sam popracowac - ja podpowiadam....

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

Masz już funkcję, która sprawdza Ci, czy dana liczba jest liczbą pierwszą?

[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...

Turbo Pascal, program ma wypisywać liczbe pierwsze.

// w tym miejscu stoję, wymyśliłem pewien algorytm ,że liczba pierwsza to taka która (a mod 2) będzie <> 0 oraz ,że liczba a nie jest podzielna przez żadną z liczb aż do a-1.. Pomyślałem ,żeby zwiększać i=i+1 i znowu sprawdzić czy a mod i=0 Ten pomysł jest dobry, sprawdź taki kod (spróbuj to dokładnie zrozumieć): readln(n); a:=2;...

Pascal: Program rozkładający liczby na czynniki pierwsze z użyciem pętli while

[syntax=pascal] program xxx; uses crt; const format=10; var liczba,i,j,licznik,pom:integer; begin write('Podaj liczbe calkowita:');readln(liczba); i:=2;j:=2; pom:=liczba; while i<pom do begin while (pom mod j)=0 do begin writeln(pom:format,' | ',j); pom:=(pom div j); j:=2; licznik:=licznik+1; end; j:=j+1; end; writeln('1':format, ' | 1' );licznik:=licznik+1;...

Sortowanie liczb pierwszych w Pascalu - zapis do pliku wynik2.txt

Witajcie, miałem do napisania program, który miał odczytać liczby z pliku dane.dat, następnie wybrać z nich tylko liczby pierwsze i zapisać wynik do pliku wynik1.txt, a na sam koniec posortować liczby pierwsze od największej do najmniejszej a wynik zapisać do pliku wynik2.txt. Kodzik mam, i działa on do momentu wybierania liczb pierwszych, niestety...

[Pascal] Program losujący 5 liczb bez powtórzeń.

A nie można użyć własnego algorytmu do losowania. Trochę tego jest, głównie oparte o liczby pierwsze. Sam generator może już zapewnić wylosowanie bez powtórzeń.

[PASCAL] PASCAL – sortowanie zbioru liczb metodą wyszukiwania maksimum – przykładowy kod

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...

[Turbo Pascal] Jak w Turbo Pascalu dodać lub odjąć liczby w tablicy dwuwymiarowej?

Witam Proszę o pomoc w zadaniu: Muszę w Pascalu napisać program, w którym na początku program pyta o wielkość tablicy ... liczby:(array[1..x, 1..y] of integer; ... a następnie wprowadzam dane do tablicy. I ostatni krok to liczby te muszę do siebie dodać lub odjąć. koniec zadanie pierwszego. Następne zadanie już sobie poradzę analizując to pierwsze....

[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...

Źródła funkcji random() w C++, Delphi, PHP - różnice w implementacji

Większość języków używa generatora kongruencyjnego liczb pseudolosowych (różnice mogą być w stałych): x_{n+1}=(a*x_n+b) mod (c) gdzie a,b i c duże liczby pierwsze xn - poprzednia liczba losowa przechowywana np. w zmiennej SEED Pascala mod - reszta z dzielenia

[Turbo Pascal]Szyfrowanie RSA i program się wywala ? pomocy

W zasadzie w kodzie widać żę to: " {1.} i:=random(1)+40; {max 79} M:=((i*i)-(79*i)+1601);{obliczanie pseudo losowe liczb pierwszysch}" da zawrotną liczbę pierwszą = 41 a to chyba nie jest za wielka liczba piwerwsza do działań. To coś innego :(

Free Pascal IDE 2.6.0 Win32 - Program urywa się po wprowadzeniu danych

Problem nie jest z Free Pascalem, tylko z twoim kodem ! Wpisz taki kod i zobacz czy działa : [syntax=pascal]VAR liczba1:longint; liczba2:longint; BEGIN writeln; writeln('Podaj pierwszą liczbę'); readln(liczba1); writeln('Podaj drugą liczbę'); readln(liczba2); writeln('Ich suma wynosi: ',liczba1+liczba2); writeln('Nacisnij ENTER, zeby zakonczyc.'); readln;...

Pascal - Wypisuje tylko 4 pierwsze, następne tylko po enterze, co jest?

Program ma wypisywać liczby pierwsze od podanej x do n Problem w tym, że wypisuje tylko cztery pierwsze, następne wypisuje dopiero po wcisnieciu enter. Nie wiem o co chodzi. Nastepna rzecz, że nie chce wypisywac ich w rządku, mam na mysli 1 2 3 4... a wypisuje 1,2,... potem enter musze wcisnac i znowu 1,2 albo tylko 1dna wypisze. Ktos wie moze gdzie...

Pascal / Delphi - Algorytmy znajdujący takie samy liczby

Zastosuj pętlę w pętli, pierwsza pobiera kolejne wartości z pierwszej tablicy, druga "przelatuje" po tablicy drugiej i porównuje wartość. W pierwszej możesz użyć "for" a w drugiej "while".

Turbo Pascal: Jak napisać program do wypisywania dzielników liczby?

po co ten while? o instrukcji warunkowej if się słyszało? Przecież to spełnienie warunku braku reszty z dzielenia ma skutkować wypisaniem dzielnika. Mają być wypisane wyłącznie dzielniki będące liczbami pierwszymi? Jeśli tak, to proponuje napisać funkcję sprawdzającą, czy dana liczna jest pierwszą i dorzucić ją do warunku na wypisanie w przypadku spełnienia...

Jak napisać program wypełniający tablicę N unikalnymi losowymi liczbami?

Po pierwsze jaki język c++, delphi, pascal, asm co my wróżki!!!! Jak w c++ poszukaj info o funkcji random, rand, randomize

[Pascal] Jak w Pascalu zapisać wczytaną liczbę całkowitą słownie?

Gory (bez obrazy) lecz z ifami to troszeczkę przesada .Wyobraź sobie program który dla liczby z np 50 zerami robi to poprzez if . Po pierwsze zauważmy że np 2 to"dwa" a 2000 to "dwa"="tysiące" . do tego dochodzą "dwadzieścia ,dwieście itp" oraz "miliony ,tryliony" lecz to też są np. "dwa miliony" Automatycznie liczba ifów nam spada . Pozostaje nam tylko...

[Pascal] Jak uniknąć duplikatów przy losowaniu drużyn w Pascalu?

Ale jak to sprawdzić? :( Wylosowane liczba jest to nr komórki tablicy. Mam sobie taką tablice: [1][2][3][4][5] 1: nr1 2: nr2 3: nr3 4: nr4 5: nr5 Losuję teraz liczby i przypisuje tą pierwsza tablice przypisuje do wylosowanych liczb [1] - zmieniam na [los1] [2] - na [los2] Tylko jak sprawdzić czy już taka liczba się wylosowała ? :(

[Dev-Pascal] Jak dodać sumę i iloczyn do tablic w Dev-Pascalu?

[syntax=pascal] tablica[25]:=0; for l1 := 1 to 24 do begin write('Podaj liczbe nr ',l1,': '); readln(tablica[l1]); tablica[25]:=tablica[25]+tablica[l1]; end; [/syntax] to dla pierwszego przypadku, z drugim już chyba sam se poradzisz ;] Zwróć uwagę jeszcze na to, że w tablicach masz elementy typu byte, jeżeli podasz 24 liczby większe od 10 to wynik "nie...

Jak działa losowanie i interpretacja kodu w mikrokontrolerze?

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...

Jak stworzyć schemat blokowy dla programu generującego liczby pierwsze?

Witajcie. Mam problem ze stworzeniem schematu blokowego do programu poniżej. http://obrazki.elektroda.pl/2841827400_1... Mógłby ktoś przedstawić schemat dalszej części? Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę poprawić. - arnoldziq

Pascal i prosty program... dzielenie, drukowanie wyniku itp.

Po pierwsze, to nie ma czegoś takiego jak reszta z dzielenia liczby rzeczywistej. Trzeba najpierw dokonać konwersji na całkowitą, a nastęnie można co najwyżej dopisać część ułamkową. Po drugie - Twój zapis w poście nie bardzo pokrywa sie z zapisem w kodzie.

[Pascal] Jak napisać program w Pascalu: wektor wierszowy o zmiennym wymiarze?

Wygląda dobrze :) Można tylko nieco zoptymalizować wyszukiwanie liczb pierwszych - wystarczy szukać do połowy z badanej liczby.

[PASCAL] Jak zsumować i posortować liczby z tablicy w programie?

Witam. Potrzebuję programu, a oto jego parametry: - musi zsumować liczby z 5 tablic (pierwsze musi poprosić o wpisanie 5 dowolnych liczb, dopiero potem je zsumuje) - musi "segregować" rosnąco liczby (od najmniejszej do największej) - wynik wygląda następująco: "Suma liczb to: #, a ich kolejność w porządku rosnącym to #" Na razie wymęczyłem tyle: Proszę...

Pascal - rozkład na czynniki pierwsze, błędy w kodzie, niepoprawne wyjście

Ale ja napisałem co tu jest zrobione. To nigdy nie miał być kompletny program tylko ta część, która była w 1 poscie. Pisałem że trzeba dodać pętlę do powtórzenie algorytmu tyle razy ile jest liczb. Miałem nadzieję że to widzisz w kodzie prostym zresztą. :-) Nadal uważam, że ta część działa. Program wczytał pierwszą liczbę 3 i podał jej dzielniki, tylko...

[Turbo Pascal] Jak napisać program w Turbo Pascalu do konwersji kwoty na słowa?

Po pierwsze napisz szkielet programu wyliczającego poszczególne elementy liczby (miliardy, miliony,tysiące,setki ...) Rozpisz sobie końcówki w poszczególnych grupach zależnie od 2 ostatnich cyfr mnoznika 1 - tysiąc 2,3,4,22,23,24 - tysiące 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,... -tysięcy itd. i na podstawie tego rozpisz warunki....

[Pascal] Program zamieniający liczbę binarną na dzięsiętną.

Jak narazie zacząłem czytać o schemacie Hornera. Załóżmy mam sobie liczbę 1101 czyli 13 W schemacie hornera wyczytałem, że kolejne cyfry - współczynniki wielomianu. Czyli a0=1 a1=1 a2=0 a3=1 W(x)=((a0x+a1)x+a2)x+a3 W(2)=((1*2+1)*2+0)*2+1=13 Wszystko sięzgada i mam pomysł na program, ale nie wiem jak odczytać że pierwsza jedynka to a0, a druga to a1...

Ocena programu w Pascalu: rekordy i losowanie liczb 1-49 bez powtórzeń

Przy takim type (rekordowym) jak masz teraz, to sortowanie będzie olbrzymim problemem. Nie bardzo można posortować części rekordu. Nie bardzo rozumiem czemu ? własnie do kodu dopisałem Teraz kwestia interpretacji tego zadania; czy za "typ rekordowy" uznamy: Nie wiem o co chodziło nauczycielowi :/ profesor na to zionie żywym ogniem jak zobaczy. :p Kiedy...

[PASCAL] Jak napisać program w Pascalu do dzielenia pisemnego z użyciem pętli?

Wczytujemy liczby, pierwsza liczba > dzielnika jakie działanie program ma tutaj wykonać? a mod dzielnik = 0 ? Jakie maja być to działania, kolejność i schemat programu rozumiem, co ze sprawdzaniem, porównywaniem i dopisywaniem kolejnych liczba, oraz jak wspomniałeś wyżej reszta tymczasowa. W jaki sposób to zapisać jaką funkcją :?:

Propozycje prostych i efektownych programów w C++ lub Pascal na ocenę 6

Ja bym radził kolego mój drogi, abyś napisał program taki oto właśnie. Jest to program mówiący czy jest to liczba pierwsza czy nie. Jeżeli masz jakieś pytania daj znać. Pomoge. #include <iostream> #include <conio.h> using namespace std; int main(int argc, char* argv[]){ int a,b,i; int ile=0; cout<<"liczby...

FreePascal - Wyświetlanie liczby WORD w oknie MessageBox

Po pierwsze, Word w Pascalu ma 2 bajty, natomiast typ Char, w zależności od kompilatora i jego wersji od 1 do 2 bajtów, w zależności czy kompilator jest "Unicode ready" czy nie. Jeżeli chcesz wyświetlić jakąkolwiek informację w MessageBox, to raczej należy ją podać jako PChar a nie Char. Co za tym idzie, proponuję zastosować taką składnię : [syntax=delphi]var...

[Turbo Pascal] - Jak wyświetlić parzyste i nieparzyste liczby w tablicy?

bez randomize jest ,żebym miał te same liczby dzięki za pomoc z przekątnymi w końcu skumałem zrobiłem z nieparzystymi - luknij program tablice; uses CRT; var T :array niby ok tylko czemu sprawdza mi tylko 3 wiersz a te 2 pierwsze nie ?? jak dam np. for j:=1 to 3 do if (i mod 2)=0 then T to mi sprawdza 2 wiersz i ewent. zamienia na 0 tak jak powinno...

[Pascal] Jak napisać program do przeglądania plików tekstowych?

zrobic tablice stringow i do niej wpisac tekst z pliku na poczatku wyswietlic pierwsze 24 linie zrobic zmienne przechowujace od ktorej linii do ktorej linii wyswietlac, po nacisnieciu np. strzalki w dol zwiekszyc obie zmienne i wyswietlic ponownie tekst, po nacisnieciu strzalki w gore zmniejszyc obie zmienne i wyswietlic ponownie tekst, mozna tez obsluzyc...

Free Pascal - Jak dzielić liczby rzeczywiste typu 0.005?

Witam potrzebuje pomocy. Mialem napisac program na dzielenie dwoch liczb, wszystko poszlo ladnie program dziala tylko ze nie mam pojecia jak to zrobic zeby mozna bylo dzielic liczby typu 0.05x 0.4. Prosze was o pomoc, ponizej zamieszczam kod programu [syntax=pascal]program dzielenie2liczb; var a,b:integer; procedure jp; begin writeln('Dzielenie dwoch...

Turbo pascal - Jak ugryźć początek programu tablica z funkcja randomize?

Dzięki za pierwszą część programu trochę ją przerobiłem bo chodziło mi bardziej o coś takiego [syntax=pascal] program ja; USES CRT; VAR tab:array[1..20] of integer; n,m,i:integer; BEGIN clrscr; randomize; m := 20; n := 59; for i:=1 to 20 do tab[i] := Random(n-m+1)+m; for i:=1 to 20 do writeln(tab[i]); readln; END. [/syntax] a jak teraz wstawić wybieranie...

[Pascal] Dwie tablice, wyszukiwanie minimum i sortowanie "kopiowaniem"

Witam, otóż posiadam dwie tablice liczb całkowitych. Potrzebuję jakieś nakierowanie, gdyż do jednej losuję z pewnego zakresu liczby, znajduję minimum... Teraz potrzebuję te minimum wpisać do drugiej tablicy(wskaźników) tyle razy(bez powtarzania sie wartosci), aby ona była posortowana od najmniejszego do największego. [syntax=delphi]for j:=1 to 10 do...

[Turbo Pascal] Czy schemat blokowy dla programu w Turbo Pascal jest poprawny?

Witam Mógłbym prosić kogoś o sprawdzenie tego schematu blokowego? O ile co do działania programu nie mam wątpliwości to już co od schematu nie jestem pewien czyt wszystko sobie dobrze wyrysowałem. Poniżej zamieszczam kod źródłowy i schemat. program liczby_pierwsze; uses Crt; var n,i:integer; lp:boolean; begin lp:=true; writeln('Podaj...

[Pascal] Jak w Pascalu przypisać tablicy unikalne losowe liczby?

ale ja zrzęda jestem, do wszystkiego muszę się przyczepić (szczególnie kiedy na czymś się znam) O!!!! jest pierwszy (w dwu wątkach o tym samym) kawałek kodu który robi to co ma robić, choćiaż ;) to -1 "magiczna liczba" a co jeśli chcemy losować także ujemne liczby? lepiej już BREAK (szkoda że nie zadziała - przy tak napisanych pętelkach dam rozgrzeszenie...

Delphi - zawieszanie się programu przy sortowaniu liczb po kliknięciu buttonu

Skleiłeś jakieś 3 fragmenty kodu i w ogóle nie wiesz, co one robią. Skoro wkleiłeś:[syntax=pascal] for i:=0 to 4 do memo1.lines.add(IntToStr(t[i]));[/syntax... to ile liczb ma się wyświetlać, jak nie 5? Jak podajesz w edicie 4, to tylko 4 pierwsze liczby są losowane od 0 do 99 (a nie 100) - czemu piąta miałaby też być wylosowana? Na piątym miejscu w...

[Pascal] Liczenie liczb dodatnich i ujemnych oraz analiza macierzy 3x4

Witam, w szkole na zaliczenie mam zadanko z Pascala. Nie byłem na wszystkich zajęciach stąd wiedza jest troche ograniczona (niestety taka praca). Zadanie mam takie : program ma przeczytać 10 liczb, policzyć liczby ujemne i dodatnie, a nastepnie wypisać te których jest więcej. Drugie zadanie (nieobowiązkowe) mam takie: macierz dwuwymiarowa 3x4, program...

[Pascal] Jak uniknąć powtórzeń pytań w teście w Pascalu?

Opcja pierwsza, najprostsza: do każdego pytania posiadasz flagę czy zostało już wylosowane. Losujesz numer pytania i jeśli zostało ono już wylosowane, to ponawiasz losowanie. Złożoność jest zależna od generatora liczb losowych - w najgorszym przypadku może on zwracać cały czas jedną liczbę. Opcja druga, preferowana: robisz sobie tablicę, w której umieszczasz...

[Pascal] Jak w Pascalu wylosować 4 unikalne liczby?

tJanusz: twoje rozwiązanie nr 2 po optymalizacji będzie wyglądało tak jak moje ;) a co do skromności, chodziło mi tylko o to, że chyba nieda się tego zrobić prościej. *piersza pętla: while i<=N. no bo i musi przebiec wszystkie wartości 1..N *k pomocnicza zmienna *t[i]=k, do pierwszego wolniego miejsca w tablicy zawsze! wstawiam wylosowaną liczbę...

Jak w Pascalu dodawać liczby szesnastkowe wczytane z klawiatury?

Chodzi o wprowadzanie liczb w postaci hex do programu, np. piszesz "0fe" i chcesz otrzymać 254 dziesiętnie, czy chodzi o kody klawiszy w postaci hex? Raczej o to pierwsze, więc np.: 1. Obracasz pobrany string z klawiatury (z "0fe" zobisz "ef0") i mnożysz każdą cyfrę { (ord(znak)-32)*waga } przez wagę odpowiadającą jej pozycji. Dla hex będzie to 1, 16,...

Pascal - nieprawidlowe działanie programu po kompilacji

Po prostu uczę się pisać programy w tym języku bez jakichkolwiek kursów. Miałem tylko styczność z c++ i dlatego jestem przyzwyczajony, że jeżeli kompilacja przebiegnie pomyślnie to dla mnie oznacza to że program napisany jest poprawnie. Dlatego piszę teraz ten post byście mi pomogli i ewentualnie poprawili coś w kodzie lub podpowiedzieli. Ten program...

Generator liczb pseudolosowych a ruch myszką - pytanie.

Szanowni Państwo! Ponieważ od jakości wykonywanego algorytmu, a konkretnie jakości liczb losowych w algorytmie zależy jakość wyników mam pytanie, które mnie nurtuje od jakiegoś czasu. Wbudowany generator liczb losowych z którego korzystają stare języki programowania (np. Pascal, Basic itp) korzystają głównie z odczytów zegara systemowego. Co do ASM...

Jak znaleźć pozycje liczby w wylosowanej tablicy w Pascalu?

Witam, mam do napisania program, ktory w pierwszej kolejnosci losuje 10 roznych,mogacych sie powtarzac liczb, nastepnie gdy uzytkownik wpisze jedna musi wyskoczyc na ktorym miejscu ta liczba sie znajduje. Program po czesci jest napisany, ale brakuje mi tej ostatniej informacji. np, gdy uzytkownik wpisze 5, a zostaly wylosowane liczby w kolejniosci 2,5,3,4,1,0,5,2,1,9...

PASCAL - zadanie z tablicami - jak się za nie zabrać?

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...

Łączenie trzech programów w Pascalu w jeden główny program

czesc, jest ktoś w stanie pomoc mi przy tym kodzie? Mam do napisania 3 programy, napisałem je odzielnie, ale mają stanowić jeden główny program, oczywyście po połączeniu razem nie działają, aplikacja nie chce przejść pierwszego end; //Program do zadania nr 1 program Rok_przestepny; uses SysUtils; //funkcaj jaka zostala zastosowana do zadania function...

[Pascal] Wyszukiwanie ostatniej liczby w pliku tekstowym?

uses crt,dos; var fSource:file; bufor:array[0..1023] of char; i,o,p:word; read:integer; liczba:longint; cyfr:byte; znal_liczby:array[0..1023] of longint; ind_znal_liczb:integer; procedure SwapLI(var a,b:longint); var tmp:longint; begin tmp := a; a := b; b := tmp; end; begin...

pascal - proszę o sprawdzenie programu

program sortowanie; uses crt; var tab:array po pierwsze primo to kod pisz w znacznikach CODE. po drugie primo to strasznie pogmatwany ten twój kod. domyślam się, że chcesz zrobić sortowanie w kolejności rosnącej. Program Sortowanie; uses crt; var T:array[1..20] of integer; //wyswietlanie zawartosci tablicy na ekranie Procedure PokazTab;...

Jak napisać program w Pascalu do konwersji liczby na binarną (0-255)?

masz odpowiedź na pierwsze: uses crt; var liczba: word; temp, wynik: string; begin clrscr; randomize; liczba := random(255); writeln('Liczba do prztlumaczenia: ', liczba); repeat str(liczba mod 2, temp); wynik := wynik + temp; liczba := liczba div 2; until liczba = 0; temp := wynik; for liczba :=...

Turbo Pascal - brak komunikatu po wprowadzeniu liczb, gdzie błąd?

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...

Ile pamięci zajmują konkretne rozkazy BASCOM na ATmega8? Lista pamięciożernych komend

Podobno ludzi lubi się za ich zalety, a kocha za wady. Myślę, że Bascom ma wielu miłośników, wśród których znajdzie się kilku takich co go lubią. Jest to coś stworzone dla elektroników przez elektronika. Rewelancja gdy nie chcesz podskoczyć za wysoko, ale kula u nogi pozostałych przypadkach. Warto pamiętać, że Atmel tworzył AVR'ki we współpracy z IAR'em,...

C++ liczby pierwsze w zakresie do 10^100 – typy danych i algorytm (Sito Eratostenesa)

Witam Panow. A slyszeliscie kiedys o skladaniu wartosci? Dlaczego koniecznie chcecie operowac na jednej zmiennej? Drobny przyklad: jak zapisac liczbe 728 przy uzyciu tylko zmiennych typu byte? Pierwszy bajt = 728 div 256, drugi bajt = 728 mod 256 - i operujemy na dwoch bajtach, a nie na wordzie. Takie rzeczy mozna robic dla dowolnie duzych liczb (limitowane...

Jak obliczyć sumę liczb na przekątnej w tablicy 5x5 w Pascalu?

Witam jako poczatkujaca osba , mam problem z zadaniem narazie chodzi o to by w tablicy 5x 5 wpisac w miejsca krzyzyjacych sie kratek liczby losowe od 10 do 20 a w pozozstale losowe od 1 do 10 i ta czesc zrobilem ale teraz potrzebuje obliczyc sume liczb jakie ida po pierwszej przekatnej i tutaj ugrzezłem, nastepnie bede mial obliczyc sume na 2 przekatnej,...

[Turbo Pascal] Odwrócenie kolejności wyświetlania listy elementów

Witam. Czy mógłby mi ktoś pomóc przerobić ten programik. Teraz wczytuje on liczby i wyświetla je na koniec od największej do najmniejszej. Chodzi o to żeby na koniec program wyświetlił liczby w kolejności odwrotnej do wprowadzania. Czyli że ostatnie liczba była wyświetlona jako pierwsza, przedostatnia jako druga,...... pierwsza wprowadzona jako ostatnia....

Program obliczający logarytm nat. z liczby - PASCAL

Czy mogę prosić o jakiś kod? Jak robię z tego pierwszego wzoru (tak robiłem wcześniej) to działa tylko dla liczby 1 i 2. Jak wpiszę 3 i inne to wyskakuje jakiś kosmiczny wynik.

Jak napisać symulator LOTTO do losowania liczb bez powtórzeń?

Tak zwykle komputery liczą liczby "losowe" wg wzoru (generator kongruencyjny): Xn = (A*Xp+B) MODULO C gdzie Xn - liczona liczba losowa Xp - poprzednia liczba losowa (tzw. SEED) A,B,C - duże liczby pierwsze (te podzielne tylko przez siebie i 1 ) w Pascalu funkcja Randomize oblicza początkową wartość SEED na podstawie odczytu czasomierza. Im większe A,B,C...

Procedura w Pascalu do obliczania osi symetrii dla wierzchołków

Widzę że to chyba kontynuacja innego tematu. Najpierw odpowiem na konkretne punkty, tzn. jak bym to kodował, a potem dorzucę parę uwag. 1. Musisz mieć podaną listę wierzchołków, powinna być skończona i albo możliwa do przeliczenia (jeżeli np. używa się zawsze tablicy 2x1000 i ustala się że po ostatnim "legalnym" wierzchołku występuje dana o specjalnej...

W jakim języku programujesz?

Niektóre języki takie jak Shakespeare, BeFunge, Whitespace wyglądają jak żart lub ciekawostka, ew. eksperyment i pokazanie, że można zrobić coś inaczej niż popularne rozwiązania. Mamy jeszcze : https://pl.wikipedia.org/wiki/Brainfuck a także BrainFuck wielowątkowy : https://pl.wikipedia.org/wiki/Brainfork :-) Co do pytania z tematu .. to może chronologicznie:...

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 - Tablice, znajdownie liczby doskonałej, potęgowanie

Witam! Na początek wstawiam kod: [syntax=pascal]Var tablica:array[1..10] of integer=(20,6,28,496,656,86,37,379,65,24... a:integer; b:integer; d:integer; j:integer; w:integer; begin j:=1; d:=2; for a:=1 to 10 do begin w:=(j+d)*d; if w=a then writeln('liczba ',a,' jest doskonala!') else j:=j+d; d:=d*2; end; readln; end. [/syntax] j to liczba 1, d to 2,...

Pascal: Jak wyświetlić parzyste liczby do 100 od wprowadzonej?

Rozwiązanie zadania pierwszego : program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a , b : Integer ; begin { TODO -oUser -cConsole Main : Insert code here } Writeln('Podaj liczbę ') ; Readln(b); for a := b to 99 do begin Writeln(a+1) ; end; readln end. I drugi programik : program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a , b : Integer...

Turbo Pascal - wybieranie liczb podzielnych przez 2 z tablicy

program tablica; uses crt; var t:array[1..10] of integer; i:integer; begin clrscr; writeln ('Wpisz 10 liczb'); for i:=1 to 10 do readln (t[i]); writeln('liczby podzielne przez 2 to '); for i:=1 to 10 do begin if t[i] mod 2 =0 then writeln(t[i]); end; readln; end; tak wygląda...

Jak zacząć programować mikrokontrolery w C#? Wymagane narzędzia i programatory

Cześć Zrozum, traktuj PC i oprogramownaie kompilatora jako "tłumacza". PC ma duże zasoby w stosunku do uK. I tam jest miejsce na wskażniki (wskaźnik do fukncji to wskaźnik do jej adresu czyki liczba int -> dokładnie odpowiada miejscu w pamięci gdzie się zaczyna kod fukcji), obiekty itp. Cała sztuka to przetłumaczenie funkcji w postaci kodu napisanego...

Pascal - Jak zatrzymać zamykające się okno po uruchomieniu programu?

Zacząłem naukę Pascala. I po zapisaniu jakiegoś pierwszego krótkiego programu chciałbym zobaczyć efekty...ale niestety nie mogę bo okno się zamyka praktycznie od razu i nie zdażę nawet zerknąc jak mi wyszło. Jest jakiś sposób, aby okienko się nie zamykało? Wpisywałem Readln; , ale i tak się zamyka... [syntax=pascal]program liczby; var l: Integer; begin...

Algorytm FFT. Dla większej liczby próbek pojawia się błąd.

„ ...mniejsza o to... ” no pięknie. ;-) Zobacz np. 12 rozdział w www.dspguide.com. Albo Próbki umieść w tablicy X w następującej kolejności: 0,2,4,...,n-2,1,3,...n-1 (parzyste w części RE procedure oddsort(ncap:integer; var y:longvector); //w miejscu sortuje ciąg, tab by uzyskać 0,2,4,...,n-2,1,3,...n-1 var tcap, t, j, k:integer;...

AMD i Nvidia: kolejna walka o najlepsze GPU trwa

http://obrazki.elektroda.pl/2757473600_1... Właśnie toczy się pierwsza bitwa pomiędzy dwoma GPU: Polarisem od AMD i Pascalem od Nvidia. Jeszcze zbyt szybko, aby powiedzieć, kto wyjdzie z tego jako zwycięzca, ale już teraz warto przyjrzeć się obu układom. Póki co, jak mówi Dean McCarron, dyrektor Mercury Research, zajmującego się od...

Sterowanie windą na PLC w Quick II – jak zaimplementować funkcję IF i licznik pięter

Dzięki za zainteresowanie się tematem andy1955. Właśnie wczoraj się dowiedziałem, że do mojego sterownika można po konwersji wgrywać programy napisane w C++ (lub jakimś C). Dzięki temu wiem o co Ci chodzi. Chcę również powiedzieć, że problem rozwiązałem podobnie do Ciebie, tylko że używając jedynie zasobów sterownika. Nie jest to takie straszne obszerne(przy...

Pascal - Kalkulator Logiczny na bramkach and, nand, nor, or, xor

Witam serdecznie, potrzebuję zrobić program w pascalu, który będzie liczył wartości tylko zero-jedynkowe w dodatku LOGICZNIE. Wiem jak funkcjonują poszczególne bramki etc. Ale nie wiem jak zdefiniować by program np liczył and z dwóch liczb binarnych. Czyli po dodaniu dla przykładu 0001 and 0110 poda wynik. Na tej samej zasadzie nand, nor, or i xor....

C++ losowanie liczb bez rand - alternatywne metody generowania liczb

Funkcja Random również zwróci za każdym razem ten sam wynik (w Windowsie). Dopiero Randomize (pascal) powoduje zainicjowanie generatora liczbą związaną z czasem systemowym. Jako, że wzory na liczby są nieskończone w obie strony, konieczne jest określenie warunków startowych, a więc pierwszej liczby. Dalej idzie już swoim życiem. Opisałem to (a dokładniej...

Delphi: Zabezpieczenie danych i obsługa ScrollBar dla równań kwadratowych

AD.1.Funkcja VAL, znana z Turbo Pascala działa na tej zasadzie, że jeżeli tekst podany w pierwszym parametrze dla funkcji nie jest liczbą całkowitą zwróci w ostatnim parametrze Code wartość większą od zera (będącą pierwszą napotkaną pozycją wadliwego znaku - nie będącego cyfrą). Oto przykład właśnie tej funkcji: var Str : string; I, Code : integer;...

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

W pierwszym poście Wwrroobbeell napisał "aby ta suma przekroczyła podane n", w drugim "aby suma tych liczb byla wieksza lub rowna podanej liczbie". Ceil, a owszem tyle, że wujek Wirth nie przewidział

Jakie książki dla początkujących programistów?

Co do samych początków to ja chyba mimo wszystko poleciłbym Turbo Pascala. C++ w drugiej kolejności. Grębosz do świetna pozycja zarówno Symfonia C++ jak i Pasja C++ (dla bardziej zaawansowanych). Wracając do TP to osobiście od niego zaczynałem. Wydaje mi się że jest lepszy do zrozumienia podstaw takich jak podstawowe operacje na liczbach, stringach...

Jak zacząć naukę programowania od podstaw?

BEGIN Port A więc to o to chodzi 8O 8O 8O Ty po prostu nie potrafisz programować!!!! I dodatkowo pomyliłeś odczyt z portu przez procesor z wprowadzaniem danych przez port :lol: :lol: :lol: Ach te podobnie brzmiące słówka :wink: A wiesz jaką liczbą odczytałbyś, gdyby do portu podłączone było coś o wysokoomowych wejściach? Kolego miałbyś stale odczyt...

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,...

Jak stworzyć kalkulator w Pascalu do dodawania dużych liczb?

Program dodający duże liczby naturalne: program dodaj_natur; { Testujacy dzialanie funkcji, operujacej na duzych } { liczbach (pamietanych w zmiennych typu String). } uses Crt; type TLiczba = String; function Dodaj (A, B: TLiczba) : TLiczba; { Funkcja dodaje dwie duze liczby. } var C : String;...

Laptop vs komputer stacjonarny. Sprawdź co zyskasz z dyskiem SSD

http://obrazki.elektroda.pl/4319403300_1... Polecane zestawy komputerowe i laptopy w różnych przedziałach cenowych Cena bywa kluczowym kryterium przy wyborze komputera lub laptopa, ale nawet mając określony budżet trudno zdecydować się na zakup konkretnego urządzenia. Z myślą o tym powstał ten wątek, w którym zaprezentujemy polecane zestawy...

Projektowanie aplikacji, podział SQL i NoSQL - wspólny projekt

Nie bez powodu postawiłem taki przykład, temat znany i oklepany. Kilka tabel w relacji i mamy magazyn, prawda są gotowe produkty i są też sprawdzone rozwiązania takiego modelu systemu. Ale czy backend to tylko baza danych i tabele w relacji, czy warstwa backend aplikacji nie stanęła w miejscu w odniesieniu do frontendu. Tak na prawdę od kilku lat zmienia...

Jak przetłumaczyć funkcję losującą z C++ na Pascala?

Ale jeśli pliczby z przedziału 0..x podzielisz przez x, to otrzymasz wynik z przedziału 0..1... W czym problem? Wiem że funkcja random jest w pascalu mam zapisane to w taki sposób x:=random(1000); y:=random(1); Niestety jest to źle ponieważ mam zero w wyniku. Jak to zero? Pierwsza zwróci liczby całkowite z zakresu 0..999, a druga...

Czy stare komputery były lepsze od SBC i płytek rozwojowych?

https://obrazki.elektroda.pl/7656017200_... O komputerach jednopłytkowych czy stare komputery były lepsze od współczesnych platform rozwojowych i SBC? Nie lubię Arduino I to jest jak najbardziej prawda. Arduino to platforma, która miała dać łatwy dostęp do programowania elektroniki ludziom, którzy nie znają się ani na elektronice,...

Jak znaleźć indeks największej wartości w tablicy w C++?

Koleżanka poradziła użycie conio , ale z tego co przeczytałam jest to już trochę przestarzała biblioteka, właśnie nie wiem jaką funkcję użyć , może while , bo chyba for jest złym pomysłem ?? Ale jeżeli while nie wiem wtedy jak napisać funkcje i żeby ona działała poprawnie razem z funkcją max. Najpierw pierwsza funkcja wypełniająca tabele , czyli używam...

Jakie karty dźwiękowe i interfejsy do nagrywania perkusji w domowym studiu?

Ja zachęcam do cubase, ponieważ jest to największa konkurencja dla protools, ale bardziej uniwersalna. Otwarte standardy takie jak VST, VSTi i ASIO, to właśnie standardy steinberga. Co przekłada się na kompatybilność z praktycznie każdym sprzętem - nawet karty protoolsa mają sterowniki ASIO, gigantyczną bazę pluginów komercyjnych i darmowych. Łącznie...

Tworzenie własnej biblioteki w Pascalu bez użycia crt, dos, graph

Myślę, że mechanizm oceniania zadań konkursowych w wielu przypadkach wygląda tak: 1. Użykownik przesyła kod źródłowy do oceny. 2. Program oceniający kompiluje kod (pierwsze punkty za kompilację). 3. Program oceniający testuje kod dla wybranych danych (punkty za działanie kodu). Zadanie przykładowe (banalne): Napisz w Pascalu program obliczjący sumę...

Jak zaimplementować sortowanie i wyszukiwanie w książce teleadresowej w Pascalu?

Niestety nie mam czasu pisać gotowych algorytmów dla ciebie :( wielkosc - max ilosc ludzi wpisanych tu masz przykład sortowania bąbelkowego najprostrzego dla jednej tablicy musisz dodać pytanie wg czego chcesz sortować i wtedy zamiast tablica dajesz naprzykład Nazwisko i sortują nazwiska musisz odrazu sortować resztę czyli przestawić wartości w innych...

Jak obliczyć prądy w obwodzie za pomocą Praw Kirchhoffa?

Witam, hmm i dalej nie uzyskałem odpowiedniej odpowiedzi. Chodzi o to że te zadanie jest z książki i chodzi o to jak w oni te prądy wyliczyli na podstawie ostanich równań ??? Czy mógłby mi ktos to rozpisać tak logicznie lub mie naprowadzić.. Tylko bez takich ,że to równania z 3 niewiadomymi. no tak, kiedyś to był problem z którym pierwszy uporał się...

Potyczki Algorytmiczne 2011 - szczegóły i zasady konkursu dla programistów

Najbardziej emocjonująca potyczka mistrzów programowania ruszyła Światowa czołówka polskich programistów, setki profesjonalistów, amatorów i zdolnych zapaleńców zmierzą się z najtrudniejszymi problemami algorytmicznymi w jednych z najbardziej emocjonujących zawodów dla informatyków – Potyczkach Algorytmicznych 2011. Siódma edycja tego prestiżowego...