pascal funkcja

[Pascal] Funkcja sprawdzająca, czy kolejka jest pusta - błędy w kodzie

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ć ;)

[pascal] Jak zaimplementować funkcję potęgowania x^y w Pascalu?

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...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[Pascal] Pascal – Implementacja funkcji rekurencyjnej A(x, y), drzewo rekursji i wynik dla (2,1)

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 ;)

[PASCAL] Jak zaimplementować funkcję szukaj i zapis/odczyt listy dwukierunkowej w Pascal?

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...

[PASCAL] Jak napisać funkcję zwracającą liczby pierwsze w tablicy?

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....

Pascal - dodawanie w osobnej funkcji - zwrócenie wartości

Funkcja dodawanie wyswietla 15 a zwraca 0 ktore pozniej wyswietlasz w Write.

Pascal - jak napisać kalkulator ułamków z funkcjami arytmetycznymi?

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...

Potęga w Turbo Pascal. Jak najprościej napisać funkcję?

Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))

Turbo pascal - Jak ugryźć początek programu tablica z funkcja randomize?

W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)

Delphi/Pascal: Jak napisać funkcję zwracającą rozmiar pliku podanego jako parametr?

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.

Free Pascal funkcją arc źle kreśli wycinek okręgu

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...

Pascal - funkcje do zarządzania bazą danych osób (szukanie, modyfikacja)

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';...

Pascal: Jak przekazać wskaźnik do funkcji i wywołać ją w programie?

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...

Jak napisać kalkulator w Turbo Pascal z funkcjami matematycznymi?

Nikt nie odrobi za Ciebie zadania ! Wykaż inicjatywę wstaw chociaż to co sam zrobiłeś ...

Turbo Pascal 7.0 - wykres x,y - błąd TYPE MISMATCH przy zmiennej real

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.

Pascal: Jak zamienić byte na string bez użycia funkcji Str?

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...

Dekomplikacja Turbo Pascal: Dodanie funkcji wysyłania sygnałów do maszyny

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

Jak wyświetlić daty słownie w Pascalu używając funkcji case?

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...

Turbo Pascal - Jak dodać funkcję silni do kalkulatora?

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...

[PASCAL/LAZARUS] Tablicowanie wyników funkcji kwadratowej/rysowanie wykresu

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...

[Pascal] Jak stworzyć bazę danych osób w Pascalu z funkcjami CRUD?

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...

[Pascal] Jak połączyć funkcje w kalkulatorze: dodawanie, odejmowanie, mnożenie?

Jaki to pascal? Jaki system?

[pascal] Błąd kompilacji w funkcji równania kwadratowego w Pascalu - jak naprawić?

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.

Jak napisać funkcję zwracającą liczby pierwsze w C i Turbo Pascal 7.0?

http://www.dzyszla.aplus.pl/programy_i_t... = w C

[Pascal] Jak stworzyć uniwersalną funkcję sortującą dla różnych typów?

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ć...

Pascal - Programowanie - "prosta" gra na zaliczenie ...

Ż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 .

[Turbo Pascal] Jak odczytać kolor piksela z pliku BMP w Turbo Pascalu?

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.

[pascal] Konwertowanie ułamków dziesiętnych na inny system

Jaki pascal? Może nie masz tam tej funkcji? Potęgowanie można zastąpić 2 funkcjami ln() i exp().

Jak zatrzymać program w Pascalu po obliczeniu funkcji kwadratowej?

dopisać przed ostatnim end-em instrukcję readkey; albo readln;

[C] Visual C++ - Scanf nie dziala, a wg ksiazki powinien.

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...

Jak przeliczyć radiany na stopnie w Pascalu dla funkcji sin()?

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????

[PASCAL] Kilkanaście pytań w sprawie "benchmarka"

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?

[TP] Jak stworzyć bazę danych w Pascalu z funkcjami dodawania i wyświetlania?

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....

[Pascal] Jak usunąć tylko kropki z ekranu w animacji ładowania?

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...

