nil, nie nif I w zależności od kompilatora parametr zwracany może być poprzez Result a nie nazwę funkcji. Poza tym można znacznie uprościć: empty:=(pkol=nil); (nawias zbędny co prawda, ale ja dla czytelności tak lubię zapisywać ;)
Nie zwracasz wartości z funkcji, zamiast tego wypisujesz w nich wyniki. Dlatego pewnie jakieś głupotki wychodzą. Zwracanie wartości z funkcji w pascalu wygląda tak (o ile pamiętam): [syntax=pascal] function suma(a,b : real) : real; begin suma := a + b; end;[/syntax] Nic nie musisz wyświetlać w samej funkcji bo wyświetlanie masz w głównym programie na...
Programy obliczania potęgi (naturalnej) liczby całkowitej możesz znaleźć pod następującymi linkami: http://www.komputery-internet.net/turbo/... http://4programmers.net/Turbo_Pascal/Art...
Sama nazwa; listy dwukierunkowej pochodzi od tego, że dowolny element listy, zawiera adres elementu poprzedzającego dany element na liście, a także adres elementu następnego na liście. W ten sposób, znając adres dowolnego elementu, możesz prześledzić całą listę, bez potrzeby wiedzy o "położeniu" każdego elementu z osobna; wystarczy znać tylko adres...
w tym drugim A(1,0) jest 2 nie powinno być też 1? Zgodnie z tym co napisałeś w pierwszym poście: A(x,y)={ 2 y=0 czyli jeśli argument y=0 to funkcja ma zwracać 2 ;)
Funkcja dodawanie wyswietla 15 a zwraca 0 ktore pozniej wyswietlasz w Write.
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....
Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))
W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)
Witam, to chyba to: http://www.delphibasics.co.uk/RTL.asp?Na... jest jeszcze coś takiego: http://delphi.triger.com.pl/index.php?ME... Pozdrawiam, Krzysztof.
Jednym słowem - callback. type TCallback = function(dane : TRekordDanych; x : cośtam) : Integer czy cokolwiek; PCallback = ^TCallback; function RobCosIWywoluj(proc : PCallback; par1, par2 : parametry) : Integer; begin ... proc^(dane, par1); ... end; Chyba da się też obejść bez typu PCallback, stosując...
Nigdy nie używałem rzutowania w pascalu gdyż nie było potrzebne. Wystarczała funkcja round(). Shift + F1. Bardzo przydatne narzędzie w Pascal IDE.
Użyj procedury Str albo funkcji IntToStr . EDIT: Przepraszam - nie doczytałem że Str nie można użyć ;)... no to trzeba będzie napisać pętelkę z dzieleniem przez 10 aż dojdziemy do 0; kolejne reszty z dzielenia będą stanowiły kolejne cyfry (tylko że w odwróconym porządku - od najmniej do najbardziej znaczącej), które można zamieniać na znaki z użyciem...
http://www.dzyszla.aplus.pl/programy_i_t... = w C
nauczyciel zadał do zrobienia program który posiada menu i oblicza takie oto funkcje statystyczne: -średnią arytmetyczną -Odchylenie standardowe -dominate -mediane i nie wiem czy użyć funkcji case, zrobić to za pomocą tablicy albo przy pomocy procedur czy też funkcji
Żeby jednocześnie wszystko się działo wystarczy umieścić wszystkie obliczenia i odświeżanie obrazu w ramach jednej pętli. Aby nie wstrzymywać jej oczekiwaniem na klawisz, można posłużyć się warunkiem sprawdzającym istnienie czegoś w buforze klawiatury - realizuje to funkcja keypressed .
Nikt nie odrobi za Ciebie zadania ! Wykaż inicjatywę wstaw chociaż to co sam zrobiłeś ...
if linia=slowo then - ten warunek jest błędny. Musisz porównywać wyłącznie ciąg o długości odpowiadającej długości słowa lub ewentualnie odszukiwać, czy dane słowo występuje gdziekolwiek w linii ( Pos , ale nie pamiętam, czy TP miał tą funkcję)
Witam! Problem jest taki. Free Pascal program pisany pod DOSa biblioteka GRAPH. Funkcja arc rysująca wycinek okręgu nie działa prawidłowo tzn. obojętnie czy dam arc(x,y,90,270,r) czy arc(x,y,270,90,r) to funkcja rysuje wycinek okręgu z "brzuchem" w lewą stronę tzn. od 90 przez 180 do 270 stopni i nie che narysować tego półokręgu od 270 przez 0 do 90...
20 to jest spacja w ASCII ale '20' juz nie. Przeczytaj co zwraca funkcja pos. Mianowicie zwraca ona index znalezionego substringa. Jezeli nic nie znajdzie zwraca 0. Masz zmienic dokladnie jak podalem wyzej. Poza tym pos to funkcja wiec wypadaloby zadeklarowac zmienna ,ktora bedzie przechowywala wynik dzialania funkcji , a w progranie uzyc przypisania...
Hej potrzebuję pomocy z bazą danych w Pascalu. Potrzebuję 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 MaxOsob = 100; Plik_Bazy_Danych = 'osoby.txt';...
Wczytujemy liczby, pierwsza liczba > dzielnika jakie działanie program ma tutaj wykonać? a mod dzielnik = 0 ? Jakie maja być to działania, kolejność i schemat programu rozumiem, co ze sprawdzaniem, porównywaniem i dopisywaniem kolejnych liczba, oraz jak wspomniałeś wyżej reszta tymczasowa. W jaki sposób to zapisać jaką funkcją :?:
Z grafiki w TP dużo mi sie juz zapomniało (z resztą wogóle mnie to nie interesowało), ale wydaje mi się, że to tego jest funkcja GetPixel - w przeciwieństwie do PutPixel, która ustawia wybraną berwę punktu.
Już coś znalazłem ale mam jeszcze jedno pytanie. O co chodzi z takim zpisem: SwapVectors; Exec(ProgramName, CmdLine); SwapVectors; Co robi ta funkcja 'SwapVectors' ?
Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)
Jaki pascal? Może nie masz tam tej funkcji? Potęgowanie można zastąpić 2 funkcjami ln() i exp().
poprawiłem kompiluje, potrzebuje dodać procedure do tego, lub przerobić tak równanie kwadratowe ze zamiast funkcji będzie użyta procedura.
Poszukaj w helpie funkcji asign.
Zauważ ze to co wkleił kolega marihires to funkcja która do wywołania potrzebuje jednego parametru typu word i zwraca wartosc typu longint. To co zrobiles po nacisnieciu 7 bedzie probowalo wywolac funkcje silnia() bez parametru i sypnie bledami o ile w ogole sie skompiluje :) Podpowiem ci ze musisz zmienic funkcje na procedure bez parametrow i dodac...
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;
Tak mało Pascala w tym Pascalu, że pan Wirth się przewraca. :) Napisz przynajmniej jaka jest treść Twojego zadania, bo teraz wszyscy się domyślają, niestety. Ja nie wiem co masz właściwie zrobić z tą funkcją, znaleźć miejsca zerowe (delta) czy stablicować i pokazać na wykresie? A może i to i to? A co do samego zadania, to rób po kolei, Masz już wczytywanie...
Witam w tym temacie dołączę gotową bazę danych w języku Turbo Pascal, oczywiście którą sam napisałem, możliwość dodawania rekordów, kasowania, edycji, zapis na dysku do pliku o nazwie jaką sam ustalisz do 8 znaków oczywiście :), edycji tego pliku, oczytaniu pliku istniejącego na dysku, można jeszcze rozbudować bazę o potrzebne dodatkowe opcje. Pozdrawiam...
Nauczyciel bardzo fajny :D Czyli naprawdę Pascal może obsłużyć jednocześnie 3 wątki? Jak się nazywa funkcja do wykrywania konfiguracji komputera?
witam mam programik napisany w turbopascalu obsługujący maszynę do sprawdzania części do komputera sa doprowadzone 2 sygnały z maszyna a ja chciałbym dołożyć funkcje do programu która by wysyłała 2 sygnały z komputera do mazyny czy to jest możliwe do zrealizowania
Mógłbyś tylko dodać co jest daną wejściową? Łatwiej będzie o rozszyfrowanie działania. Tzn - jeśli podasz co ma wczytywać funkcja, czyli jakie dane mają być dla (d,m,r) to będzie łatwiej. Domyślam się, że chodzi o dzień, miesiąc i rok, tak? Przy okazji - w Pascalu, tak jak i w Delphi dość łatwo jedną funkcją odczytać obecny dzień tygodnia: Pascal: const...
A w czym dokładnie piszesz (jakie środowisko/kompilator)? W nowszych można by się posługiwać np. parametrami w postaci funkcji porównujących i zamieniających miejscami (czyli przekazujesz referencje do funkcji, a sama funkcja sortująca sobie po prostu wykorzystuje nie zwracając uwagę na typ - nawet jej tablicy nie musisz dawać). Można by się też posługiwać...
Odpowiadając krótko na pytanie - procedura ClrEol Przykład powinien wszystko wyjaśnić: [syntax=pascal]program Test; uses crt; var i, j: Integer; begin ClrScr; Write('Nacisnij dowolny klawisz'); repeat for j:= 1 to 5 do begin Write('.'); Delay(20000); end; GotoXY(WhereX - 5, WhereY); ClrEol; until Keypressed; end.[/syntax] Resztę musisz doczytać w pomocy...
Jaki to pascal? Jaki system?
?? A po co wywoływać menu rekurencyjnie? To by prowadziło do niebezpieczeństwa przekroczenia rozmiaru stosu. Jeśli już tak bardzo, to tak samo, jak inną funkcję: [syntax=pascal]function Menu; begin writeln('1 - wyswietl znowu menu; 0 - wyjdź z tego poziomu'); repeat case getch() of '1': Menu; '0': Exit; end; until False; end;[/syntax]
Faktycznie, raz było tak, a raz tak. W pascalu rzeczywiście nie ma ani ceil, ani floor - pewnie ze względu na nieelegancką asymetrię tych funkcji ;) Pozdrawiam, Dr.Vee
Pozwolicie ze sie podepne do tematu. Mam ten sam problem. Jest juz gotowa karta ISA i teraz musze napisac program do jej obslugi. Karta, w zaleznosci od trybu w jakim pracuje (tryb zalezy od stanow na IOR oraz IOW), przesyla na zewnetrzny wyswietlacz 4 bitowe slowo. W jednym trybie to slowo pobiera z PC a w drugim z zewnetrznego zadajnika. Caly proces...
prostym Ifem... if ((date2.miesiac) > (date1.miesiac)) then writeln('data2 jest wieksza') else writeln('data 1 jest wieksza); powinno być sprawdzenie ifem czy miesiace nie sa rowne, jesli sa to if porownujacy dni -->if jak wyzej. i masz juz gotowy program. Date najlepiej bedzie ci jako rekord napisac o polach dzien i miesiac. rozwiazanie dla miesiecy...
Wyżej zamiast "słowo" powinno być "słowa" Tak jak napisałeś jest źle, bo złożoność to suma złożoności
Witam, zdaje się że ta funkcja to Val Pozdrawiam, Krzysztof.
C jest językiem niższego poziomu niż Pascal. Read i ReadLn w Pascalu to specyficzne konstrukcje językowe, a scanf w C to najzwyklejsza funkcja z biblioteki. C jest językiem tego samego poziomu co Pascal, a funkcje scanfs i read/readln są odpowiednikami w tych językach. A to że trochę inaczej działają to już problem programisty. Składnia języka pascal...
Poprzestawiaj sobie wcięcia tak jak w moim wcześniejszym poście - łatwiej widać o co chodzi :). przed deklaracją funkcji brakuje Ci end:
Zobacz nagłówek ctype.h (albo cctype w C++) i funkcję int toupper(int c); Pozdrawiam, Dr.Vee
W zasadzie to ta funkcja nigdy nic nie zwróci bo NWW dla 7,8 i 9 to 7*8*9 czyli 504. Ale można to zrobić tak: [syntax=pascal]program podzielne789; var i,j: integer begin writeln('NWW dla 7,8 i 9 to: '); for i = 7 to 100 do begin j:=(i mod 7)+(i mod 8)+(i mod 9); if j=0 then begin write(i); write(', '); end; end; end.[/syntax] Szkoda że musieliśmy dać...
Mam pytanie Obliczam w pascalu funkcję: sin(30) i wynik wychodzi -0.99 natomiast w tablicah matematycznych sin30 to 0.5 Wiem że pascal podaje wynik w radianach, ale pytanie jak zrobić żeby po zastosowaniu powyższej funkcji podawał wynik taki jaki jest w tablicach matematycznych????
Nowa wersja AVRPascala 2.7, jak zwykle opublikowałem ją tutaj: http://akarwowski.pl/index.php?page=elek... Zmiany: - nowa wersja kompilatora FPC 3.3.1. (commit 2262d2050defed7a5df8aa6c70ad696603335d3d... Poprawki błędów: - zredukowano rozmiar binarnych plików wynikowych; podziękowania dla (at)mizar, (at)Dzandaa a szczególnie (at)ccrause za...
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
Skoro kod: [syntax=pascal]minimum:=tablica[1]; For i:=1 to N do begin if tablica[i] < minimum then minimum := tablica[i];[/syntax]...znajduje minimum, to utwórz z niego funkcję: [syntax=pascal] function Minimum(const tab: array of integer; const minindex,maxindex: Integer): Integer; var i: Integer; beign minimum:=tab[minindex]; For i:=minindex to...
2. function declaration isn't a prototype - już wiem o co chodziło. W definicji miałem np: init_uart() a powinno być init_uart(void). Czy funkcja bezparametrowa na pewno wymaga void'a? Z tego co mi się zdaje to nie.. (A co do różnicy w pliku nagłówkowym a pliku .c to różnicy tej mieć nie moge bo w WinAVR nie pisze się pliku .h osobno. nie wiem jak...
Witam Mam pewien problem, wchodze w glowe alenie moge znaleźć rozwiazania. Chodzi o to aby zadeklarować tablicę N elementową a funkcja w której bedzie uzyta ta tablica bedzie ustalała ilo elementowa jest ta funkcja; np. funkcja -> pamiec(30) bedzie tworzyc tablice 30 elementowa i wykonywac jakies tam swoje obliczenia. Bardzo proszę o pomoc w jaki sposób...
Piszesz ogólnikami że czegoś nie rozumiesz ale właściwi czego, cały Turbo Pascal Ci wyjaśnić? Poczytaj kurs np na http://www.turbopascal.programuj.com/ albo http://www.pascal.eu.org/index2.htm albo gdziekolwiek indziej. W internecie tego bez liku. Im dłużej będziesz nad tym siedział tym więcej się nauczysz. Posiedzisz, pokombinujesz aż wreszcie zrozumiesz....
Jeśli jest załadowany do pamięci sterownik myszy, to wszystkie usługi mozna realizoać przez przerwanie 33h, są tam dostępne, właczeni/wyłączanie kursora, edycja kształtu kursora, sprawdzanie pozycji/klawiszy, etc. Jednak ejst dostępna jedna bardzo ciekawa funkcja, pozwala "podczepić" pod sterownik wlasna procedure.
próbowałem z eof ale ta funkcja nie chce u mnie działać, wyskakuje błąd
No dobra, ale jak nie potrafisz nawet tego rozrysować czy choćby opisać, to raczej trudno będzie to "nie wiem" zaimplementować... Musisz wyjść od zaprojektowania dobrego algorytmu na grafie (bo słownie to będzie można się pogubić w punktach). Potem można to zapisać instrukcjami warunkowymi. A de'facto podałem rozwiązanie - kwestia zastąpienia funkcji...
Gdybym dziś musiał, bym podjął próbę zlinkowania C z Pascalem, a samą funkcję zachował w C. Operatory arytmetyczne w C są "surowe", w pacalu mogą być "bezpiecznie" np z kontrolą przepełnień, tu jest prawdziwy unsigned, tam ugłaskany unsigned itd.... Kilkakrotnie przez 25 lat miałem porażki. Pamiętaj o stringach liczonych od 1 Prawdą jest że nie angażuję...
Drogi kolego. Po pierwsze, nie krzyczymy na forum. Po drugie, obowiązują na forum pewne zasady, o których może kolega poczytać w regulaminie forum. Po trzecie, napisał kolega : OTO POPRAWNIE NAPISANY PROGRAM No, jak dla mnie, jest to dość poważna nadinterpretacja. Nie wiem, jakiego Pascal-a kolega używa, ale wywoływanie nazwy funkcji, jako argumentu...
spróbuj stworzyć projekt na nowo. Jeśli masz złożoną formę, możesz stworzyć nowy projekt, zapisać go, zamknąć Buildera, skopiować zawartość pliku odpowiedzialnego za układ elementów na formie, skopiować kod. Nie kopiuj jednak niczego ponadto. Otwórz ten nowy projekt - powinieneś mieć widoczna formę i cały kod. Spróbuj skompilować. Jeśli nie przyniesie...
Witam, funkcja w Pascalu do generowania liczb to Randomize(); trzeba zadeklarować zmienną typu real i wywołać w/w funkcję. pzdr
mozesz też dać getch(); z biblioteki chyba conio.h Chyba pomylily ci sie jezyki? To co piszesz to funkcja z jezyka C i biblioteki napisanej w C. Dla pascala nalezalo yb uzyc funkcji (procedury) ReadLn;
Faktycznie ciężko się porozumieć. Może tak? function pascal(n,k:integer):inte... begin if (k=0) or (k =n) then pascal := 1 else pascal := pascal(n-1, k-1) + pascal(n-1,k); end; dalej normalnie ... maxrow=20; // ;-) maxcol=maxrow; .... for (i=0;i<maxrow;i++) for (j=0;j<=i;j++)...
'Jak zapisać w Turbo Pascalu funkcje y=ae(bx)' (bx) - potęga??' y=ae(bx)'=a*e^b (z matematycznego punktu widzenia, rozniczkujac po x). W pascalu mozna to zapisac y=a*exp(b). 'Czy może to być tak że : y=exp(xln(y))'. Jest to funkcja uwiklana dlatego uznalem, ze zastapie argument y argumentem z, bo uznalem, ze nie potrzebujesz obliczen funkcji uwiklanej....
Tablica jest z utworzonego pliku w ktorym normalnie są zapisane liczby jedna obok drugiej odzielone spacjami, w czterech rzędach. nie musi byc to opcja blockread, po prostu chce jakimkolwiek sposobem wczytac tablice z pliku. To czytaj zwykłym readln a potem potnij stringa w miejscu spacji (jakaś pętla i funkcja pos powinna wystarczyć) i przetwórz na...
Po pierwsze, jeżeli stosujesz własne funkcje do dokonywania obliczeń, to możesz sprawdzać właśnie w tych funkcjach, czy ich argumenty "są odpowiednie". Zamiast : function pierwiastkowanie(a:real):... begin pierwiastkowanie:=sqrt(a); end; Zrób coś takiego : function pierwiastkowanie(a:real):... begin if...
Dawno już nie bawiłem się Pascalem ale jeszcze co nieco pamiętam: [syntax=pascal] unit nazwa_modulu; interface {tu deklarujesz procedury, funkcje, zmienne} implementation {tu treść powyższych procedur i funkcji} end. [/syntax] Na początku programu deklarujesz z jakiego modułu korzystasz (może być ich wiele) poleceniem [syntax=pascal] uses nazwa_modulu;...
Wszystkie wymienione przez Ciebie słowa/funkcje/procedury nie istnieją w standardowych bibliotekach Turbo Pascal-a. Na 99% jest to "produkcja" autora/autorów w/w książki. Biblioteka zawierająca te funkcje powinna znajdować się na załączonym do książki nośniku.
To jeszcze drobiazg stylistyczny: brzydka jest taka bezwarunkowa pętla, proponuję konstrukcję: repeat until wybor = '7'; W Pascalu unikamy exit i goto. Bez przesady oczywiśce, ale tu jak najbardziej. I zawartość wariantów case przerobiłbym jednak na funkcje. To bardzo poprawi czytelność.
Zacznij od nauki funkcji i procedur, bo kod jest nie do ogarnięcia.
Turbo Pascal i jego podstawowe sterowniki są w stanie obsłużyć 15 trybów. 5 tekstowych i 10 graficznych. Można je obsługiwać za pomocą funkcji bibliotecznych lub komórek pamięci. Adres pamięci tekstowej znajduje się w 0B800h:0000h, a graficznej w 0A000h:0000h. W komórkach znajdują się dane. A teraz odczyt: funkcja mem: var odczyt : byte; . . odczyt...
Dlaczego? Możesz tylko zamiast procedury wypisującej zrobić funkcję, która zwróci ten tekst i też zadziała.
Przez nieuwagę napisałem dla sinusa, ale zamiast sin.... napisz cos..... uses crt, Graph; var grDriver,grMode,i,y1,y2,ErrCode: Integer; str:string; begin writeln('podaj pelna sciezke dostepu do katalogu BGI np c:\tp\bgi'); readln(str); grDriver := Detect; InitGraph(grDriver, grMode,str); ErrCode := GraphResult; if ErrCode = grOk then begin setcolor(14);...
http://www.firebirdsql.org/manual/genera... QuotedString? Po prostu każdy blok oznaczony jest wcięciem. Ponadto, jako że Pascal nie rozróżnia wielkości liter, warto zapisywać słowa kluczowe małymi, zaś funkcje z wielkiej litery każdy wyraz występujący w jej nazwie. Czasami zamiast tej reguły stosuje się podkreślniki rozdzielające wyrazy. Prosty...
No patrz też na to wpadłem ale wtedy nie pokazuje miejsc zerowych :cry: Widac przyblizenie Y jest za male w tym przypadku. Ze względu na skonczona dokladlosc obliczen trzeba zrobic pewne uproszczenia. Program uznaje, ze f(x) = 0 jesli wartosc bezwzględna f(x) < 1e-5 Widocznie w tym przypadku ostatni punkt przed miejscem zerowym jest jeszcze >...
Myślę, że to co napisałem jest wystarczające żebyś sam stworzył odpowiedni kod - trochę się musisz pomęczyć. Dopowiem tylko, że algorytm, który podałem, jest właściwy dla środkowego elementu. Pierwszy i ostatni element usuwa się dużo prościej. Poza tym podejrzewam, że w sieci jest pełno funkcji napisanych w Pascalu operujących na listach.
jest to funkcja, która zwraca w wyniku ciąg. CZyli używasz jej, zamiast ciagu.
Możesz mi podać, co jest potrzebne do funkcji i jak mniej więcej jak to ma wyglądać.
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
Czy jest odpowiednik ShellExecute dla wywołania procedur, funkcji, klas? - z parametrami oczywiście. Z góry dzięki
Funkcja random sama w sobie jest powtarzalna, trzeba tylko przypisać stałą wartość do zmiennej RandSeed.
Jak zrobić edytor tekstu w pascalu. Ma mieć funkcje np. wstawiania spacji, przenoszenia wyrazu bez ucinania, przenoszenia linijek w dół po naciśnięciu entera itp. Jak przechowywać\pisać tekst, jeżeli jest dłuższy niż 255 znaków? Zamykam. - arnoldziq
Dzięki.Juz doszedłem wczesniej sam.A mam takie pytanko.Czy ktoś wie jak to ugryźć z komunikacją przez rs232 z myszką komputerową???Znalazłem myszke i chciałbym sie cos pobawic.Myszka działa.....Wiem ze w xp zablokowany jest bezpośredni dostęp do portów wiec sciągnąłem programik który sobie z tym poradził.Proszę o podstawowe wskazówki co ma byc w programie.Czy...
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...
o taką odpowiedź mi chodziło dzięki ;) Tylko najpierw tablice zrobić a czy zadeklarować wszystkie zmienne na samym początku w sekcji var czy do każdego pkt oddzielna deklaracja ... a co z funkcjami za pomocą których mam wstawić indeksy do tablicy ?
Myślałem, że można to zrobić prościej np. tak jak w Basic-u jedną instrukcją. Jak napiszesz odpowiednią funkcje to tesz będziesz miał jedną linijke.
Tak właśnie chciałem zrobić ale pisze mi wczytaniepliku.pas(4,28) Error: Illegal function result type Z tego co kumam funkcja nie może być typu plikowego nie wiem jednak czemu.
dopisać readln;
Nie rozumiemy się. Mój zwykły kalkulator obliczając np Sin(45) (w wyniku dec) Sin(45)=0.707106... a już jeżeli liczę wynik w (rad) Sin(45)=0.85090... Teraz funkcja pascala oblicza te dane w radianach, i wychodzi całkowicie inny wynik niż w dec.
Masz już funkcję, która sprawdza Ci, czy dana liczba jest liczbą pierwszą?
Powiem, że zęby zjadłem na Pascalu i powiem, że nie ogarniam twojego kodu. Nie wiem co robi funkcja ORD w pętli for. Napisz krok po kroku co ma robić, może pomożemy
Witam Co do czyszczenia ekranu to jest funkcja clrscr. Jak chcesz użyć tej funkcji to musisz dołączyć biblioteke crt. Zatrzymanie programu zrealizujesz funkcją delay(czas_w_ms) w programie Turbo Pascal lub sleep(czas_w_ms) w Delphi. Pozdrawiam.
Czy może ktoś napisać funkcję rekurencyjną na silnie w Turbo Pascalu, ale nie obliczającą silnie tylko po podaniu silni ma obliczać dla jakiej liczby jest to silnia. Np. my podajemy 120 a program ma obliczyć, że to silnia liczby 5.(czyli ma podać wynik "5"). Podobna sytuacja z ciągiem fibonaciego, ciągiem arytmetycznym i geometrycznym. Proszę o pomoc.
Nie widzę sensu dalszego mnożenia przykładów, do czasu, kiedy autor nie wypowie się postęp jakich to skomplikowanych obliczeń chce obrazować paskiem... wystarczy, że jest to funkcja rekurencyjna i przedstawione tu rozwiązania "biorą w łeb".
Odświeżam temat. Obecnie mam coś takiego: [syntax=pascal]program kantor; uses crt; var opcja: integer; var pln: real; procedure autor; begin clrscr; writeln('JA.'); writeln('Technik Informatyk, DSI II.'); end; begin clrscr; writeln('1. PLN na euro, dolary, funty.'); writeln('2. Cos innego.'); writeln('3. Jeszcze cos innego.'); writeln('4. Autor.');...
Tak jak napisales ten program jest latwy. Ale nie wiem co sobie trzeba w nim przypominac. Skoro jesli nie pamietasz wzoru na wyznaczenie prostej wystarczy toworzyc tablice. Wczytanie 6 zmiennych - obliczenie parametrow a i b (pierwsze 4 parametry) funkcji postaci y=ax+b. Podstawienie do funkcji 5 parametry i porownanie y z 6 parametrem jesli y=6.par...
Nie potrafie podac w tej chwili szczegółów, ale chyba trzeba będzie odczytywac port(y) klawiatury (nie wiem czy pascal udostępnia funkcje informującą o rodzaju zdażenia). Wśród uzyskanych informacji bedzie tzw. ScanCode - unikalny numer klawisza i zdażenie, czyli czy klawisz ten wciśnięto, czy puszczono. Może na cos znajdziesz na www.4programmers.net...
automat biletowy Co to dokładnie ma być i jaką ma pełnić funkcję? Drukowania biletów? Jakich, do czego?
Witam ponownie. Niestety w związku z brakiem czasu musiałem chwilowo zaprzestać pacy nad moim programem, który jest prawie skończony. Chciałbym prosić o pomoc w sterowaniu samy, Listboxem za pomocą klawiatury. Potrzebuję dokładnie po wciśnięciu klawisza np 7 żeby pierwsza pozycja w listbox1 się zaznaczyła i potem żeby klawisz + powodował przesuwanie...
pascal funkcja funkcja turbo pascal pascal pętla
zużycie prądu przez podlicznik uszkodzi czujnik spaliny logitech wzmacniacz uszkodzony
hewalex sterownik hewalex sterownik
Radio Sony C394-CDI w Ford Kuga wyłącza się po wpisaniu kodu Dobór przekroju przewodu uziemiającego dla maszyn