pascal liczba

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

[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

Program obliczający logarytm nat. z liczby - PASCAL

Logarytm to wykładnik, do jakiego należy podnieść podstawę, aby otrzymać daną liczbę. Można zrobić funkcję rekurencyjną z argumentami: logarytmowana liczba; początek przedziału w którym szukamy; koniec przedziału, w którym szukamy; zadana dokładność. Funkcja niech dzieli przedział na pół, liczy wartość e^(środek_przedziału) i następnie wywołuje się...

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

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

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.

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

[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 i prosty program... dzielenie, drukowanie wyniku itp.

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

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

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

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

Tak, niekoniecznie.

[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] Przeliczanie liczby dziesiętnej na inne systemy.

Masz tu funkcję, która przelicza liczbę dziesiętną na dowolny inny system liczbowy. Oczywiście pomiędzy dwójkowym i szesnastkowym. :) function konwert( liczba : integer ; system : byte):string; const tablica_znakow : array[0..15] of char = ('0','1','2','3','4','5','6','7','8'... var...

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

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] Unikalne liczby w tablicy dwuwymiarowej - jak je wstawić?

Znaczy to musi byc tak: Jak mam tablice, to liczby nie moga sie powtarzac w danej kolumnie i danym wiersz. A gdzie indziej w tablicy moze wystapic taka sama. Zaluzmy dla t komurce musi byc rozna liczba, dla t[2,i] i:=... musza byc rozne liczby, tak samo dla t[j,1] musza byc rozne liczby. Ale moze sie powtorzyc w t[1,1] , t[2,2] , t[3,8] itd. W oglole...

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

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

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

Witam!! Otóż mam do zrobienia program losujący liczbę, my w 15 próbach musiamy odgadnąć jaka to liczba. Niestety wyskakuje mi Error podany w temacie. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq

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.

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

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

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

nie wiem co ma z tym wspolnego ciag arytmetyczny. Teraz chyba kolega już wie ;) Xitami : W zadaniu było "większe", a kolega zastosował "większe lub równe". W tym przypadku powinno być k = trunc (sqrt(2*n + 0.25) + 0.5) - wystarczy sprawdzić dla liczb "na granicy" (1, 3, 6, 10 -> powinno wyjść 2, 3, 4, 5). W przypadku, gdyby było "większe lub równe",...

[Pascal] Wyszukiwanie ostatniej liczby w pliku tekstowym?

funkcje eof eoln seekeoln Ale prezciez to jest bez sensu! Oczywiście należy sprawdzać koniec pliku i tu się nie obejdzie bez funkcji eof, ale zupełnie nie widze sensu stosowania pozostałych (no chyba tylko w formie balastu i komplikacji). Zamiast readln należy użyć read, bo przeciez potrzebny jest pojedyńczy znak a nie łańcuch. Napisałem prog co sortuje...

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

:/ To dopiero 2 liceum, więc o żadnych "niezwykłych" binarnych nie miałem nic jeszcze. Próbuję zamienić tą liczbęna dziesiętną takim posobem: 1)wpisuję liczbę binarną jako string np 1101 2)sprawdzam ile jest cyfr za pomocą dlugosc:=length(liczba) 3)for i:=1 to dlugosc do if liczba[i]='1' then a[i]:=1 else if liczba[i]='0' then a[i]:=0 4)no i teraz mam...

[Pascal] Wyświetlanie lista jednokierunkowa cykliczna

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

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

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 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 - 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] Sprawdzanie podzielności liczby rzeczywistej przez 3 - błąd typów

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

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

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

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

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

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

Free Pascal - Jak dzielić liczby rzeczywiste typu 0.005?

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

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

Witam. Zrobiłem algorytm dotyczący zadania: Napisz algorytm, który dla n-elementowego ciągu zero-jedynkowego odpowie na pytanie czy jest w nim więcej zer. Kod algorytmu: [syntax=pascal]uses crt; var tab:array[1..36] of integer; liczba:integer; l_zer,l_liczb,i,i2:integer; begin i:=1; writeln('Podaj ciag zero-jedynkowy'); readln(liczba); while liczba>0...

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

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