[Pascal] Jak uruchomić program exe z poziomu innego programu w Pascalu?

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' ?

ObjectPascal/C - Przeniesienie kodu z C na Object Pascal.

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ę...

[Turbo Pascal] Program Permutacje. Zapis danych do pliku.

Poszukaj w helpie funkcji asign.

[PASCAL] Jak zaimplementować menu w Pascalu do obliczeń statystycznych?

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

AVRPascal - Darmowy edytor kodu w Pascalu dla mikrokontrolerów AVR

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...

Pascal - jak znaleźć pozycje spacji w zdaniu i poprawić kod?

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....

Jak wyłączyć wyświetlanie Warningów w WinAVR przez modyfikację makefile?

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...

Pascal: Jak zadeklarować tablicę o zmiennej wielkości w funkcji?

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...

Algorytm w Pascalu: liczby 1-100 podzielne przez 7, 8, 9

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ć...

Program zamieniający mały litery na wielkie [Pascal/C++]

Zobacz nagłówek ctype.h (albo cctype w C++) i funkcję int toupper(int c); Pozdrawiam, Dr.Vee

[Pascal] Program zamieniający liczbę binarną na dzięsiętną.

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...

Wywoływanie podprogramów z pliku.asm w assemblerze zDevStudio-Z80 - dyrektywa include

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",...

Jak napisać program do sterowania diodą przez port LPT za pomocą klawiszy?

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...

Przecinek w pascalu. Bez zmiany ustawień klawiatury.

Witam, zdaje się że ta funkcja to Val Pozdrawiam, Krzysztof.

Pascal - jak wypisać całą linię z pliku zawierającą dane słowo?

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ę)

Funkcje w Pascalu do konwersji znaków na ASCII i liczb na binarne

Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)

Jak działa funkcja w Pascalu zwracająca dzień tygodnia?

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...

[Pascal] Jak obliczyć liczbę składników sumy przekraczającej n w Pascalu?

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

[C++ builder 5] Ukrywanie Frame (funkcja Visible) błędy ??

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...

Błędne obliczenia sumy w funkcji suman w Pascalu - jak naprawić?

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;

[PASCAL] Jak napisać program w Pascalu do dzielenia pisemnego z użyciem pętli?

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ą :?:

FreePascal - Wyświetlanie liczby WORD w oknie MessageBox

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ć funkcję y=ae^(bx) w Turbo Pascalu? Aproksymacja liniowa

'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....

[Pascal] Moduł do obsługi myszki w trybie tekstowym - funkcje i pozycja kursora

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.

Jak przetłumaczyć funkcję losującą z C++ na Pascala?

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ą!)

[Pascal] Tworzenie edytora tekstu w Pascalu z obsługą długich linii i funkcji edycyjnych

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

Dlaczego program EXE z Dev-Pascal 1.9.2 zamyka się od razu po uruchomieniu?

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;

Jak napisać program w Pascalu do obliczania pola pod wykresem funkcji?

dopisać readln;

Jak przerobić program w Pascalu na procedury, funkcje i moduł .tpu?

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.');...

Tworzenie własnych modułów w Turbo Pascalu 7.0 - przykłady i wskazówki

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;...

[Delphi] Jak poprawić procedurę wyszukiwania w Lazarusie z Firebird?

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...

[PASCAL] Błąd kompilacji: BEGIN expected w kalkulatorze ułamków

Poprzestawiaj sobie wcięcia tak jak w moim wcześniejszym poście - łatwiej widać o co chodzi :). przed deklaracją funkcji brakuje Ci end:

[Turbo Pascal] Turbo Pascal kalkulator: jak uniknąć błędów przy operacjach i typach zmiennych?

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...

Pascal - Rekurencyjne wywołanie menu w pascalu, JAK ?

?? 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]

[Pascal] Wyszukiwanie ostatniej liczby w pliku tekstowym?

