Ł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;...
Może zamiast write wpisz wszędzie writeln
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ę...
[syntax=pascal]if i mod a=0 then writel(' liczba ',i,' jest podzielna przez ',a);[/syntax]
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.
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
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.
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.
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;...
[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]
To może nauczyciel się pomylił i chodziło mu o liczbę całkowitą?
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....
Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.
...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...
Tak, niekoniecznie.
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,...
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...
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...
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...
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...
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;...
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
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...
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,...
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
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.
[syntax=pascal]if liczba mod 2 = 0 then...[/syntax]
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",...
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...
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).
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
:/ 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...
wskaznik^.next^.liczba może powodować błędy
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...
http://www.dzyszla.aplus.pl/programy_i_t... = w C
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]
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ą.
Dobrze, to wprowadzisz 3,7 - czy ta liczba jest podzielna przez 3?
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...
Nie ma ograniczenia, mają to być liczby całkowite
http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum
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...
Musisz tylko użyć zmiennych zmiennoprzecinkowych (signle, real, double, extended)
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...
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...
program losowanie; uses crt; var a:real; begin clrscr; randomize; a:=random(101); write('Wylosowano ',a); readkey; end.
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
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
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.
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}...
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...
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...
Tablica jednowymiarowa? Użyj random() aby losował pozycje liczb z tej tablicy.
Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.
wszystko ładnie pięknie ale jak zatrzymać program aby pokazał te liczby?
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...
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.
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...
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...
yy gdy się podzieli liczbę przez liczbę wynik ZAWSZE jest równy zeru ;( I jak wybieram znak '/' wpisuje mi od razu liczbę 5
{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
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...
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.
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ć :(
Nie, mnożenie tekstów jest tak samo wykonalne, jak upieczenie mieszkania czy wyhodowanie telefonu. Mnożyć możesz tylko liczby.
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
Wygląda dobrze :) Można tylko nieco zoptymalizować wyszukiwanie liczb pierwszych - wystarczy szukać do połowy z badanej liczby.
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...
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;...
Dzięki za pomoc
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...
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.
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
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
A na czym ten błąd polega? (Umieszczaj kod w znacznikach [ code ][ /code ])
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;...
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....
// 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;...
zmienną deklarujesz jako string a później używasz polecenia val do sprawdzenia czy została wpisana liczba.
Wielkie dzięki. Teraz wszystko gra.
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...
Zamiast za każdym razem dodawać readln zrób: readln (liczba) ;)
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...
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;
[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'...
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...
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
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...
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]...
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
Dzięki za pomoc. Liczby już się nie powtarzają.:D
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...
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...
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);...
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
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
[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...
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...
Osoba która napisze mi program w pascalu zamieniający liczbę z jednego systemu liczbowego na inny ofiaruje jej 5 punktów.
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...
liczba pierwsza pascal pascal liczba tekst pascal pętla
wysokich obrotach grzeje zasilacz impulsowy startuje samsung opóźniony
Wiertarki 12V poniżej 1 kg do 500 zł - Bosch, DeWalt, Makita Jak złożyć kolbę w ekspresie Gaggia Carezza Deluxe?