liczba pierwsza 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ą?

Pascal - mini kalkulator - błędne dzielenie liczb, Turbo Pascal 7, Free Pascal 2.4.2

Nie wiem, co dzieje się z Twoim komputerem, ale u mnie wyniki są całkiem poprawne. http://obrazki.elektroda.pl/9373254200_1... Jeżeli wynik wychodzi ci zero, to znaczy, że najprawdopodobniej nie podajesz poprawnie 'znaku' działania i żadne z obliczeń nie są wykonywane. Kolejną strawą, jest formatowanie wyniku. Jedno co powinieneś zmienić,...

[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] Jak posortować wylosowane liczby w Turbo Pascal?

Może zamiast write wpisz wszędzie writeln

Program obliczający logarytm nat. z liczby - PASCAL

Dla |x|<1 można logarytm przybliżyć szeregiem: ln(x)=(x-1)-\frac{(x-1)^2}{2}+\frac{(x-1... ... trzeba przeskalować x do zakresu 0<x<1 i dopiero liczyć logarytm inne przybliżenia to: ln(\frac{1+x}{1-x})=\sum\frac{x^{2k-1}}{... dla k=1 do ∞ ln(1+x)=\sum\frac{(-1)^{k+1}}{k}*x^k dla k=1 do ∞

Sortowanie liczb w Turbo Pascalu trzema metodami - jak to zrobić?

www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie

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

To może nauczyciel się pomylił i chodziło mu o liczbę całkowitą?

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

Jak w PASCAL napisać program rozpoznający liczby parzyste i nieparzyste?

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

[avr-gcc] Konwersja float na tablicę char[] w avr-gcc - prostsze metody?

tylko i wyłącznie dzielenie i odejmowanie. Czyli [0]=liczba/100 (stałoprzecinkowe - pascal - div) [1]=liczba/10-[0]*100 itd. oczywiście do wykonania w pętli.

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

Algorytm w Pascalu: liczby 1-100 podzielne przez 7, 8, 9

[syntax=pascal]if i mod a=0 then writel(' liczba ',i,' jest podzielna przez ',a);[/syntax]

Jak wczytywać i określać parzystość liczb w Pascalu?

[syntax=pascal]if liczba mod 2 = 0 then...[/syntax]

Jak połączyć liczby z rejestrów w Pascalu, by uzyskać wartość 1367944?

((r4*16+r5)*16+r6)*16+r7

Pascal - Jak znaleźć najczęściej występującą liczbę w losowaniu 1000 liczb?

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.

Jak wyznaczyć przedziały z największą i najmniejszą liczbą w Pascalu?

TEMAT JUZ NIE WAŻNY. PROSZĘ O USUNIĘCIE POSTU.

[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 ? :(

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

Program do konwersji liczb arabskich na rzymskie w Pascalu.

[url=http://www.sdsi.eu.org/~wojnow/pomo... masz gotowe rozwiązanie.

Jak działa program zamieniający liczbę na słowa w Turbo Pascalu?

Witam Program działa na zasadzie rekurencji. Procedura LiczbaSlownie wywoływana jest tyle razy ile cyfr ma liczba. Dla liczby np. 123 będzie to nastepująco 1. wywołana jest procedure w programie głównym z parametrem 123. 2. Jeśli liczba jest wieksza od 9 to wywolywana jest ta sama funkcja ale już z parametrem 123 div 10 czyli 12. a) Jeśli liczba jest...

[pascal] Jak wyświetlić elementy tablicy w Pascalu za pomocą outtextxy?

d to tablica liczb, a do wyświetlenia potrzebny jest tekst. Błąd polega na niezgodności typów - musisz dokonać konwersji liczby na tekst (inttostr).

Turbo Pascal - wybieranie liczb podzielnych przez 2 z tablicy

Witam. Można wykorzystać zmienną logiczną. program tablica; uses crt; var t:array[1..10] of integer; i:integer; tak:boolean; begin clrscr; tak:=false; 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 if t[i]...

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

Free Pascal - kilka liczb losowych, jak zrobić by się nie powtarzały

http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum

Jak zaokrąglić liczby ręcznie w Pascal/Delphi?

Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.

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

Nie ma ograniczenia, mają to być liczby całkowite

Turbo Pascal – jak przekonwertować real na integer do użycia w pętli for?

Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.

[Pascal]Pętla umożliwiająca wprowadzenie n liczb

Witam Nie wiem czy Ci po trzeba pętli do tego ale to Ty piszesz ten program Możesz zrobić sobie warunek np else http://4programmers.net/Delphi/Else Pozdrawiam i miłej zabawy

Turbo Pascal – formatowanie liczb w writeln (np. p:2:4) – co oznaczają liczby?

Tak, niekoniecznie.

[pascal] [Pascal] Konwersja liczby binarnej na ósemkową, dziesiętną i szesnastkową

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

Jak napisać program losujący liczby w zakresie 100 w Turbo Pascalu?

Random(100);

Sprawdzenie podzielności przez 10 w Pascalu używając `case of`

W taki razie zrób prostą operacje mod 10, następnie przypisz jakiejś zmiennej wartość. Następnie napisz case n - podana przez Ciebie liczba [syntax=pascal]Liczba:= n mod 10[/syntax] [syntax=pascal]CASE liczba OF 0: writeln('Liczba ta dzieli się przez 10') else writeln('Liczba ta nie dzieli się przez 10');[/syntax] Chyba o to Ci chodzi

Pascal - szukam programu do wyświetlania wyników

Działa, to jest liczba zmiennoprzecinkowa, http://pl.wikipedia.org/wiki/Liczba_zmie...

[PASCAL] [C++] Potrzebny program który w pentli będzie znajdować największą...

Nie powinienem dawać gotowca, ale widzę, że często udzielasz się na Forum. W podanych kodach możesz wprowadzać liczby rzeczywiste. [syntax=cpp] #include <iostream> using namespace std; float liczba,mx=0; int main() { cout.precision(2); do { cout<<"podaj liczbe, podanie 0 konczy program "; cin>>liczba; if(liczba>mx) { mx=liczba;...

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

Jak poprawnie napisać program w Pascalu losujący liczby 1-20 bez powtórzeń?

Co do zadania jak najbardziej sie zgadzam, że rozwiazanie nie jest odpowiedzią na problem. Tu mi sie nasuwa kilka spostrzeżeń. Ile ma byc tych liczb od 1 - 20 - nie sprecyzowane. Z jaka dokładnością maja być losowane te liczby, bo jak całkowite i ma ich być 20 to po co losować? A tak na marginesie to ŻADEN program komputerowy nie ma w 100% działającego...

[Free Pascal] Jak obsłużyć błędne dane wejściowe dla zmiennych typu integer?

zmienną deklarujesz jako string a później używasz polecenia val do sprawdzenia czy została wpisana liczba.

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

aha czyli mam użyć if. a jeśli chodzi o to funkcje, że sprawdza liczbę czy ta liczba jest liczbą pierwszą to wcześniej napisałem procedurę do wczesniejszego programu i pomyśłałem że można ją wykorzystać. oto ona: function pierwsza(n:integer):boolean; var d:integer; begin d:=2; while (n mod d<>0) do d:=d+1; if n=d then pierwsza:=true else pierwsza:=false;...

[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 :(

[PASCAL] - Jak przepisać liczby podzielne przez 3 z pliku do pliku?

No, to robisz jeszcze drugie przypisanie (assign) do osobnej zmiennej textowej, otwierasz plik do zapisu (rewrite) i zapisujesz to, co trzeba. Jedna uwaga - jako, ze w pliku są liczby to odczytuj do zmiennej liczbowej, a nie tekstowej.

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

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

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

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

[Pascal] Jak napisać generator losowego ciągu znaków w Pascalu?

wszystko ładnie pięknie ale jak zatrzymać program aby pokazał te liczby?

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

[PASCAL] Sprawdzanie podzielności liczby rzeczywistej przez 3 - błąd typów

(at)akajarz - nawiasy nie są potrzebne. (at)D-Generat - nie można stosować operacji takich jak mod czy div do liczb zmiennoprzecinkowych, gdyż te operacje są ściśle związane z rozkazami podjednostki ALU procesora, a ona pracuje tylko na liczbach całkowitych. Ponadto jaki jest wg Ciebie sens sprawdzania, czy 3.1 jest podzielne czy nie? Możesz przedstawić...

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

[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ą :?:

[PASCAL] Jak pomnożyć wartości z trzech stringów w Pascalu?

Nie, mnożenie tekstów jest tak samo wykonalne, jak upieczenie mieszkania czy wyhodowanie telefonu. Mnożyć możesz tylko liczby.

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

Program w Pascalu: operacje arytmetyczne na liczbach binarnych w tablicach

Witam Mam rozwiązanie twojego problemu ale w osobnych plikach. Jest tam dodawanie, odejmowanie, mnożenie i dzilenie we wszystkich kodach (NKB, U1, U2, BDC). Musisz przejrzeć te programy i wybrać odpowiednie procedury.

[Pascal] Błąd przy uruchamianiu programu w Pascalu do sumowania ciągu liczb

Zgłaszany błąd to "niezgodność typów". Masz zadeklarowaną zmienną "a" typu word, czyli całkowitego a przypisujesz do niej wynik działania funkcji "exp". Ona z kolei zwraca wartości type real - rzeczywiste. Zmień typ zmiennej "a" na real i będzie OK. Brakuje jeszcze średników i "end;". Dołączam poprawiony program

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

A to: var n:integer; begin readln(n); writeln(trunc(sqrt(2*n+0.25&... end.

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

jak losować dwie liczy(na raz)w pascalu bez powtórzeń

jak wylosować dwie liczby w Pascalu tak aby się nie powtarzały, na rzadnym z miejsc?tzn. jak losujemy np 2 i 3 to zeby później już nie było 3 i2 ani znowu 2 i 3:)...pomóżcie.. Dodano po 11 Pomóżcie...we wtorek mam zaliczenie:(

Pascal program szukający największej liczby z pośród trzech.

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 wczytywania liczby całkowitej w Turbo Pascal - jak go naprawić?

A na czym ten błąd polega? (Umieszczaj kod w znacznikach [ code ][ /code ])

[Pascal] Jak uniknąć powtórzeń i sprawdzić trafienia w programie Lotto w Pascalu?

To widzę ,że nie rozumiesz procedury random. chcesz mi powiedzieć że nie jest możliwe wylosowanie 2 x jedynki ? a chcesz się założyć ? nr_los:=random(50-i)+1; -i oznacza ,że w 2 cyklu pętli będą losowane liczby z mniejszego zakresu czyli od 1 do 48 więc w tym zakresie też się znajduje liczba 1

Przecinek w pascalu. Bez zmiany ustawień klawiatury.

pomysły sa calkiem fajne. a wie moze ktos jaka jest procedura takiej wlasnie zamiany?? (string>liczba)??

Błąd Division by zero w Turbo Pascal przy sprawdzaniu parzystości liczby real

Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.

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

Lazarus Pascal - Obliczanie średniej harmonicznej z listy liczb

Podpowiedź: po co wczytujesz pierwszy element przed pętlą ?

PASCAL: Jak wylosować dwie liczby z tablicy i wykonać operacje?

Tablica jednowymiarowa? Użyj random() aby losował pozycje liczb z tej tablicy.

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

Jak przekonwertować string na double w Pascalu? StrToFloat nie działa

W Pascalu procedura konwersji łańcucha na liczbę nazywa się Val

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

[syntax=pascal]program abc; uses crt; var ania:array [1..5] of integer; i,j, suma : integer; begin clrscr; for i:=1 to 5 do begin write('podaj ',i,' element do tablicy '); readln(ania[i]); end; suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end; writeln('suma: ',suma); repeat until keypressed; end.[/syntax]

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

Rekord powiniej być tablicą sześciu liczb całkowitych, wtedy posortujesz normalnie jak tablicę. Losowań masz wykonać 1000 a nie 49 jak to robisz. Losowanie bez powtórzeń możesz ułatwić sobie nieco korzystając z tablicy haszującej - poczytaj sobie o tym wynalazku. :)

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

Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]

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

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

Biblioteka C/C++/Pascal do operacji arytmetycznych na dużych liczbach w tablicach znaków

...obslugujacej proste operacje (*, /, +, -) na duzych liczbach przechowywanych w tablicy znakow? Kiedys taka widzialem ale nie moge odszukac, najlepiej gdyby byla w c/c++ lub pascalu. W javie jest typ BigInteger i za pomocą niego można prosto robić operacje na dużych liczbach stałoprzecinkowych. A co do c++ to może sprawdź tutaj: http://www.koders.com/cpp/fid6BFB93B68C0...

[Pascal] Wyświetlanie lista jednokierunkowa cykliczna

wskaznik^.next^.liczba może powodować błędy

Pascal - Konwersacja liczby miedzy systemem 10 a 8 i systemem 8 a 4.

Proszę. Na początek masz uniwersalną procedurę do konwertowania z systemu dziesiętnego na dowolny inny (max. 16). Teraz, mam nadzieję, zrobisz samemu odwrotną funkcję; taką która zamienia ciąg znaków i podstawę na liczbę dziesiętną.

Pascal Turbo: tablica 10x10, losowe liczby [-10,10], minima kolumn, transpozycja

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

[Turbo Pascal] Jak napisać program obliczający silnię w Turbo Pascalu?

Nie mam pojęcia jak zrobić program podający silnię danej liczby w Turbo Pascalu. Proszę o pomoc. Zamykam. - arnoldziq

[pascal] [Pascal] Błąd kompilacji przy sumowaniu pięciu cyfr - co robię źle?

Masz błąd: program fffffffffffff; tu średnik uses crt; Var a: INTEGER; b: INTEGER; c: INTEGER; Begin Write( 'wypisz a ' ); tu ma być writeln ReadLn( a ); WriteLn( 'wypisz b' ); ReadLn( b ); Writeln ( 'wypisz c' ); ReadLn ( c ); End. program w pascalu który będzie liczył sume z pięciu cyfr Liczył sumę 5 cyfr z jednej liczby 5-cyfrowej? czy ogólnie sumę...

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

Czy dobrze rozumiem, że nie masz problemu z punktami od a do e? Trudno się czyta kod bez wcięć, ale nie zauważyłem funkcji o których piszesz. Muszą być? Spróbuj to poprawić, a okaże się, że nie masz tak dużo problemów. Ja bym to robił według takiego schematu: begin Wypełnij(tablica,ILE); WriteLn('Średnia=', Srednia(tablica, ILE)); { punkt a } itd. end....

Pascal: Jak wyświetlić 39 liczb w jednej lub dwóch liniach?

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

Pascal - Wyznaczanie najmniejszego elementu tablicy

Jakoś źle działa: http://ideone.com/ZQ5Oc5 U mnie działa, przynajmniej w programie Dev-Pascal, w którym mogę wprowadzać ręcznie jakieś liczby. W tym algorytmie najpierw podaję, ile elementów ma być wprowadzonych do tablicy, a potem wprowadzam liczby. [syntax=pascal]uses crt; var x,i,n,min:integer; tab:array[1..200] of integer; begin writeln('Podaj...

[Turbo Pascal] Jak losować liczby z przedziału 1-20 z dwoma miejscami po przecinku?

Mam pytanie: Czy ktoś mógłby mi podać kod do pascala by losował jedną liczbę od 0 do 100. Bardzo proszę!

[Pascal] Sprawdzanie czy wprowadzona zmienna należy do liczb

Pobieraj do typu string a później spróbuj użyć jakiejś procedury konwersji stringa do real albo int. Takie procedury zazwyczaj podczas nieudanej konwersji zwracają błąd co w twoim przypadku oznacza że jest nieprawidłowo wprowadzona ta liczba.

[Pascal] Przeliczanie liczby dziesiętnej na inne systemy.

Hej, mam prośbę, mógłbyś wytłumaczyć do czego służy i jak działa to całe "result"? i jeszcze jedno, program nie działa dla liczb większych niż integer, a jak zmienię wszystkie integer na real to wyskakuje typ mismash... czy da sięz tym coś zrobić, z góry dziękuję za odpowiedź

Pascal: Jak zamienić byte na string bez użycia funkcji Str?

Użyj procedury Str albo funkcji IntToStr . Napisal w pierwszym poscie ,ze nie moze tego uzyc. wydaje mi sie ,ze rozwiazanie ,ktore podalem wyzej spelni oczekiwania nauczciela :P Mozna tez obliczas calosciami jako ze wiemy licza bedzie sie skladac z max 3 cyfr : cyfra=liczba div 100 cyfradruga=(liczba-cyfra*100) div 10 cyfratrzecia=liczba-cyfra*100-cyfradruga...

Jak używać operatora modulo w Pascalu?

Jak podzielić liczbę modulo x w Pascalu (modulo - reszta z dzielenia) W C++ było %...

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

Wstaw do programu taką pętlę: write('W wylosowanych liczbach ',x,' znajduje sie na miejscu: '); for i:=1 to 10 do if liczby[i]=x then write(i,' ');

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

tak, wspomniałem o tym :) ale spróbuj już z więcej niż 1 :) prosze bardzo (liczba 50): http://obrazki.elektroda.net/46_12132890... dalej to samo (i tak samo jest dla liczby wielobajtowych) :D

Funkcje w Pascalu do konwersji znaków na ASCII i liczb na binarne

Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)

Ź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

Jak napisać program w Turbo Pascalu do znalezienia najmniejszej z trzech liczb?

najbardziej prostackie rozwiazanie jest takie program blablabla; var a,b,c: integer; begin readln(a); readln(b); readln(c); if a>b then if a>c then writeln('najwieksza jest:',a); if b>a then if b>c then writeln('najwieksza jest:',b); if c>a then if c>b then writeln('najwieksza jest:',c); readln; end. i jesli sa to twoje poczatki to zacznij od tego,...

Pascal - Algorytm sprawdzający liczbę zer w ciągu zero-jedynkowym

Łatwiej wczytywać liczbę jako string, sprawdzić czy są wyłącznie '0' i '1', a potem policzyć. Jeżeli wczytujesz liczbę dziesiętną, to zamiana na cyfry dwójkowe wprowadzi błąd (100 będzie wczytane jako 100 a nie 4). Pytanie: co robimy z zerami przed liczbą? Liczymy czy pomijamy?

[Turbo Pascal] Jak przeszukiwać tablice i obsługiwać klawisze w Turbo Pascal?

a co chcesz w tej tablicy wyszukac? np: for i:=1 to w do for j:=1 to w do begin tablica[i,j]:='18'; zmienna:=tablica[i,j]; end; i wyszukujemy w ten sposob w tablicy liczby 18

Pascal - zabezpieczenie przed podaniem litery jako liczby

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.

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

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