próbowałem z eof ale ta funkcja nie chce u mnie działać, wyskakuje błąd

Złożoność obliczeniowa funkcji Fib(n) w Pascalu – analiza rekurencyjna algorytmu

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] Jak odczytać kod ASCII znaku z ekranu w trybie tekstowym?

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...

Jak zainicjować 'skip', 'con' i 'repchar' w Turbo Pascalu?

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.

[Pascal] Jak dodać licznik poprawnych odpowiedzi w quizie Pascal?

Zacznij od nauki funkcji i procedur, bo kod jest nie do ogarnięcia.

[Pascal] Błąd przy uruchamianiu programu w Pascalu do sumowania ciągu liczb

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

Turbo Pascal, program ma wypisywać liczbe pierwsze.

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...

Książka do nauki tablic dwuwymiarowych i wskaźników w C++

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++)...

[Turbo Pascal] Błąd w kodzie szukającym liczb pierwszych w Turbo Pascalu - jak go znaleźć?

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...

[Pascal] Automatyczne wczytywanie i edycja plików tekstowych w Pascalu z katalogu

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ę...

Jak wczytywać i określać parzystość liczb w Pascalu?

W standardowym pascalu występuje chyba funkcja odd()

[Pascal] Jak w Pascalu przypisać tablicy unikalne losowe liczby?

Funkcja random sama w sobie jest powtarzalna, trzeba tylko przypisać stałą wartość do zmiennej RandSeed.

Delphi - Struktura i implementacja procedury i funkcji

TJvInterpreterProgram - obejrzyj sobie kod, to pełny interpretator obiektowego Pascala.

[Pascal] Jak stworzyć i zrozumieć moduł do wizytówki?

Dlaczego? Możesz tylko zamiast procedury wypisującej zrobić funkcję, która zwróci ten tekst i też zadziała.

[Turbo Pascal] Turbo Pascal Error 36 przy rozpoznawaniu płci – błąd w kodzie, jak naprawić?

jest to funkcja, która zwraca w wyniku ciąg. CZyli używasz jej, zamiast ciagu.

Pascal - Witam.Nie mogę sobie poradzić z programem

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ść.

Jakie były wasze pierwsze programy na mikrokontrolery i w jakich językach?

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...

[Turbo Pascal] Jak dodać licznik błędów w grze wisielec w Turbo Pascal?

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

Jak wczytać tablicę 4x4 z pliku txt w Turbo Pascal? BlockRead?

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...

[At90S2313] [C] VMLab - Problem ze stopniem optymal. kodu.

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ć...

[PASCAL] Program wyznaczający największy liczbę spośród 4 zmiennych

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...

[delphi/ pascal] - czy jest odpowiednik ShellExecute dla pro

Czy jest odpowiednik ShellExecute dla wywołania procedur, funkcji, klas? - z parametrami oczywiście. Z góry dzięki

[Pascal] Jak zaimplementować algorytm wypełniania i sortowania tablicy w Pascalu?

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 ?

Pascal - Procedury wczytywania i wypisywania plików

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.

Jak znaleźć najmniejszą wylosowaną wartość w tablicy w Pascalu?

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...

Obliczanie pierwiastka metodą newtona w turbo pascalu, potęgowanie??

Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.

[Turbo Pascal] Tworzenie paska postępu w Turbo Pascalu dla obliczeń w czasie rzeczywistym

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".

[Pascal] Przeliczanie liczby dziesiętnej na inne systemy.

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....

Pascal: Wczytywanie trójek liczb o sumie będącej liczbą pierwszą

Masz już funkcję, która sprawdza Ci, czy dana liczba jest liczbą pierwszą?

Jak sprawdzić parzystość wskaźników w macierzy i losować współczynniki?

Ja chciałbym przypomnieć, że w Pascalu istnieje funkcja odd().

Program obliczający logarytm nat. z liczby - PASCAL

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ę...

[Pascal] Zamiana wartości dziesiętnej na system szesnastkowy

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.