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...
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
[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'...
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
[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...
[syntax=pascal]if i mod a=0 then writel(' liczba ',i,' jest podzielna przez ',a);[/syntax]
Ł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,...
marcus111 , w Twoim kodzie w zasadzie do poprawy jest wszystko: przede wszystkim błędy składniowe, duża liczba nie zawsze potrzebnych zmiennych, pozjadane w kilku miejscach znaki. Wszystko to powoduje, że program się nie kompiluje i w takiej postaci nie ma prawa działać. Gdyby chcieć go poprawiać, to z pierwotnej wersji prawie nic by nie zostało. Czasami...
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ę....
Witam! Potrzebuję programu napisanego w Pascalu, który oblicza logarytm naturalny z podanej liczby z dokładnością eps. W programie nie można wykorzysywać funkcji LN() i EXP(). Danymi wejściowymi mają być: liczba n oraz eps [przybliżenie]. Proszę o szybką pomoc.
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.
Witam dostałem do przeanalizowania programiki i przy dwóch z nich nie moge dojść o co chodzi może Ktoś z Was mi pomoże ? pierwszy jest taki Dana jest nieujemna liczba rzeczywista p. Napisz program, który wyznaczy objętość i pole powierzchni sześcianu o przekątnej długości p program zadanie_10; uses crt; var a,d,p,v :real; begin clrscr; write('Podaj...
Może zamiast write wpisz wszędzie writeln
http://www.elektroda.pl/rtvforum/topic19... Tu możesz poczytać o problemie więcej, jak widać temat był już poruszany na forum
https://obrazki.elektroda.pl/3105483500_... W wielu projektach, takich jak latające roboty, stacje pogodowe, czy systemy do wyznaczania tras, urządzenia sportowe itp bardzo ważny jest pomiar ciśnienia oraz wysokości nad poziomem morza. W poniższym artykule opisujemy jak korzystać z czujnika BMP180, który jest jednym z najczęściej używanych...
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.
Dane są liczby naturalne n i k(n<=k) typu Word. Napisz program, który obliczy sumę pierwiastków kwadratowych liczb naturalnych ze zbioru {n, n+1, ..., k}. void funkcja(unsigned int n, unsigned int k) { unsigned int wynik, ile,liczba; ile = k - n; for(unsigned int index; index <=ile; index++) { liczba = n + index;...
to usun :p 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.
Witam mam pewien problem. Mam program który losuje 1000 liczb. I nie mam pojęcia jak zrobić aby w tym programie wyswietlala mi sie liczba ktora najczesciej wystepuje w tym zbiorze i ile razy. Mógłby ktoś nakierować ? Mam tylko tyle: [syntax=pascal]program los; uses crt; var tab:array[1..100] of longint; a:integer; i:longint; begin clrscr; randomize;...
Działa, to jest liczba zmiennoprzecinkowa, http://pl.wikipedia.org/wiki/Liczba_zmie...
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;...
Witam Mam olbrzymią prośbe dla ludzi, ktorzy mają wieksze pojecie o Turbo Pascalu niż ja - jest ich tu zapewne dużo :D Mam 6 zadanań, właśnie z Pascala przez, ktore nie potrafie przebrnać. Prosze w zwiazku z tym o pomoc kogoś kto zna sie na tym. Oto one: Zad.1 Napisz program w Pascalu, który a) stworzy tablice 10 x 10 liczb b) wypełnij ją losowymi wartościami...
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...
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...
Witam serdecznie! Mam do Was ogromną prośbę. Muszę zrobić proste zadanie w języku Pascal Liczby pierwsze.Mając funkcje sprawdzającą czy dana liczba jest liczbą pierwszą należy dostarczyć funkcje zwracającą wszystkie liczby pierwsze mniejsze od zadanej liczby.
Witam, mam pewien program, zrobiłam wstępny zarys programu tyczący baz danych temat zadania: użytkownik ma menu: 1 - wpisz dane 2 - wyświetl element 3 - wyświetl wszystkie 4 - wyjście nauczyciel nam wprowadził case mój program wygląda w następujący sposób: [syntax=pascal]uses crt; var liczba:byte; a:char; procedure tekst1; begin clrscr; writeln('Baza...
Witam. Potrzebuję pomocy. Chodzi mi o to, że w Pascalu robię program który oblicza silnię, ale gdy liczba ta jest większa od wielkości zmiennej longint pokazuje się error. Jak mogę zastąpić tą zmienną? Z góry dziękuję.
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ć,...
Jeśli liczba oznaczająca rok jest podzielna przez 400 jest to rok przestępny.
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
Witam Mam pewne zadanko z którym usiłuję sobie poradzić Mam napisać "prosty" program w pascalu. Wprowadzamy z klawiatury liczbę rzeczywistą, program drukuje reszte z dzielenia przez 7 w ten sposób "Reszta z dzielenia liczby .... przez 7 wynosi ... " program aaa; uses crt; var a : real; Begin clrscr; writeln ('podaj liczbe rzeczywista');...
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...
Zarys. AVRy to sympatyczne uC (mikrokontrolery) firmy znanej chyba wszystkim z produkcji legendarnej "51" z pamięcią Flash - http://www.atmel.com . Rodzina ta należy do procesorów RISC - choć lista rozkazów jest dość rozległa Smile. Większość rozkazów wykonują w JEDNYM takcie - w przeciwieństwie do np. 12 taktowych MCS-51. Dodatkowo posiadają mechanizm...
...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...
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;...
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,...
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.
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.
Źle to ująłem - chodzi mi o zwykły program który liczy np pole jakiejś figury. W trybie tekstowym potrafię to napisać i bardzo dobrze to działa. W trybie graficznym owszem pokazują się linie tekstu np"podaj wysokosci figury" , "podaj długość boku" , "objętość figury wynosi ..." i w tym momencie nie ma żadnej liczby jakby program nie obliczał. W trybie...
Program ma wypisywać liczby pierwsze od podanej x do n Problem w tym, że wypisuje tylko cztery pierwsze, następne wypisuje dopiero po wcisnieciu enter. Nie wiem o co chodzi. Nastepna rzecz, że nie chce wypisywac ich w rządku, mam na mysli 1 2 3 4... a wypisuje 1,2,... potem enter musze wcisnac i znowu 1,2 albo tylko 1dna wypisze. Ktos wie moze gdzie...
twoje int a[m] nadal jest blednie uzyte... zrob sobie int a[2048]; nie sadze, zebys chcial wpisywac tyle liczb::P w tym przypadku M jest tylko liczba argumentow, o ktore program zapyta, wiec ta tablica w takim rozmiarze cie usatysfakcjonuje... nastepnie w kodzie ni stad ni zowad pojawia sie return 0.... w samym srodku:P to zapewne wylacza ci nagle program:)...
Witam Mógłbym prosić kogoś o sprawdzenie tego schematu blokowego? O ile co do działania programu nie mam wątpliwości to już co od schematu nie jestem pewien czyt wszystko sobie dobrze wyrysowałem. Poniżej zamieszczam kod źródłowy i schemat. program liczby_pierwsze; uses Crt; var n,i:integer; lp:boolean; begin lp:=true; writeln('Podaj...
Zacznij od rzeczy prostszych: Dla podanych liczb należy wypisać słowo "sprawdzam" Wejście W pierwszej linjce wejścia podana jest liczba naturalna N (1 <= N <= 100000). W następnych N znajduja się liczby naturalne X (2 <= X <= 1000000). Wyjście Dla każdej liczby naturalnej X na wejściu należy wypisać w jednej linii tę liczbę, dwukropek i...
Pascal jest podobny do delphi a że nie mam skąd wziąć delphi to robię to w pascalu i tak chodzi tylko i wyłącznie o kod środkowy. Mam ten program tylko że w C++ a potrzebuje to mieć w delphi albo pascalu :/ [syntax=c] #include <iostream> using namespace std; int main() { int wp; //Wprowadzana liczba std::string suma; //Czy liczyc sume std::string...
jak dobrze pamietam to powinienes zrobic s:string[256]; gdzie 256 to liczba znakow... tylko zawsze mi sie wydawalo, ze standardowo jak nic nie podasz to jest 256... ale moze sie myle. Sproboj to zobaczysz. PS.nie wiem czy to napewno dobra skladnia, nie programowalem w pascalu od kilku lat, sprawdz w ksiazce jezeli to sie nie skompiluje.
1. Tworzysz zmianą klasy TStringList. Ładowanie pliku TStringList.LoadFroFile(nazwa_pliku) 2. Liczba linii -> TStringList.count 3. Ilość znaków -> sizeof(TstringList.text) 4. Liczenie spacji -> prosta pętla na przeliczanie występowania znaków w TStringList.text. 5. To samo co wyżej, wywołane dla każdej litery. Ten program można napisać w ok 20 liniach....
Witam, nie pamietam czy aby w funkcji case nie treba podac wartosci w "" to znak char a nie liczba w tym wypadku, czyli: case liczba of "1": Szybkosc:=Szybkosc + 20; {1} "2": Szybkosc:=Szybkosc - 20; {2} "3": ReadKey; {3} A nie bardzo widze deklaracji czym ma byc zmienna liczba, jako char bylo by chyba najlepiej. To co ty robisz jako odczytanie liczby...
czemu ludzie wolą C od Pascala? z tego samego powodu dla którego wolą Pascal od Ady albo Veriloga od VHDL! Pozory, wolę uses niż kombinowanie w *.h Tak patrzę na ten program i czegoś chyba nie rozumiem. Tylko ja? Średnia arytmetyczna: http://upload.wikimedia.org/math/4/2/7/4... Średnia geometryczna: http://upload.wikimedia.org/math/8/a/f/8...
Zapomniałem dodać, że muszę jeszcze zliczać sygnały z ośmiu wejść w czasie rzeczywistym (przyjmuje się, że 1000/sek). A jakie doświadczenie z uC posiadasz Kolego? Po postach sądząc niezbyt wielkie, Języki: C (MCS51, AVR, MC68k) E Amos Pascal (PC) Bascom CUPL Asembler i maszynowy: 6502 Z80 MCS51 MSC48 MC68k AVR Z8 PIC Zaprojektowane urządzenia oparte...
liczba pierwsza pascal pascal liczba tekst tablica pascal liczba pierwsza
żarówki lampek choinkowych zapis danych pamięci eeprom korektor audio wzmacniacz
setti odkurzacz setti odkurzacz
Czujnik otwarcia maski w Renault Laguna II - czy jest obecny? Lokalizacja czujnika ciśnienia paliwa w Peugeot Partner 1.9 Diesel
