liczby pascal

Program obliczający logarytm nat. z liczby - PASCAL

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

[Turbo Pascal] Jak posortować wylosowane liczby w Turbo Pascal?

Może zamiast write wpisz wszędzie writeln

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Wyznaczanie liczby odwrotnej w elektronice

Jak wyznaczyć liczbę odwrotną do podanej liczby? Zastosowania w elektronice, przykłady i optymalizacja obliczeń.

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.

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

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

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

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]

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

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

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

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.

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.

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

Tak, niekoniecznie.

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

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

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

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

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

uses crt; type pTablica=^tTablica; tTablica=array[0..30000] of integer; var tablica: pTablica; w,k,x,y:byte; s,r,wynik,liczba:integer; begin clrscr; s:=0; writeln('Podaj rozmiar tablicy: '); write('Ilosc wierszy: w= '); readln(x); write('Ilosc kolumn: k= '); readln(y); getmem(tablica,...

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

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

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

[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 w Pascalu zapisać wczytaną liczbę całkowitą słownie?

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

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

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

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

Pascal - szukam programu do wyświetlania wyników

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

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

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

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

Witam Mam oto taki problem napisałem program który, Liczbę w systemie Dziesiątkowym zamienia na Binarny. program xxx; uses WinCRT; var a,op,licz,sys:word; wyn:array[1..255] of word; i,il:byte; procedure oblicz(var l,s:word); begin il:=0; op:=l; repeat il:=il+1; wyn[il]:=(op mod s); op:=op...

[Pascal] Wyświetlanie lista jednokierunkowa cykliczna

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

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

yy gdy się podzieli liczbę przez liczbę wynik ZAWSZE jest równy zeru ;( I jak wybieram znak '/' wpisuje mi od razu liczbę 5

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

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

Dobrze, to wprowadzisz 3,7 - czy ta liczba jest podzielna przez 3?

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

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

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

[Pascal] Unikalne liczby w tablicy dwuwymiarowej - jak je wstawić?

Dzieki za kodzik...troche go przerobilem zeby sam liczby losowal. Przy label'u napisalem: Randomize; z:=Random(50); b[i,j]:=z; Mysle ze do jednej etykiety i GoTo nie powinna sie przyczepic pani magister od cwiczen. Dzieki jeszcze raz, Szczesliwego Nowego Roku Peace

PASCAL - Program obliczający największy skok temperatury.

Zadeklaruj dwie zmienne pomocnicze - na temperaturę minimalną (tempMin) i maksymalną (tempMax). Potem w pętli for porównaj każdy element w tablicy a[i] z tymi zmiennymi - jeżeli element jest większy od tempMax (a[i] > tempMax) to ustaw tempMax = a[i]. Analogicznie dla tempMin: jeżeli a[i] < tempMin, to ustaw tempMn = a[i]. Na końcu oblicz różnicę...

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

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

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

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

[Pascal] Wyszukiwanie ostatniej liczby w pliku tekstowym?

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

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

i też prawda, ja to zrozumiałem, że w losowej kolejności wypisujemy 20 liczb naturalnych z zakresu 1-20, a w zadaniu wcele nie jest to jednoznacznie napisane, a po o losowo? żeby muc je posortować, jak to w zadaniach dla dzieci. Program MOŻE mieć 100% losowy generator, ale jako urządzenie zewnętrzne, np. wzmocniony szum termiczny.

[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] Program zamieniający liczbę binarną na dzięsiętną.

Do tego wzoru musiałbyś użyć rekurencji, najlepiej go zostaw. Twoim prawdziwym problemem jest to, że nie wiesz, jakiej liczby się spodziewasz na wejściu. Pół biedy z ujemnymi, bo można założyć, że chodzi o kod uzupełnień do dwóch, ale będziesz musiał albo pytać użytkownika o liczbę bitów, które należą do części ułamkowej, albo założyć stałą wartość.

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

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

[PASCAL]Potrzebny program dodający liczby binarne.

Witam, piszę tutaj do Was z prośbą, o program który być może ktoś posiada(może być podobny, byle bym miał jakąś podstawę), lub też byłby w stanie go napisać za darmo, czy też nie - można się dogadać. A więc, potrzebuję program w pascalu na zaliczenie. Program ma dodawac liczby binarne podane w pliku wejsciowym. Można założyć, że każda liczba ma nie...

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

Podam kod dla lotka. Bardzo prosto można go przerobić na inne systemy. [syntax=pascal] uses Crt; type xx=array[1..49]of integer; var i,nr_los,n:integer; wylosowane:array[1..6]of integer; liczby:xx; swoje:xx; begin clrscr; randomize; for i:=1 to 49 do begin liczby[i]:=i; swoje[i]:=0;end; writeln('podaj swoje 6 liczb'); for i:=1 to 6 do begin write('podaj...

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

Ty wiesz, ja wiem. Dajmy temu spokój. Pozdrawiam, Xitami.

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

hejka! mam troszke czasu i postanowilam napisac fajny programik , ale do jego realizacji jest mi potrzebny algorytm losowania 4 liczb, tak aby zadna z nich sie nie powtorzyla. raczej to nie jest trudne ale cos mi nie wychodzi:/,bede wdzieczna za pomoc.pa Zamykam. - arnoldziq

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

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

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

Free Pascal - Jak dzielić liczby rzeczywiste typu 0.005?

Musisz tylko użyć zmiennych zmiennoprzecinkowych (signle, real, double, extended)

Błąd składni w Turbo Pascal - losowanie liczby, 15 prób odgadnięcia

może na początek powinno nauczać się Python'a? Jeszcze nie dawno bym tego nie powiedział, ale Pascal to już jednak przeżytek. A zaczynanie od C++ to już w ogóle nieporozumienie.

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

Pascal - Jak wyświetlić wylosowane liczby w programie Lotto?

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 !

[pascal] Jak zaimplementować funkcję potęgowania x^y w Pascalu?

Programy obliczania potęgi (naturalnej) liczby całkowitej możesz znaleźć pod następującymi linkami: http://www.komputery-internet.net/turbo/... http://4programmers.net/Turbo_Pascal/Art...

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

Jak sprawdzić parzystość wskaźników w macierzy i losować współczynniki?

1. Program, nie może się nazywać tak samo, jak jedna z procedur : [syntax=pascal]program dodaj_macierz; [...] Procedure dodaj_macierz(Var x,y,z:mac;w,k:byte); [...][/syntax]Bo otrzymasz błąd powtórzenia identyfikatora. 2. Skoro dane w macierzy mają być losowe od 0 do 10, to po co czytasz je z klawiatury ? [syntax=pascal]Procedure czytaj_macierz(Var...

[Pascal] Jak dodać statystyki do programu Lottomat w Pascalu?

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

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 - program wyszukujący 3 największe liczby z pięciu

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

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

Kolego Elektryku w helpie nie będzie odpowiedzi na to pytanie. Siber, już raz odpowiedziałem, ale mój post został przeniesiony do kosza (napisałem "przeczytaj inne posty"), a szkoda, bo w momecie kiedy go pisałem, odpowiedź na twoje pytanie była cztery posty dalej i teraz jest obok (nie wiem jak wstawić link bezpośredni wskazujący topic) jest tam nawet...

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+zamiana licz dziesietnych na liczby o podstawie 3

Wiatm! Mam pewien problemik, nie wiem jak zrewalizować w Pascalu zamianę ciagu liczb całkowitych na wartosci o podstawie 3.Czyli zmienic je z sytemu dziesietnego na trojkowy. Jezeli ktoś mogłby pomóc bede bardzo wdzieczny pozdr.

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?

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

Random(100);

Pascal / Delphi - Algorytmy znajdujący takie samy liczby

Dziękuję za naprowadzenie. :D Taki sposób oceny i eliminacji niespełniającego kryterium przez porównanie dwóch pierwszych liczb, po posortowaniu jest bardzo dobra i na pewno bardzo przyspieszy program. Myślałem też o porównywaniu sum, ale samo takie porównanie nie wystarczy. W Totolotku raczej granie sposobem 'najczęściej losowane "5" ' raczej nie jest...

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

Witam! Dopiero zacząłem przygodę z Pascalem i mam problem z pewnym zadaniem. " Napisz program rozkładania dowolnej liczby na liczby pierwsze, który po wczytaniu liczby z klawiatury wyprowadzi komunikat - liczba pierwsza/liczba złożona - stosownie do sytuacji. Wykorzystaj pętlę while". Z góry dziękuję za wszelką chęć pomocy :) Obrazki wstawiamy wg

[Pascal] Dlaczego program w Pascalu wyświetla wartości 4 i 16? Analiza kodu

Zastanawiam się, w jaki sposób program może Ci cokolwiek wyświetlać, skoro nie można go skompilować? Zauważ, że deklarujesz typ kostka jako tablicę sześcioelementową o indeksach od 1 do 6, która może zawierać tylko liczby 1, 2, 3, 4, 5, 6. W kodzie w dwóch miejscach próbujesz podstawić do tej tablicy wartości 7 i 11 [syntax=pascal]4: t2[2]:=7; 8: t2[3]:=11[/syntax]...

[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

[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

Free Pascal - Błąd w pętli potęgowania liczby do 100

Dzięki za pomoc

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] Program wyznaczający największy liczbę spośród 4 zmiennych

Witam. Tak jak w temacie nie wiem jak to zrobić.. Mm zrobić taki program w ktorym będą występowały warunki zagnieżdżone to jest to co ja stworzyłem tyle, że pokazuje prawidlowy tlyko wtedy gdy "a" jest najwieksze... Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . Proszę poprawić. - arnoldziq

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

[Pascal] For...to...do, program wypisujący liczby w tabelce

Witam. Proszę o pomoc w napisaniu programu w Pascalu, który miałby wyświetlać tabelkę poniżej z użyciem for-to-do: http://img687.imageshack.us/img687/3261/... Post był raportowany. Regulamin, punkt 16. Proszę usunąć słowo 'pomoc' z tytułu. Proszę pokazać jakiś rozpoczęty program, jakiś wkład własny w ten program, inaczej post wyląduje w Koszu....

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

Jak jaką funkcją? Dzieleniem! Tak naprawdę to cały pierwszy etap można pominąć - on ma na celu tylko eliminację wiodących zer. Więc wszystko sprowadza się do czegoś w stylu [syntax=pascal] liczba:=StrToInt(dzielna_str[1]); petla: wynik_str:=wynik_str+IntToStr(liczba div dzielnik); reszta:=liczba mod dzielnik; liczba:=reszta*10+StrToInt(dzielna_str[i...

Pascal - jak znaleźć maksymalną liczbę odcinków tworzących trójkąty?

Witam. Otóż otrzymałem dodatkowe zadanie na informatyce: Danych jest n odcinków. Podać max liczbę z n tak, że z każdych 3 odcinków jest trójkąt. Treść zadania pod względem gramatycznym i składni powala. Ale tak napisał nauczyciel (może dlatego, że robił to na szybko podczas przerwy). Prosiłbym o dokładne rozpisanie jak to powinno wyglądać. Za pomoc...

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

Zamiast za każdym razem dodawać readln zrób: readln (liczba) ;)

[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] Pascal: Jak zamienić wczytaną liczbę całkowitą na zapis słowny w programie?

właśnie napisałem swoją funkcje do zmieniania liczby longint na string [załącznik]. z tego co przeczytałem w pierwszym poście właśnie o takie coś chodzi. (nie zmiana np. z 600 na "600" ale na "sześćset") Chyba wszystkich błędów sie pozbyłem (Ach ten J.Polski i liczebniki :) )

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Wielkie dzięki. Teraz wszystko gra.

Lotto w turbo pascal. Jak wyeliminować powtarzanie się liczb?

Dzięki za pomoc. Liczby już się nie powtarzają.:D

Największa liczba wśród 8 liczb wpisanych z klawiatury

Mój post właściwie miał na celu zwrócenie uwagi na fakt, że w programie podanym przez arnoldziq nie można wpisywać wszystkich liczb ujemnych, max zawsze będzie =0. Całkowicie się zgadzam. Mój błąd. Wystarczy [syntax=pascal]if licznik=1 then najmniejsza:=liczba;[/syntax]zmienić na :[syntax=pascal]if licznik=1 then begin najmniejsza:=liczba; najwieksza:=liczba;...

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

Tab[i]:=Random(899)+100; zamiast od razu wpisywać do tablicy to dodaj jeszcze jedną pętlę (pętla w pętli),i w niej ifa który sprawdzi czy ta liczba nie została już wylosowana

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

napiszesz mi to poprawnie tak żeby wyświetlał liczby parzyste d:) bo muszę spadać do pracy ;widzę że będę miał co analizować dzięki pozdrawiam

[Turbo Pascal] - Jak przerobić program, by komputer odgadywał liczbę?

Napisałem coś takiego: To niestety ,nie to co jes jest wymagane. O ile dobrze zrozumiałem to computer powinien zgadywać. Rozwiązanie można zrealizować albo przez generowanie przypadkowej liczby albo poprzez metodę przybliżania (Successive Approximation).

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

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

Dobrze mniej więcej kapuj o co chodzi tzn, najpierw mam sprawdzić czy się dzieli przez 2 a następnie w pętli for 2 to n ma sprawdzać pozostałe dzielniki. A co do tego że x dzieli się przez y a y przez coś to napisałem że dzilnikami będą liczby pierwsze(przynajmniej tak mi się wydaje). A jak pózniej zrobić aby te liczby były wypisywane?? Pozdrawiam i...

Jak wczytać tablicę 4x4 z pliku txt w Turbo Pascal? BlockRead?

Tablica jest z utworzonego pliku w ktorym normalnie są zapisane liczby jedna obok drugiej odzielone spacjami, w czterech rzędach. nie musi byc to opcja blockread, po prostu chce jakimkolwiek sposobem wczytac tablice z pliku. To czytaj zwykłym readln a potem potnij stringa w miejscu spacji (jakaś pętla i funkcja pos powinna wystarczyć) i przetwórz na...

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

Nie bardzo rozumiem czemu ? (..) I za każdym razem liczby wychodzą posortowane. Myślę, ze warto trochę teorii wspomnieć, bo może ja coś pokręciłem i dlatego nie bardzo rozumiem. (..) Kiedy profesor taki własnie sposób na sortowanie nam podał ;) Moje kondolencje. Tak po prostu się nie powinno robić - nie chodzi koniecznie o kwestię działa/nie działa,...

[Pascal] Jak uniknąć powtórzeń kart przy rozdawaniu w Pascalu?

No ok a jak to podzielic na 4 graczy? Albo 4 oddzielne losowania gdzie liczby nie mogą sie w zadnym zbiorze powtarzac albo 1 losowanie tak by po 13 liczbach jakos je oddzielac od siebie.

[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