program losowanie; uses crt; var a:real; begin clrscr; randomize; a:=random(101); write('Wylosowano ',a); readkey; end.

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

problem tkwi w tym ze nie chce mi wyswietlac wylosowanych liczb przez komputer o oto kod problem tkwi w tym że nie wiem jak wyswietlić wylosowane liczby przez komputer , program loto; const ileLiczb= 6; maxLiczba=49; type liczba=1..maxliczba; tZaklad=array Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq

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 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 napisać program w Pascalu do zliczania elementów w tablicy?

Spróbuj w ten sposób: [syntax=pascal]program zliczanie; const NUM = 100; {Rozmiar tablicy z liczbami} var tablica: array[1..NUM] of integer; {Tablica z liczbami} licz: array[0..9] of integer; {Tablica licznikow} i, n: integer; begin randomize; for n:=1 to NUM do begin tablica[n]:=random(10); end; for i:=0 to 9 do licz[i] := 0; {Zerowanie licznikow}...

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

1. "i" jest licznikiem, nie losowaną liczbą (jest nią "k") z którą po losowaniu nic się nie dzieje. można by w wypadku ponownego wylosowania wartości którą już mamy w tablicy kombinować ze sprawdzaniem kolejnej, czyli k+1, ale tu znowu trzeba sprawdzać czy już takiej nie było, jeśli była to k+2 i tak do skutku, kłopotliwe, trzeba jeszcze sprawdzać czy...

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

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

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

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

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

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

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

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

Pascal - zabezpieczenie przed podaniem litery jako liczby

ech, var i:integer; a:integer; begin repeat write('Podaj liczbe: '); {$I-} readln(a); {$I+} i := ioresult; if i<>0 then writeln('To nie jest liczba'); until i=0; writeln('Podales: ',a); end. Pisane z głowy bez sprawdzania.

Pascal / Delphi - Algorytmy znajdujący takie samy liczby

Szukasz najczęściej występujące "piątki" w totolotku?? :) Do tego tematu można podejść na kilka sposobów, zależy, jak szybki musi być "algorytm". Ja spróbowałbym tak: na wstępie posortował liczby w pliku rosnąco, ew.wygenerował z nich nowy, posortowany plik. Następnie dwie zagnieżdżone pętle for (albo for i while ) - pierwsza pętla odczytuje kolejne...

[PASCAL] Program wyznaczający największy liczbę spośród 4 zmiennych

Sposób wykonania wcięć wprowadza strasznie dużo zamieszania. Tak powinien wyglądać prawidłowo wcięty kod: [syntax=pascal]if a>b then begin if a>c then begin if a>d then writeln('a') else begin if b>a then begin //jak b może być > a, skoro na samym początku zostało to wykluczone? if b>c then begin if b>d then writeln('b') else begin if c>a then begin...

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

[Pascal] Pascal: Jak zamienić wczytaną liczbę całkowitą na zapis słowny w programie?

