Program Konwertuj; {Program konwertuje wprowadzonĄ liczb© cakowitĄ na zapis sowny} uses crt; Var T1 : array [0..9] of string; T2 : array [0..9] of string; T3 : array [0..9] of string; T4 : array [0..9] of string; T5 : array [0..5] of string; Liczba : longint ;...
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 :) )
Jeszcze jedno proste spostrzeżenie, longint czyli 2^31, pierwiastek z tego to 46344, potencjalne podzielniki nie będą większe niż ta liczba i co ważne same będą liczbami pierwszymi, jest ich nie wiele, około trzech czterech tysięcy, może warto zebrać taką tablicę (przyśpieszenie kilkukrotne)
Poprawiony program: program quiz; type pytanie=record pytanie,a,b... of pytanie; wybrane:array[1..10 ... of pytanie; i,j,pom,prawidlowo:integer...
Witam, Muszę napisać program w pascalu który wczyta słowo i obliczy mi ile razy pojawiło się ono w tekście. Próbowałem już wszystkiego, ale nie mam głowy :( Przerabiałem ten program: [syntax=pascal]program project1; const tabulacja=9; var plik:text; n:integer; nazwa:string[12]; procedure...
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..maxli... Proszę pamiętać o używaniu znaczników...
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10... takiego pętle już zrobiłem ale zapisuje tylko jedną...
Przepraszam za błędy w tekście "Maskowanie bitów". Poniżej poprawiona wersja. ---------------------------... BITÓW w pigułce. (Dla tych, którym sprawia trudność zrozumienie zagadnienia) PODSTAWY Liczby binarne - szybkie czytanie ich...
Witam. Otóż mam problem. Jak zrobić by po wybraniu np. odpowiedzi 1 (Koń) zadało następne pytanie czyli np. Co chcesz teraz zrobić? 1. Jechać na północ 2. Jechać na południe 3. Jechać na wschód 4. Jechać na zachód ? Oto kod: [syntax=pascal] const Liczba = 2; var Pytania : array[1..Liczba]...
Witam, chciałem podzielić się z kimś i przy okazji rozwiązać jedno zadanie z pascal'a. Zadanie jest złożone. Znam podstawy pascal'a ale to zadanie mnie przewyższa. Nie chce też żeby ktoś mi je rozwiązał bo wtedy niczego nie połapie. Zadanie jest takie: Napisać program tworzący 15 elementową jednowymiarową...
Ok wszystko działa, tylko nie mam pojęcia jak wykonać procedurę edytuj. Coś tam napisałem ale mi to nie działa. Prosiłbym o wyjaśnienie dlaczego ta procedura nie działa tak jak powinna. A powinna wczytać numer identyfikatora rekordu który ma być edytowany, po czym powinna usunąć ten rekord, a następnie...
Witam serdecznie! Mam do Was ogromną prośbę. Muszę zrobić 3 proste zadania w języku Pascal Zadanie I Wejście Pierwszy i jedyny wiersz wejścia zakończony znakiem nowej linii zawiera liczbę całkowitą z zakresu 0..255. Wyjście Pierwszy i jedyny wiersz wyjścia zakończony znakiem nowej linii...
Witam, czy może mi ktoś pomóc w narysowaniu schematu blokowego tych 2 programów? Pozdrawiam serdecznie i z góry dziękuję. program 1: Program Zgadywanka; uses crt; var pr,li,a,b,x:integer; c:char; label new,zle; begin new: clrscr; randomize; ...
mam dwa kody które napisałem do szkoły teraz dostałem zadanie połączenia tego by wyglądało jak kalkulator o to kod FUNKCJI : uses crt; VAR a,b,l,wynikh,x1,x2:integer; o, d,c: char; e,s:string; reszta,i,j:integer; wx,wy,w,x,y,a1,b1,c1,a2,b2,c2,pdelta,del...
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...
Problem dotyczy małego programiku w pascalu. Od niedawna zacząłem się tym interesować i chciałem pisać już coś poważniejszego. Problem dotyczy tego kodu: program imitCalc; uses crt; var a:integer; funkcja:shortint; g:real; h:real; begin a:=1; repea...
Witam. Mam takie zadanie: W pliku dane.txt znajdują się liczby w specyfikacji: - pierwszy wiersz - ilość liczb - kolejne wiersze - kolejne liczby Rozważmy przedziały liczb całkowitych, lewostronnie otwarte - prawostronnie domknięte, o długości 1. Wyznacz przedziały w których znajduje się...
Ogólnie nie wiem jaka ma być idea tego programu ale sadze iż ten sprosta twoim oczekiwaniom. Jednym z błędów którego nie potrafię poprawić jest tablica z indexami dlatego zawsze tworzy się 10 elementowa tablica na indexy a nie 2-3 tyle ile wpiszesz że chcesz liczb. Jeżeli nie o to chodziło to napisz...
Siemka, mam na wstep do programowania zrobic aplikacje okienkową w Lazarusie, która zamienia liczby dziesiętne na system dwójkowy, szesnastkowy i ósemkowy. Na razie napisałem zwykłą konsolową aplikacje w C, bo go lepiej ogarniam i próbuje to zmienić na Pascala. Tu program w C: A tu pascal z tym...
A wiec mam do zrobienia kilka zadan w TP, jestem poczatkujacym w tej dziedzinie dlatego prosiłbym o pomoc w napisaniu takich programów: 1) Wylosować 20 liczb i posortowac je metodą bąbelkową. 2) Na posortowanej wczesniej tablicy zastosowac wyszukiwanie binarne. 3) Napisz program zamieniający...
Witam, w szkole na zaliczenie mam zadanko z Pascala. Nie byłem na wszystkich zajęciach stąd wiedza jest troche ograniczona (niestety taka praca). Zadanie mam takie : program ma przeczytać 10 liczb, policzyć liczby ujemne i dodatnie, a nastepnie wypisać te których jest więcej. Drugie zadanie (nieobowiązkowe)...
wrych: a co robi procedura czytaj(...)? Zadeklarujemy: var liczba: string; Nagłówek procedury: procedure czytaj(komentarz: string; var napis: string; wspx, wspy: integer; max, skala :byte; znaki: zakres_znakow); Wywołanie: czytaj('Podaj liczbę ', liczba,...
Witam. Jestem nowy na tym forum, od pewnego czasu bawie sie pascalem i mam problem z jednym programem ktory napisalem a dokladnie z rozszyforwaniem co zrobilem zle. Napisalem kalkulator ale po debugu pojawia sie "syntax error, ; expected but UNTIL found" gdy klikam na ten napis pokazuje mi ostatnia linijke...
Więc schemat postępowania: 0) Przygotowujemy 4 tablice: - dla tysięcy ('tysiąc', 'dwa tysiące', ... , 'dziewięć tysięcy') - dla setek ('sto', 'dwieście', ... , 'dziewięćset') - dla dziesiątek ('dwadziescia', 'trzydziesci', ... , 'dziewięćdziesiąt') - dla jedności ('jeden', 'dwa', ... , 'osiemnaście',...
ma być jedno hasło tylko na stronę główną np szkoła nr 4 w xxxxx wykonał xxxx rok szkolny 2009/2010 a później będę pisał program Dodano po 12 ta 1 ramka to strona tytułowa ma sie ona pokazac tylko raz w programie po czym gdy podasz haslo prawidłowe przejdzie do menu(2 ramka i to menu...
Jak najszybciej potrzebuje rozwiązanie tych dwuch zadań w języku Turbo Pascal: 1. Napisz program, który czyta liczbę naturalną n, 1<n<=10, w tablicy dwuwymiarowej tworzy tabliczkę mnożenia dla liczb naturalnych z przedziału Wskazówka Trzeba zadeklarować tablicę dla najwiekrzego n, czyli...
siemka potrzebuje pomocy w stworzeniu programu(na dzis:( ) w pascalu a brzmi ono: Kolejka górska odjeżdża ze stacji X o godzinie T1 i przyjeżdża do stacji Y o godzinie T2. Wyznacz w sekundach czas podróży kolejką wiedząc, że podróż nie trwa dłużej niż jedną dobę. Wejście Pierwszy wiersz wejścia...
Witam potrzebuje pomocy w stworzeniu programu(na dzis:( ) w pascalu a brzmi ono: Kolejka górska odjeżdża ze stacji X o godzinie T1 i przyjeżdża do stacji Y o godzinie T2. Wyznacz w sekundach czas podróży kolejką wiedząc, że podróż nie trwa dłużej niż jedną dobę. Wejście Pierwszy wiersz wejścia...
Zeby ci to teraz wystlumaczyc bylby problem. Poszukaj na necie jakis kusow pisania w Pascalu. Chciales jakis prosty program, napisalem porgram ktory dodaje dwie podane liczby. program lol; uses crt; var liczba1,liczba2,suma: integer; begin clrscr; write('Podaj liczbe a: '); read(liczba1); ...
Miałem na zadanie domowe zrobić trzy programy w turbo pascalu: obliczanie delty, liczby min i max w ciągu i tabele z 10 kolumnami gdzie podajemy 10 liczb do wpisania w kolumnach (tege jeszcze nie zrobiłem :P) i mam je wszystkie w procedury wsadzić co już zrobiłem. I każda procedura ma być wywołana poprzez...
Witam jestem początkującym w turbo pascalu mam problem z tym oto programem: code: program sprawdz_parzystosc; uses crt; var x:real; begin writeln('Podaj x:') read(x); if x mod 2=0 then begin Writeln('Liczba',x,' jest parzysta'); end else begin write...
Witam. Mam taki problem. Mam barze danych w free pascal. Problem jest taki że nie potrafię zrobić kilku rzeczy, które chciałbym aby się znalazły w programie.. - Po wybraniu SZUKAJ pojawiało się pole wyboru: szukaj po: 1.kolorze, 2.marce, 3.roku produkcji.. i zabezpieczenia przed brakiem samochodu...
Skielet programu zrobiłbym tak: Podaj Liczbę X readln X Podaj liczbę Y readln Y Podaj działanie ( + - / * .. [Esc - koniec) znak := readkey; Case znak of + : DODAWANIE - : ODEJMOWANIE ...... ....... #27 : koniec = TRUE {wcześniej deklaracja koniec : Boolean; i...
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...
Coś mi się popieprzyło i kod który podałem zlicza puste linie w pliku i linie wypełnione zerami. Chyba była to odpowiedź na inny post. Co do uporządkowanego wyświetlania tablicy, podaję kod. Wpisywać można liczby oięciocyfrowe. Zmieniając dx moźna zapisywać liczby większej długości.[syntax=pascal] uses...
Po pierwsze napisz szkielet programu wyliczającego poszczególne elementy liczby (miliardy, miliony,tysiące,setki ...) Rozpisz sobie końcówki w poszczególnych grupach zależnie od 2 ostatnich cyfr mnoznika 1 - tysiąc 2,3,4,22,23,24 - tysiące 5,6,7,8,9,10,11,12,13,14,15,16,...
Widzę że to chyba kontynuacja innego tematu. Najpierw odpowiem na konkretne punkty, tzn. jak bym to kodował, a potem dorzucę parę uwag. 1. Musisz mieć podaną listę wierzchołków, powinna być skończona i albo możliwa do przeliczenia (jeżeli np. używa się zawsze tablicy 2x1000 i ustala się że po ostatnim...
Podam kod obliczenia x^y. Może on służyć zarówno do potęgowania jak i pierwiastkowania. y może być liczbą niecałkowitą, np -2.45, x również. Jedynie gdy x<0 a y jest real, program wypisze błąd, co jest oczywiste. uses crt; var x,y,wynik:real; i,int:integer; begin clrscr; writ...
Pomysl jest taki zeby dzielic string na 2, wkladac R lub k lub M w odpowiednie miejsce i sklejac to w nowy string. Najlepiej chyba zrobic pliki txtowe z baza danych wartosi serii rezystorow. Najlepiej zrobić bazę szeregów, a dla każdego szeregu dać listę mnożników i generować wartości w locie....
napisałem dodawanie lecz przy dodawaniu liczb 12345+54321 powinno byc 66666 a wychodzi 1130. co jest nie tak, nie chce zeby mnie na zaliczeniu zagiął koles na prostym zadaniu program suma; uses crt; var a,b,c: integer; begin clrscr; write('Podaj wartosc liczby a: '); readln(a); write('Podaj...
Opcja pierwsza, najprostsza: do każdego pytania posiadasz flagę czy zostało już wylosowane. Losujesz numer pytania i jeśli zostało ono już wylosowane, to ponawiasz losowanie. Złożoność jest zależna od generatora liczb losowych - w najgorszym przypadku może on zwracać cały czas jedną liczbę. Opcja...
Twoim błędem jest próba odczytania wartości real, z pliku TXT który zawiera liczby zapisane jako '1','2' itd. Nie da się tego zrobić bez zamiany jednego typu na drugi. We wcześniej wspomnianym przeze mnie poście, masz procedurę, która jest w stanie odczytać tablicę z pliku TXT i która przeprowadza...
Witam, Tak to znowu ja :D Jak zwykle probami staram sie dojsc do celu, ale znowu napotkalem przeszkode, napisane przezemnie programy nie dzialaja, gdzies musi kryc sie blad :( Prosil bym o ew. poprawienie :) Pozdrawiam program pola,v2; uses crt var figura: byte; var pole, a, b, h,...
Witam. Mam problem z pascalem ;) Mianowicie źle dzieli mi liczby na moim mini kalkulatorze, oto kod: program kalkulator ; [syntax=pascal]uses crt; var a,b : real; w1 : double; znak : char; procedure dodawanie; begin w1:=a+b; end; procedure odejmowanie; begin w1:=a-b; ...
Niestety pewne elementarne rzeczy trzeba po prostu wiedzieć, aby móc się uczyć. A kursy bardzo często wychodzą od prostych kodów obrazujących działanie, które najlepiej rozwijać. Jest to lepsza nauka niż próba wymyślania na początku coś od zera. Tak, kod jest obecnie składniowo i znaczeniowo poprawny,...
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...
Nie udało się, ponieważ to co napisano nie ma nic wspólnego z zadaniem. Kompletnie źle zrozumiałem to zadanie. Teraz rozumiem to tak, że jak podam liczbę kilkucyfrową, to program ma mi sprawdzić, czy każda kolejna cyfra podanej liczby (od lewej strony) jest większa od poprzedniej. Więc teraz mój...
Hej. Mam pracę domową, i nie wiem jaki błąd popełniłam . Proszę o pomoc. Agnieszka tak polubiła ciągi rekurencyjne, że nie zastanawia się już dłużej nad królikami, tylko analizuje same wzory. Tym razem prosi o obliczenie wartości elementów ciągu określonego wzorami: A(0)=4, A(1)=7, A(n)=2A(n-1)+5A(n-2)...
To jeszcze po części zależy od tego, jak chcesz zrealizować interfejsowo kwestię. Tak, na plansze nada się tablica dwuwymiarowa. A właściwie to dwie - po jednej na każdego zawodnika. Gra by musiała składać się z dwóch etapów: 1 - wypełnienia tablicy (ręcznie lub automatycznie), 2 - właściwej gry. Jeśli...
U Borlanda było coś a la malloc, GetMem. Jednak jeżeli mówi,u o standardzie Pascala. to chyba nic takiego nie było (też nie wszystko pamiętam), więc chyba nie o to chodzi. Zresztą po co wtedy by była ta stała oznaczająca liczbę elementów tablicy? Co do uczenia Pascala, to miał on jedną zaletę, o ile...
Myślę, że mechanizm oceniania zadań konkursowych w wielu przypadkach wygląda tak: 1. Użykownik przesyła kod źródłowy do oceny. 2. Program oceniający kompiluje kod (pierwsze punkty za kompilację). 3. Program oceniający testuje kod dla wybranych danych (punkty za działanie kodu). Zadanie przykładowe...
Witam! Wpadłem na chyba szalony pomysł - mianowicie: chcę zrobić "benchmarka" w języku Pascal (inny odpada ponieważ tylko ten dobrze znam). Więc kilka pytań: 1. Czy Pascal umie "rozpoznać" konfigurację komputera? Tzn. ilość ramu, szybkość proca itp. 2. Jak SuperPi oblicza liczbę PI? Jaki jest jego...
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ę.
Mam nadzieje że, mi ktoś pomoże. A oto co ma robić program który mam napisać: Dane są dwie liczby naturalne m i n przyczym m <= n. Spośród liczb naturalnych nalezących do przedziału <m, n> znaleść i wydrukować te, których kwadrat jest podzielny przez zadaną libczE naturalną - p. Bardzo...
To jest formatowanie liczb rzeczywistych (innych zapewne tez). Ma wyswietlic liczbe (2 liczby znaczace przed przecinkiem i 2 liczby znaczace po przecinku). Tylko tyle pamietam. Jesli usuniesz to formatowanie bedzie wyswietla cala liczbe rzeczywista.
Od razu lepiej ;) Oto moja propozycja programu (wydaje mi sie prostszy) PS: nie wrzucałem pola kwadratu i trójkąta bo z tym już sobie poradzisz ;) var a,b,c,s,w:real; znak,i,n:b... real; procedure DODAWANIE; begin w:=0; writeln...
Ź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...
sorki ta funkcja to TryStrToFloat opis jej masz o Boże! jeszcze początków nie znam a już procedury.. :/ czyli czy moja procedura powinna wyglądać tak? procedure poprawnosc(A; var V; var Code: Integer); i wtedy: program znajdujący rozwiązanie równania; Uses crt;...
napisz program ,który wczytuje n liczb całkowitych do tablicy i przesuwa w niej liczby o n elementów w prawo.
Ł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 ...
No ja tez jakos jestem na elektrotechnice i poza jezykami ktore nas uczyli (pascal, c, asm) to znam jeszcze pare. Jak to mozliwe ze kolega gumiś_rzesz nie ma pojecia o programowaniu w c. Taki program z najprostszych tutoriali da sie napisac, a o najprostsze tutoriale pyta sie google ;) A poza tym jezeli...
Witam! Napisałem program w Turbo Pascalu 7.0. Program oblicza mi pewny y na podstawie kilku zmiennych. y jest typu real bo obliczam go ze złożonego wzoru i wynik jest liczbą przecinkową. Kiedy chce już programować wykres x,y to kompilator mi wywala błąd TYPE MISMATCH. Jest jakaś możliwość wykonania...
Liczba pierwsza ; liczba naturalna, która ma dokładnie dwa dzielniki naturalne: jedynkę i siebie samą, np. 2, 3, 5, 7, 11, 13, 17, 19, 23, 29 itp. Liczby naturalne większe od 1, które nie są pierwsze, nazywa się liczbami złożonymi. Z podanych definicji wynika, że liczby 0 i 1 nie są ani pierwsze,...
Witam serdecznie wszystkich użytkowników ;) Mam takowy problem... muszę napisać program, ale nie wiem jak... wiem jak napisać początek, niestety drugiej części napisać już nie potrafię :( oto zadanie: Napisać program o następujących założeniach: 1. Wczytać dane do tablicy dwumiarowej "d1" o rozmiarze...
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:bool...
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,...
Oto zdjęcie: Chodzi mi o to, żeby ktoś pomógł mi napisać do tego warunek, który będzie wyświetlał błąd kiedy jedna z liczb będzie ujemna lub równa 0 (zero), a jeśli liczby będą dobre to niech wykonuje to co ma wykonać, czyli coś tam policzyć. Proszę o szybką odpowiedź, z góry wielkie dzięki za...
Odkurzyłem co nieco :D i nawet fajnie dział jak to przy mnożeniu dwóch liczb Wersja sprawdzona i działająca [syntax=pascal]var a,b,p : integer; begin writeln ('Podaj pierwszy bok...'); readln(a); writeln ('Podaj drugi bok...'); readln(b); p:=a*b; writeln ('Pole...
wskaznik^.next^.liczba może powodować błędy
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...
Witam, mam do napisania program który odczyta z pliku dane.txt 20 liczb rzeczywistych, obliczający iloczyn tych liczb i zapisujący go w pliku wynik.txt Proszę o pomoc.
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).
[url=]Największa liczba wśród 8 liczb wpisanych z klawiatury.
[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...
Witam! Mam problem, długo by opisywać, ogólnie zrozumiałem już jak się oblicza pierwiastki metodą newtona, na kartce umiem, umiem też zrobić program który oblicza pierwiastki z 2 i 3 stopnia, ale muszę zrobić pierwiastkowanie z kazdego stopnia, wiem ze w jednym miejscu musze zrobic tylko potegowanie...
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...
[syntax=pascal]{ Kalkulator v1.0 by me ^.^ Program bierze pod uwage kolejnosc wykonywania dzialan wykonujac wyrazenia np. 2+3+4+5*10/19*6+3-3 Podwojne wpisanie znaku np. 10+/20 - program traktuje jako 0 (zero) } uses crt; const ilosc=999; var ch:char; napis:string; liczba:array[1..ilosc]of...
Treść polecenia: Napisz program przepisujący liczby podzielne przez 3 z jednego pliku do drugiego. Program powinień przyjmować dwa argumeny: nazwę pliku wejściowego i nazwę pliku wyjściowego.... W pseudokodzie, więc poprawki będziesz musiał wprowadzić sam. Ja nie mam jak sprawdzić, bo BP ani TP...
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...
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...
Bez podstaw arytmetyki daleko nie zajdziesz, liczba gwiazdek: 2*(Length(x)+5) Z całą pewnością to: [syntax=delphi] GotoXY(35,13); WriteLn(StringOfChar('*',Length(x)+4));[... nie będzie to na środku ekranu. Zauważ że użytkownik może podać długie imię i nie będzie to wtedy na środku. Ale to:...
Hej potrzebuje pomocy z bazą danych w pascalu. Potrzebuje aby program szukał osób po nazwisku i wieku i je wyświetlał(w osobnych procedurach), miał możliwość modyfikowania dane osoby, wypisywanie wybranego elementu i sortowanie względem wieku. Z góry dzięki za pomoc. [syntax=pascal]program baza_danych_osob; const ...
(at)Dżyszla , Napisz program wypisujący w jednej linii Twoje imię i nazwisko oraz numer indeksu, a następnie wyliczający wszystkie dzielniki całkowite Twojego numeru indeksu oraz zapisujący je do tablicy. W kolejnym kroku algorytm ma poprosić użytkownika o liczbę dzielników (oznaczmy ja przez m),...
Witam, to chyba w sumie proste. W języku C jakiekolwiek wyrażenie jest (w sensie logicznym) true jeżeli jest różne od zera . Jeżeli Delphi chce mieć wyrażenie stricte logiczne, musisz po prostu swój warunek zapisać tak, że wyrażenie (całe, które tam jest) jest różne od zera, w Delphi to...
Jedna to tablica liczb całkowitych, druga to tablica wskaźników na liczby całkowite. Napisz funkcje, która ustala wartości losowe pierwszej tablicy. Przeprowadź proste przeszukiwanie tablicy liczb w celu odszukania najmniejszej i zapamiętaj jej wskaźnik w tablicy wskaźników. Potem poszukaj...
Ja tam nie wiem o co chodzi, kolega mi to dyktował. No ale jak ja to rozmumiem: -Trzeba napisać program w pascalu, korzystając tylko z tablic, nie może być tam list. - Program ma robić obliczenia na samych liczbach (bez żadnych niewiadomych <x>) - Program ma za zadanie przekładać znaki wpisane...
uses crt; var wynik:integer; x,y:integer; begin wynik:=1; write('Podaj z jakiej liczby silnia ? :'); readln(x); for y:=1 to x do wynik:=wynik*y; writeln('Silnia tej liczby to :',wynik); end. moze bedzie trzeba wziasc wynik innego typu zmiennych gdy silnia bedzie za duza.
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...
Ja polecam Free Pascal Compiler. Jest na prawde bardzo dobry. Przede wszystkim dziala zawsze i wszedzie, nie ma problemow z modulem graph i crt, i do tego ladna prezentacja kodu gdzie np. rozkazy, liczby i zwykly tekst sa oznaczane innymi kolorami. Wyciaga standardowo rozdzielczosci do 1024x768 256 kolorow. Qrcze...
A sortowanie najprościej to chyba z tablicy klepnąć ( i szybkie sprawdzenie czy już podana liczba była wprowadzona). Klepałem coś takiego na zaliczeniach z turbo... tablica[np 100 elementow] zapisana zerami-> <<PETLA>> wp... liczbe X -> jeżeli tablica [x]=1 wróć -> tablica[x]=1 <<KONIEC...
a może ktoś z was ma prosty program zamieniający liczbę z jednego systemu liczbowego na inny ale w Pascalu??Dziękuje
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...
type TLiczba = String; super, ale... po co? Nie lepiej po prostu a, b: extended ? Pozdrawiam. Heh, "duże" liczby to chyba takie, których nie można w banalny sposób dodać operatorem +. Typ extended przechowuje liczby w postaci zmiennoprzecinkowej (cecha i mantysa) i nawet...
Niestety nie mam czasu pisać gotowych algorytmów dla ciebie :( wielkosc - max ilosc ludzi wpisanych tu masz przykład sortowania bąbelkowego najprostrzego dla jednej tablicy musisz dodać pytanie wg czego chcesz sortować i wtedy zamiast tablica dajesz naprzykład Nazwisko i sortują nazwiska musisz...
Jak podzielić liczbę modulo x w Pascalu (modulo - reszta z dzielenia) W C++ było %...
Odwoływać musisz się doportu o ardesie 2 większym. A ze zmianą karzdego pinu z osobna to trochę sie zabawisz, bo istrukcja out zmiena przynajmniej 8 jadnocześnie. A jak to ominąć? Ano trzeba wiedzieć które bity z portu odpowiadają za daną linię i wysyłać do niego takie liczby w których wszystkie pozostałe...
witam musze napisac pewnie programik a w zasadzie znalazłem taki o jaki mi chodzi z tym ze napisany w pascalu i musze go zamienic na c. Napisał bym sam program ale niestety nie rozumiem aproksymacji i wiele godzin nauki i czytania o niej nie przyniosły rezultatu. Teraz moje pytanie czy jesli przepisze...
I czego kolega nie wie ? jak to obliczyć czy jak to zrobić w pascalu ? To ma być na liczbach zespolonych ? Liczy się z prostego wzoru w przypadku takiego układu symetrycznego Ia = \frac{Ua}{Z} Ib = \frac{Ub}{Z} Ic = \frac{Uc}{Z} Będą się różnić tylko kątami. Moduły tych prądów będą...
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: Średnia geometryczna: czemu zero ma być sygnałem...
W Pascalu procedura konwersji łańcucha na liczbę nazywa się Val