W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)
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.
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.
Ż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 .
mozna sobie radzic inaczej, bo tak jak napisales sie nie da. tak naprawde pascal zapewne sam dodawal wtedy ten parametr, wiec ani to oszczednosc kodu, ani to oszczednosc pamieci. co do innych sposobow - 'sky is the limit'. niemniej jednak jesli nie masz wyjatkowo wielkiej potrzeby, to lepiej dac sobie spokoj z kombinowaniem. najelegantszym sposobem...
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...
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...
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ę...
Wszystko wpisuj w module. 'Deklaracja Public Declare Function Inp Lib "inpout32.dll" _ Alias "Inp32" (ByVal PortAddress As Integer) As Integer Public Declare Sub Out Lib "inpout32.dll" _ Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer) Z RST i CLK zrob podobnie: Sub VCC(aa...
funkcja random generuje tzw. liczby pseudolosowe wg wzoru (tzw. generator kongruencyjny) : function Random:real; begin seed:=(A*SEED+B) mod C; Random:=seed; end; Gdzie SEED - wartość początkowa, po włączeniu komputera zwykle inicjowana odczytem zegara sytemowego. A, B, C - duże liczby pierwsze mod - reszta z dzielenia. Okres takiego generatora (po tylu...
Cześć, jestem początkującym w tym temacie a mam napisac taki oto program i nie wiem jak zrobic, by wczytywało litery i znaki, a potem jeszcze ułożyc równanie na tej podstawie. Z góry dzięki za pomoc. Dane są dwie liczby rzeczywiste x i y oraz znak określający operację arytmetyczną, który może być równy: ‘+’, ’-‘, ‘*’...
mam dwa kody które napisałem do szkoły teraz dostałem zadanie połączenia tego by wyglądało jak kalkulator o to kod FUNKCJI : uses crt; VAR a,b,l,wynikh,x1,x2:integer; o, d,c: char; e,s:string; reszta,i,j:integer; wx,wy,w,x,y,a1,b1,c1,a2,b2,c2,pdelta,del... wynik:array[1..20]of integer; function dodawanie(a,b:integer):i...
Witam :!: Potrzebuję napisać program liczący pole pod wykresem dowolnej funkcji... przy zdefiniowanym przedziale X'ów Z tego co wiem, ma on dzielić pole pod wykresem na b.małe prostokąty i je sumować. Pachnie mi tu całką, której z resztą nie miałem... :/ Program najlepiej w pascalu, VBasic, czy C++ również mile widziany :) Z góry ogromne dzięki :!:
Problem dotyczy małego programiku w pascalu. Od niedawna zacząłem się tym interesować i chciałem pisać już coś poważniejszego. Problem dotyczy tego kodu: program imitCalc; uses crt; var a:integer; funkcja:shortint; g:real; h:real; begin a:=1; repeat clrscr; writeln('Witaj w programie imitCalc 1.0!'); writeln('Wci˜nij...
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 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...
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...
'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....
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...
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?
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...
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...
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ć ;)
Dobra, podstawowy, dosowy pascal nie ma inttostr ani strtoint. Można jednak zastąpić w tym szczególnym przpadku w dość specjalny sposób - liczby, jakie będziemy konwertowac nigdy nie przekroczą zakresu 0..9. Stąd zamiana znaku (tak znaku!) na liczbę będzie wyglądała tak: [syntax=pascal]function CharToInt(const c: Char): Integer; begin Result:=Ord(c)-Ord('0');...
Witam Rozumiem, że przedstawione rozwiązanie dotyczy zadania nr 4. Chciałem zwrócić uwagę na pomyłkę w kodzie. Funkcja random (X) losuje liczby naturalne z przedziału jakas_zmienna := random (11); gdy to miałby być zakres np. od 1 do 10 wpisujemy jakas_zmienna := random (10)+1; funkcję random można użyć również bez parametrów...
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++)...
Ord, Chr, DecToBin (to już specyficzne dla kompilatorów niektórych)
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.
Losowe elementy wektora Ai były tylko próbą funkcji LOS. Teraz mają wartości stałe bo przypuszczam, że przy wartościach losowych nawet Solver zgłupiałby jak za każdym krokiem pracy Solvera w wektorze Ai były inne wartości (nie próbowałem tego - szkoda czasu). Jak wcześniej pisałem wczytywanie adresu każdej komórki do funkcji SUMA jest żmudne. Wprawdzie...
Można też wczytać najpierw do stringa wszystko, a potem funkcją val spróbować skonwertować to na inta. Trzecim parametrem tej funkcji jest wynik operacji - jeśli ustawi go ta funkcja na 0, to znaczy że konwersja się udała, każda inna liczba będzie oznaczać błąd.
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.
A w ogóle to czy funkcja Port[$378] := 255; to w linuxie jest dostępna?
Mam następujący problem: funkcja outtextxy(20,20,'40'); zamiast "40" wyświetla jakiś krzaczek i 0. Proszę o pomoc.
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;
1. tablica int a[m] nie może być tak zadeklarowana. Parametr 'm' jest nieznany w fazie kompilacji, więc nie można ustalić wielkości tablicy. Trzeba zadeklarować bardzo dużą, żeby pomieścić maksymalną ilość danych, lub utworzyć tablicę operatorem 'new' po ustaleniu jej wielkości. 2. Do czego ma służyć funkcja "cin.ignore(); "? Czy program nie będzie...
Funkcja Pos(słowo, linia) zwraca wartość 0 gdy łańcuch "słowo" nie występuje w łańcuchu "linia" oraz pozycję od której w łańcuchu "linia" występuje "słowo" (w kodzie oczywiście nie może być litery "ł"). Zatem z mienna "znaleziono" nie jest potrzebna. Mam wątpliwości co do użycia "break" - a co będzie w sytuacji, gdy słownik zawiera: zamek - część karabinu......
Program do kompilacji pod Free Pascala pod DOSa. Założenie jest takie : program ma zmieniać godzinę w czasie systemowym o +1 po naciśnięciu strzałki do góry i odpowiednio o -1 po naciśnięciu strzałki w dół na klawiaturze. Wymyśliłem sobie to tak: 1. odczytam aktualną godzinę ( przerwanie 21h funkcja 2Ch) 2. dodam lub odejmę 1 3. zapiszę poprawionę godzinę...
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 może da się to sformułować jaśniej, bo jeśli miałbym to przetłumaczyć to wychodzi: jeśli i=1 (czyli 2. element tablicy) jest większy od 1. elementu tablicy to .... no właśnie to co - bo potem znowu jest if ??? Funkcja jest prosta tyle że nie jest to już pascal więc trzeba pomyśleć :idea: if(tab[i]>tab[0]&... #JEŻELI(1)...
Kompilator Turbo Pascal 7.0, system Windows XP Professional. Język programowania: Pascal. Próbuję pisać algorytm(kod) programu. Muszę użyć słowa algorytm, żeby mi się nie mieszało. Program ma działać na takiej zasadzie. Mamy emulator minutnika i to urządzenie jest sterowane kodem. Minutnik odlicza czas do zera. Minutnik osiąga zero i włącza się alarm....
Zalozmy ze chce skompilowac taki kod w CodeBlocks (pod Windows) #include <iostream> #include <stdio.h> #include <stdlib.h> #include <string.h> #include <windows.h> #include <winsock2.h> using namespace std; int main() { struct sockaddr_in adres; adres.sin_addr.s_addr=inet_addr(&quo...
I tak to jest gdy zamiast wędki daje się ryby. Poczytaj w helpach o write, writeln itp a sam dojdziesz ( http://turbopascal.skryptoteka.pl/2.html ). kolego.. przeczytałem już wiele takich stron..i jak widzisz kombinuje cały czas ale nie wszystko mi wychodzi.. na tych stronach zazwyczaj są omówione poszczególne funkcje, albo skrawki kodów, a ja nie...
wrych: a co robi procedura czytaj(...)? Zadeklarujemy: var liczba: string; Nagłówek procedury: procedure czytaj(komentarz: string; var napis: string; wspx, wspy: integer; max, skala :byte; znaki: zakres_znakow); Wywołanie: czytaj('Podaj liczbę ', liczba, 10, 30, 7, 2, ['1'..'9', '0', '.', '-'); powoduje wyświetlenie...
Witam. mam problem z programem, którego treść brzmi: Tablica 12 elementowa - elementy typu integer a) losowanie generowanie elementów tablicy b) wyświetlanie tablicy c) Funkcja - średnia elementów d) Funkcja - średnia parzystych e) Fumkcja - obliczanie ile jest elementów z przedziału (-5,5) f) normalizacja tablicy g) potęgowanie tablicy ( każda następna...
bawiłem się trochę driverem UserPort, a nawet napisałem sobie funkcje do sterowania nim, tak że już go poznałem A co do LPT to w biosie dobrym rozwiązaniem będzie ustawienie portu w tryb Bi-Dir, i teraz jak chcesz wysyłać na port to zerujesz jeden lub wszystkie(jeśli nie używasz extra pinów lpt) bity portu 890: _outp(890,255-32) <-- tutaj...
niczym... po prostu petla sie kreci od startu programu w nieskonczonosc... Chyba raczej od startu petli...nie programu. Jesli tak to jaki jest sens tej petli: for(;;byCount++) { LookForCommands(byCount, READING_TEMPERATURE); } Ta tez powinna sie krecic w nieskonczonosc, wobec tego dlaczego mamy tutaj inkrementacje co jeden...
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
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...
Witam, zdaje się że ta funkcja to Val Pozdrawiam, Krzysztof.
//** "Rozklad f-Snedecora i rozklady pokrewne - ich zastosowanie w statystyce i metodach Monte Carlo" ** //** napisanej na Wydziele Matematyki Uniwersytetu Lodzkiego ** //** kopiowanie calosci i fragmentow bez zgody autora zabonione ** //** kontakt z autorem: jk1980(at)poczta.onet.pl ** //**************************************...
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....
dopisać przed ostatnim end-em instrukcję readkey; albo readln;
pascal funkcja funkcja turbo pascal pisać pascal
zasilacz dekoder schemat montaż zamka centralnego master sposób podłączenia cewek
rozebrać ekspres delonghi rozebrać ekspres delonghi
Jak sprawdzić silnik inwerterowy w suszarce? KASB 50-20/Ż typ 815 – niskie obroty i grzanie silnika młynka żarnowego do kawy