{Czy ktoś potrafi zmodyfikować i uruchomić poniższy program tak aby zamienił wczytana liczbę na tekst ?? Liczę na pomoc, w sobote mam drugi termin!! Program Słownie; uses crt; var {Deklaruj© tablice, oraz zmiennĄ "liczba" kt˘ra zostanie zapisana w postaci s�ownej} {jedno�ci} T1: array Zamykam. - arnoldziq

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

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

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

Prośba o pomoc w sprawdzeniu ALGORYTMU napisanego w Pascalu...

Nie udało się, ponieważ to co napisano nie ma nic wspólnego z zadaniem. Najprostszy sposób: Wczytaj tą liczbę do zmiennej typu string lub po wczytaniu skonwertuj do string. Dopiero ten string analizuj. Krótszy sposób: [syntax=pascal]var Digit,Prev,Value:Integer; ReadLn(Value); Digit:=10; Prev:=11; while (Value>0)and(Digit<Prev) do begin Prev:=Digit;...

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

Dzięki za pomoc

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

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

[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

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

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

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

[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 przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Wielkie dzięki. Teraz wszystko gra.

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

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

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

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

To jest właśnie metoda "Successive Approximation" o której to wspomniałem poprzednio. s := (a + b) div 2; Posiada tylko jedną wadę. Gdy odgadywana liczba = liczba stanowiąca górną granicę to nie osiągniemy celu ponieważ 1 div 2 = 0 . Metoda odgadywania liczby za pomocą "random" potrzebuje więcej podejść ponieważ można za każdym razem gdy...

Błędne obliczenia sumy w funkcji suman w Pascalu - jak naprawić?

Nie kompilowałem ale w funkcji suman zmienna typu integer sn powinna byc ustawiona na 0 czyli sn:=0; function suman(var t:tab; var liczba:integer): integer; var sn,i:integer; begin sn:=0; //wyzerowanie zmiennej for i:=1 to liczba do sn:=sn+t[i]; writeln('Suma netto faktur wynosi ',sn); end;

Turbo Pascal błąd napisanego programu, nie widzę przyczyny

[syntax=pascal]Program xyz; uses crt; Var cyfra:integer; odp:char; Begin clrscr; Write('Hello, podaj cyfre 4'); Readln(cyfra); if cyfra =4 then writeln('tak to cyfra 4'); if cyfra <>4 then writeln('ty kretynie to nie cyfra 4'); delay(3000); Write('czy 4+4 to 8?'); Readln(odp); if odp ='t' then writeln('brawo, Enstein z ciebie'); if odp <>'t'...

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

[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

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] Liczenie liczb dodatnich i ujemnych oraz analiza macierzy 3x4

To powinno spełniać twoje wymogi : VAR tablica : array[1..10] of integer; i : integer; dodatnie : byte; ujemne : byte; BEGIN ujemne:=0; dodatnie:=0; for i:=1 to 10 do BEGIN write('Podaj ',i,' liczbe : '); readln(tablica[i]); if tablica[i] > 0 then inc(dodatnie); if tablica[i]...

Jak w Pascalu dodawać liczby szesnastkowe wczytane z klawiatury?

Moge to wpisat w prostyh operatorah PASCAl, jzeli to jesche potshebno. Theba ?, to napish na Boant(at)Zmail.RU W TurboPower to tez yest, esli to mash. pzeprash. za lamane polskiego :) Z wyraz sz. ANATOLIY BOGOW; Boant(at)Zmail.RU

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

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

Program w Pascalu przy użyciu procedury (który poprawny?).

Siema! Ogarniam procedury i funkcje w Pascalu. Zrobiłem program, który wyświetla wszystkie liczby parzyste od 2 do 222 przy użyciu procedury. I tu moje pytanie, który kod jest poprawny? Tzn. wszystkie te programy działają, ale jak to powinno w miarę profesjonalnie wyglądać? 1.[syntax=pascal]program liczby; uses crt; procedure petla; var i:byte; begin...

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] Znaczenie dyrektywy kompilatora {$I-} w kodzie kalkulatora

Witam, znalazłem sobie kalkulator napisany w Pascalu, i w jego fragmencie znalałem takie coś: {$I-}. Czy to jest jakaś dyrektywa dla kompilatora? Co to w ogóle oznacza? Fragment tego kodu prezentuje się następująco: [syntax=pascal] begin {$I-} readln(liczba); {$I-} rezultat := IOResult; if (rezultat <> 0) then begin textcolor(4); gotoxy(30,23);...

[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

[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

[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 napisać program w Delphi lub Turbo Pascal do dzielenia liczb przez 0,85?

program dzielnie; {$APPTYPE CONSOLE} uses SysUtils; var liczba: integer; begin readln(integer); while true do begin if liczba >= 2 and liczba <= 18 then writeln(integer / 0,85) else writeln('zla liczba'); end; end. dawno nie pisalem nic pascalopodobnego ale powinno byc jakos tak. Nie testowalem i nie wiem...

Czy istnieje narzędzie do konwersji kodu C++ na Turbo Pascal?

Osoba która napisze mi program w pascalu zamieniający liczbę z jednego systemu liczbowego na inny ofiaruje jej 5 punktów.

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