funkcja pascal

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

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

[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] 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 - dodawanie w osobnej funkcji - zwrócenie wartości

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

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

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.

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

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

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

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 .

Jak napisać kalkulator w Turbo Pascal z funkcjami matematycznymi?

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

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

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

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

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

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

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

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

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

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

[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().

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

poprawiłem kompiluje, potrzebuje dodać procedure do tego, lub przerobić tak równanie kwadratowe ze zamiast funkcji będzie użyta procedura.

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

Poszukaj w helpie funkcji asign.

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

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

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 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 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] 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 połączyć funkcje w kalkulatorze: dodawanie, odejmowanie, mnożenie?

Jaki to pascal? Jaki system?

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

[pascal] kalkulator, jak zrealizować wybór działania?

Sprawa jest prosta składnia if wygląda tak if warunek then instrukcja_1 else instrukcja_2; jeżeli masz więcej instrukcji do wykonania piszesz tak if warunek then begin instrukcja_1; instrukcja_2; instrukcja_n; end; po prostu instrukcje mające się wykonać w "if" bierzesz w znaczniki "begin" i "end;" kod wygląda tak po poprawieniu program imitCalc; uses...

Jak napisać kod do sterowania przekaźnikiem w ISA?

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

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

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

Przecinek w pascalu. Bez zmiany ustawień klawiatury.

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

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

[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:

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

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

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

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

Jak zatrzymać program w Pascalu po obliczeniu funkcji kwadratowej?

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

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

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

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

[Pascal] Wyszukiwanie ostatniej liczby w pliku tekstowym?

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

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

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

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

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

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

Witam, funkcja w Pascalu do generowania liczb to Randomize(); trzeba zadeklarować zmienną typu real i wywołać w/w funkcję. pzdr

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;

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

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

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

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

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

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

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

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

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

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

Jak umieścić funkcję cosinus w kwadracie w Pascalu i zmienić kolor tł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);...

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

Jak narysować wykres funkcji x/2-sin(x) w Pascalu?

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

[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] Usuwanie elementu z listy jednikierunkowej

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.

[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] Automatyczne wczytywanie i edycja plików tekstowych w Pascalu z katalogu

Możesz mi podać, co jest potrzebne do funkcji i jak mniej więcej jak to ma wyglądać.

[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

[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 w Pascalu przypisać tablicy unikalne losowe liczby?

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

[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

[asm/pascal] Jak poprawnie odbierać dane przez RS232 w Pascalu?

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

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

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 napisać program w Pascalu do obliczania pola pod wykresem funkcji?

dopisać readln;

FreePascal - Zamiana radianów na Liczby Decymalne.

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.

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

[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 użyć poleceń DOS w Delphi do czyszczenia ekranu i pauzy?

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.

[TP] Funkcja w Turbo Pascalu: obliczanie liczby z podanej silni i ciągów

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.

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

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

prosty program w pascalu: czy 3 punkty są współliniowe

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

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

Skrypt automatu biletowego w Free Pascal - szukam kodu

automat biletowy Co to dokładnie ma być i jaką ma pełnić funkcję? Drukowania biletów? Jakich, do czego?