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ć ;)
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...
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 ;)
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...
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....
Funkcja dodawanie wyswietla 15 a zwraca 0 ktore pozniej wyswietlasz w Write.
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...
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.
Jak nie będzie wyjścia to trzeba będzie kombinować . Rysuję brzuch do litery D tą funkcją. Czyli musiałbym tak : okręg , przykryć połowę i namalować kreskę. Hmm... No myślałem,że może jest jakaś inna starsza wersja modułu graph w której ta funkcja działa prawidłowo. Mam jeszcze jeden problem z przełączaniem stron graficznych ale nie wiem czy pytać tu...
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';...
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...
Nikt nie odrobi za Ciebie zadania ! Wykaż inicjatywę wstaw chociaż to co sam zrobiłeś ...
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...
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
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...
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...
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...
Jaki to pascal? Jaki system?
Kolega w ogóle wie, co to jest procedura czy funkcja? Tak w ogóle kompletnie nie korzystasz z możliwości funkcji - zachowuje się u Ciebie jak procedura. I bardzo brzydki sposób kończenia programu w niej jest zawarty.
http://www.dzyszla.aplus.pl/programy_i_t... = w C
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ć...
Ż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 .
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.
Jaki pascal? Może nie masz tam tej funkcji? Potęgowanie można zastąpić 2 funkcjami ln() i exp().
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
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...
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????
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?
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....
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...
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' ?
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ę...
Poszukaj w helpie funkcji asign.
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
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...
Jeszcze zeby bylo latwiej szukac nastepnych spacji to sprawdz, czy twoj pascal obsluguje funkcje posex - wtedy nastepna spacje szukasz od indexu , ktory zwroci posex. Jezeli nie masz posex, to chyba bedziesz musial przycinac lancuch do indexu ,ktory zwroci pos, a nastepnie znowu szukac za pomoca pos i powtarzac to az dopoki nie zostanie zwrocone 0....
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...
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ć...
Zobacz nagłówek ctype.h (albo cctype w C++) i funkcję int toupper(int c); Pozdrawiam, Dr.Vee
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...
Jak powinien być zakończony program PLANSZA.asm ? END? HALT? RET ? Zdecydowanie podprogram musi kończyć się RET (o czym za chwile dłużej) a nie może HALT. Mam dla Ciebie niedobrą wiadomość: nie da się postąpić dalej jako tzw "praktyk", bez czytania. RET i HALT to instrukcje, są przenoszone do kody wynikowego *), ale END to tylko "wtręt organizacyjny",...
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...
Witam, zdaje się że ta funkcja to Val Pozdrawiam, Krzysztof.
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ę)
Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)
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...
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
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...
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;
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ą :?:
Po pierwsze, Word w Pascalu ma 2 bajty, natomiast typ Char, w zależności od kompilatora i jego wersji od 1 do 2 bajtów, w zależności czy kompilator jest "Unicode ready" czy nie. Jeżeli chcesz wyświetlić jakąkolwiek informację w MessageBox, to raczej należy ją podać jako PChar a nie Char. Co za tym idzie, proponuję zastosować taką składnię : [syntax=delphi]var...
'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....
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.
Kolega pomylił chyba srand z rand -> Randimize z Random W C funkcja rand jest bezparametrowa i zwraca liczby z zakresu 0..RAND_MAX W Pascalu funkcja random(x: Integer) ma parametr i zwraca liczby z zakresu 0..x-1 (całkowitą!)
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
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;
dopisać readln;
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.');...
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;...
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...
Poprzestawiaj sobie wcięcia tak jak w moim wcześniejszym poście - łatwiej widać o co chodzi :). przed deklaracją funkcji brakuje Ci end:
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...
?? 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]
próbowałem z eof ale ta funkcja nie chce u mnie działać, wyskakuje błąd
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
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...
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.
Zacznij od nauki funkcji i procedur, bo kod jest nie do ogarnięcia.
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
Witam, potrzebuje pomocy z programem który ma pobierac od użytkownika liczby do momentu podania liczby całkowitej... Jeśli dobrze zrozumiałem tekst, to Twój program powinien przyjmować liczby typu Real (zmiennoprzecinkowe), np 2.4, 0.567 itd. A zakończy działanie gdy wprowadzoną liczbą będzie np. 5. Zatem operatory typu mod nie wchodzą w grę. W Pascalu...
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++)...
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...
Weźmy np. taką linię :" (123 rows affected)". Musisz ustalić jaki element będzie niezmienny. Np. rows affected . Nazwijmy ten niezmienny ciąg znaków, po prostu, znacznikiem. Pobierasz całą linię tekstu. Sprawdzasz czy znajduje się w tej linii znacznik. Wiemy, że ten ciąg jest poprzedzony jakąś cyfrą oraz nawiasem. Funkcja POS , zwróci Ci jaką pozycję...
W standardowym pascalu występuje chyba funkcja odd()
Funkcja random sama w sobie jest powtarzalna, trzeba tylko przypisać stałą wartość do zmiennej RandSeed.
TJvInterpreterProgram - obejrzyj sobie kod, to pełny interpretator obiektowego Pascala.
Dlaczego? Możesz tylko zamiast procedury wypisującej zrobić funkcję, która zwróci ten tekst i też zadziała.
jest to funkcja, która zwraca w wyniku ciąg. CZyli używasz jej, zamiast ciagu.
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ść.
a. marek_Łódź - regulator temperatury - Z80/ZX SPECTRUM , ASM b. marek_Łódź - debuger/monitor/linker - Z80/MERITUM, BASIC c. marek_Łódź - mikroprocesorowe liczniki przemysłowe - 8751, ASM d. marek_Łódź - sterownik stanowiska pomiarowego do szlifierki, INTEL8086/GURU - Turbo Pascal + emulacja funkcji DOSa w ASM e. marek_Łódź - sterownik rozrywarki ściernic...
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
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...
Widać nawyki z pascala/delphi: wywołanie funkcji, nawet bez parametrów, wymaga podania nawiasów: sbi(PORTD,lcd_e); czekaj(); // <<-- nawiasy!! // _delay_ms(5); Bez nawiasu uzyskujemy adres funkcji, przydatne przy przypisaniach do zmiennych funkcyjnych. Komunikat składnia bez efektu oznacza tyle samo, jak by w miejscu podać...
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...
Czy jest odpowiednik ShellExecute dla wywołania procedur, funkcji, klas? - z parametrami oczywiście. Z góry dzięki
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 ?
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.
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...
Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.
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".
Czym jest RESULT. RESULT w Delphi(czyli obiektowym pascalu) jest ukrytą zmienną w każdej funkcji. To, co przypisujemy do result, funkcja zwraca. Jeśli chodzi o zwykłego Pascala, rolę zmiennej result pełni nazwa funkcji, czyli: function suma(a, b: integer): integer; begin suma:=a+b; end; Za pomocą nazwy funkcji zwracamy jej wynik....
Masz już funkcję, która sprawdza Ci, czy dana liczba jest liczbą pierwszą?
Ja chciałbym przypomnieć, że w Pascalu istnieje funkcja odd().
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ę...
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.
funkcja pascal funkcja turbo pascal pascal pętla
blokada mastercook zaprogramować yaesu vectra szarpie
kominek drzwi hulajnoga xiaomi zasilacz
Fiat Ducato 2.8: Zamiana elektronicznej pompy na mechaniczną Kody FMR F120 i EDC F150 w Mercedesie 1824AK