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...
http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum
Tak, niekoniecznie.
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...
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);...
Podpowiedź: po co wczytujesz pierwszy element przed pętlą ?
Witam Kod podany przez Łuk_F będzie działał tylko w przypadku liczb całkowitych: byte, word, integer, itd. Operatory mod muszą być typu całkowitego. Jeśli chcesz sprawdzić liczbę rzeczywistą to tak: if (frac(c)) <> 0 then Write ('Liczba NIECALKOWITA') else if (trunc(c) mod 2)=0 then writeln('parzysta')...
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...
[syntax=delphi]var T: array[1..10000] of LongInt; i, max, min, n: LongInt; begin for i:=1 to n do // pętla do n gdzie n nie jest znana ... Read(n); // doiero wewnątrz pętli wczytujemy to n // tu wyliśmy z pętli ale teraz n - to ostatnio wczytana liczba max := 0; min := 0; for i:=1 to n do // pętla do któreś tam wczytanej liczby begin if T[i]> max...
funkcja random generuje tzw. liczby pseudolosowe wg wzoru (tzw. generator kongruencyjny) : function Random:real; begin seed:=(A*SEED+B) mod C; Random:=seed; end; Gdzie SEED - wartość początkowa, po włączeniu komputera zwykle inicjowana odczytem zegara sytemowego. A, B, C - duże liczby pierwsze mod - reszta z dzielenia. Okres takiego generatora (po tylu...
eh, masz i nie mecz juz :P PS. oczywiscie da sie w jednej podwojnej petli, ale napisalem lopatologicznie, moze kolega cos postara sie zrozumiec :P program czarna_magia; var i,j :byte; min, max :byte; t :array[1..4,1..4] of byte; suma_kolumn :array[1..4] of integer; srednia :real; begin // inicjalizacja generatora...
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...
A tutaj masz podstawy pascala w pigułce: http://pl.wikipedia.org/wiki/Pascal_%28j... Robisz pętlę "for" 1-100 i sprawdzasz dla każdej liczby warunek podany przez kolegę powyżej. Jeśli jest prawdziwy dla wszystkich trzech (7,8 i 9) to wyświetlasz liczbę jako spełniającą warunek.
Nie moge poradzić sobie ze zrobieniem programu ,Licze na wsza pomoc. zad Dany jest plik dane.dat a w nim ciag liczbowy . W zalozeniu tego ciagu liczby powinny byc na przemian parzyste i nieparzyste. a)napisac procedure sprawdzające czy liczby sa ulozone na przemian b) napisac procedure ktora przepisze z pliku liczby nieparzyste do tablicy a i zad 2...
Proszę się pochwalić tym, co do tej pory kolega stworzył.
No ale o to właśnie chyba chodziło - ma wczytać kilka liczb, maksymalnie 5 LUB do momentu podania 0. :>
Może zamiast write wpisz wszędzie writeln
Ł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;...
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,...
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ę....
Jaknajbardziej zgadzam się z xitami. Ale trzeba podkreślić że taka sytaucja nie tylko dotyczy pascala ;] Moim zdaniem, podstawa to dokładne zapoznanie się ze "zleceniem", zdobycie jaknajwiększej liczby informacji co i jak ma być zrobione. Zleceniodawca (zazwyczaj osoba mało znająca się na inżynierii oprogramowania ;]) uniknie rozczarowania a my niepotrzebnych...
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...
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...
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 ∞
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. Potrzebuję napisać algorytm porównujący dwa zestawy po 6 liczb i określający czy dokładnie 5 liczb z zestawu pierwszego jest taka sama jak w zestawie drugim. Przykład. Zestaw pierwszy liczb: 7 , 23 , 45 , 56 , 78 , 96 Zestaw drugi liczb: 78 , 7 , 33 , 45 , 23 , 56 Jak widzimy 5 liczb się powtarza. Myślałem o użyciu polecenia if then ... Ale już...
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.
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
Opisz słowami, jak byś sprawdził która z liczb jest największa, mogąc porównywać jednocześnie tylko dwie na raz. I jak zapisujesz kod, to używaj znacznika [ code ] (mam nadzieje, że w tym kodzie Twoim są wcięcia)
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;...
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ć,...
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
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.
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.
Dobra, podstawowy, dosowy pascal nie ma inttostr ani strtoint. Można jednak zastąpić w tym szczególnym przpadku w dość specjalny sposób - liczby, jakie będziemy konwertowac nigdy nie przekroczą zakresu 0..9. Stąd zamiana znaku (tak znaku!) na liczbę będzie wyglądała tak: [syntax=pascal]function CharToInt(const c: Char): Integer; begin Result:=Ord(c)-Ord('0');...
W liceum miałem pascala wiec coś takiego wystrugałem jednak C ni w ząb...Czy ktoś mógłby pomóc napisać program w C podobny do tego poniżej? Program Liczby_pierwsze; Uses Crt; Var N, K : Integer; i, j : Integer; Licz : Integer; Begin Repeat Clrscr; Writeln('Podaj liczbę naturalną (N > 1)'); Write('n = '); Readln(N);...
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
Musisz zrobić coś takiego, jak na poniższym pseudokodzie pascalopodobnym. Kod nie jest w pełni odporny na błędy, wysypie się, jeśli użytkownik poda nieliczbowe śmieci i jeśli liczba wprowadzonych liczb oddzielonych spacjami będzie mniejsza, niż rozmiar tablicy. Najprawdopodobniej da się napisać to lepiej. [syntax=pascal] tablica : array[0..10] of integer;...
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...
Pomoglibyście mi rozwiązać te zadania, mam problem z tymi tablicami ;/ 1.Wprowadź do jednowymiarowej tablicy 10 liczb rzeczywistych i wyprowadź na ekran największy i najmniejszy z nich. 2.Napisz program wprowadzający dane do tablicy dziesięcioelementowej i wyprowadź najpierw liczby parzyste, potem nieparzyste.
A może jeśli to ma być program dla własnej wygody zacznij programowanie w Delphi? więcej materiałów, przyjaźniejszy edytor :) Jak nauczysz się pisać moduły to możesz je robić w taki sposób że można ich używać i Delphi i w Pascalu (z małymi różnicami np. wielkości liczb w typach), A może Delphi konsolowe? efekt jak w Turbo Pascalu a Edytor elastyczniejszy...
W miejsce liczb wstaw stosowne zmienne. CZyli przykładowo kod:[syntax=pascal]writeln( 30 * 40)[/syntax]zmieniasz na [syntax=pascal] a1:=30; a2:=40; writeln( a1 * a2)[/syntax]Potem wystarczy tylko zamiast przypisania zrobić pobranie (read). Poeksperymentuj.
Pozdrawiam chemik143. Kiedyś mieszkałem w Cieszynie. A oto program: Uwaga: w linii write('podaj wartosc tablicy [',i,' ',j,']= '); musisz podawać wartości w postaci np 32 12 i enter czyli 32 spacja 12 ENTER uses crt; var tablica:array[1..100,1..100]of integer; i,j,n,k,w,wynik:integer; op:char; begin clrscr; writeln('program wypelnia tablice dwuwymiarowa...
Niestety wprowadzenie tej zmiany nic nie daje, a nawet nie pojawia mi się tekst Podaj liczbę a po wpisaniu jednej z liczb i wciśnięciu klawisza enter zamyka mi się okno podglądu.
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
Witam serdecznie, potrzebuję zrobić program w pascalu, który będzie liczył wartości tylko zero-jedynkowe w dodatku LOGICZNIE. Wiem jak funkcjonują poszczególne bramki etc. Ale nie wiem jak zdefiniować by program np liczył and z dwóch liczb binarnych. Czyli po dodaniu dla przykładu 0001 and 0110 poda wynik. Na tej samej zasadzie nand, nor, or i xor....
Stworzyłem kalkulator w programie Free Pascal, i po jego kompilacji program działa nieprawidłowo. Nie mam pojęcia co zrobiłem źle, jestem początkujący i dlatego to pytanie kieruje do innych specjalistów z tego tematu. Wstawiam napisany przeze mnie kod. [syntax=pascal] program kalkulator; var a, b, c, d, e: integer; begin write ('Chcesz wykonac odejmowanie...
Witam, pilnie potrzebuję pomocy w napisaniu programu który wczytuje min.10 temperator. Potem z ciągu oblicza różnice kolejnych liczb i zapisuje największy wynik. Kompletnie nie wiem jak się zabrać, po wczytaniu tablicy. Narazie mam tyle: [syntax=pascal]program skok; uses CRT; var a : array[1..12] of integer; i, skok, roznica : integer; begin ClrScr;...
Witam. Mam problem z wykonaniem ćwiczenia poniższej treści: Zapisz algorytm wyznaczania najmniejszego elementu w n-elementowym zbiorze liczb całkowitych w wersji rekurencyjnej. [syntax=pascal]uses crt; var x,i,n,min:integer; tab:array[1..200] of integer; begin readln(n); for i:=1 to n do begin readln(x); tab[i]:=x; end; min:=tab[i]; for i:=2 to n do...
...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 liczb tekstu zaokrąglanie liczb komparator liczb
ricoh reset bębna moduł cyfrowy polsat vectra poziom sygnału
szlifierka bosch szczotki fs042 schemat
Nie mogę zalogować się do Yanosik po wykasowaniu danych Jedno skrzydło bramy otwiera się do połowy - diagnostyka i rozwiązania