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 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
Dane są liczby naturalne n i k(n<=k) typu Word. Napisz program, który obliczy sumę pierwiastków kwadratowych liczb naturalnych ze zbioru {n, n+1, ..., k}. void funkcja(unsigned int n, unsigned int k) { unsigned int wynik, ile,liczba; ile = k - n; for(unsigned int index; index <=ile; index++) { liczba = n + index;...
Ta funkcja nazywa się TAN. Aby jej użyć, to w programie zaraz po IMPLEMENTATION musisz dopisać: uses Math; Dodano po 1 Proponuję przed napisaniem programu albo kolejnego postu przejrzeć pierwsze 10 stron podręcznika do Pascala.
Nie mogę sobie poradzić z kilkoma rzeczami, otóż nie wiem jak w c++ wygląda funkcja pascalowa Rewrite (chodzi mi o wykasowanie danych z pliku, wyczyszczenie pliku). Mam też problemy z odczytaniem ilości rekordów w pliku. Funkcja sizeof() zwraca mi zawsze wartość 2. W załączniku przesyłam kod tego bardzo prostego programiku. Proszę o pomoc. Dzięki :)
Jak mozna napisac program aby wyliczał jakaś zmienna z funkcji tylko ze nazwa funkcji musi byc przekazywana przez wskaznik. A teraz po ludzku:) : Z programu głownego wywoluje funkcje gdize podjae jako jeden argument wskaznik do funkcji puzniej z tej funkcji wywoluje przez wskaznik funkcje ktura ma dopiero cos oblizcac :) z gory dzieki za kazda pomoc...
Witam. Otóż mam problem. Jak zrobić by po wybraniu np. odpowiedzi 1 (Koń) zadało następne pytanie czyli np. Co chcesz teraz zrobić? 1. Jechać na północ 2. Jechać na południe 3. Jechać na wschód 4. Jechać na zachód ? Oto kod: [syntax=pascal] const Liczba = 2; var Pytania : array[1..Liczba] of String; OdpowiedziMozliwe : array[1..Liczba,1..3] of String;...
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...
1.Napisz funkcję służąca do sprawdzenia czy stos jest pusty. Gdy na stosie nie ma elementów, funkcja powinna zwrócić wartość TRUE, w przeciwnym razie wartość FALSE. 2.Napisz program wykorzystujący stos do sprawdzenia, czy wprowadzony tekst jest palindromem (palindrom to wyraz lub zdanie brzmiące tak samo przy czytaniu z lewej strony do prawej, jak i...
Witam, wie może ktoś z was czy jest w pascalu jakaś funkcja lub procedura zawarta w standardowych modułach do zmiany znaków z klawiatury na kod ASCII, lub zmiany liczb dziesiętnych na liczby binarne i czy można zdeklarować tablicę którą program by rozpoznawał jako tablicę liczb binarnych ?
Prosze o pomoc w rozszyfrowaniu tej funkcj. Ma ona podac dzien tygodnia. Nie bardzo wiem skad te działania. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Nie kompiluje mi coś jest zle function rownanie(A:real;B:real;C:... var DELTA:real; begin if A=0 then begin Writeln('row. jest liniowe'); Halt; end; DELTA:=(B*B)-4*A*C; if DELTA=0 then Writeln('X1=X2= ',-B/(2*A)); if DELTA<0 then Writeln('row. nie ma pierwiastkow rzeczywistych');...
Witam mam do zrobienia takie zadanie: Funkcja A określona jest następującą zależnością rekurencyjną *x i y są liczbami należącymi do typu byte): { 1 x=0 A(x,y)={ 2 y=0 { (x+y) * A(x-1,y) + (x-y) * A(x,y-1) w pozostałych przypadkach Napisz implementację tej funkcji. Narysuj także drzewo rekursji...
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...
Witajcie. Wykonałem prosty program (kod poniżej), ale muszę go przerobić na procedury i funkcje, a do tego dodać moduł .tpu. Program: [syntax=pascal]program kantor; uses crt; var opcja: integer; var kwota, kf, funty, kd, dolary, ke, euro: real; begin clrscr; writeln('1. PLN na funty.'); writeln('2. PLN na dolary.'); writeln('3. PLN na euro.'); writeln('4....
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';...
Mam napisać "prosty" programik jako pracę zaliczniową (1 z 3). Problem polega na tym, że niwząb nie pamiętam już Pascala. Może ktoś pisał kiedyś coś podobnego i mógły sie podzielić... Treści: 1) Napisz program realizujący następujące zadania: -Zdefiniuj rekord, na który składają się dane o samochodach: marka, kolor, rok produkcji, uwagi - Wczytuje dane...
Ten szblon wydaje sie byc calkiem snesowny. Napewno trzeba zwrocic uwage na to, ze po kazdej linicje z nazwa procedury lub funkcji nalezy wstawic srednik ma to wygladac tak: procedure nazwa_procedury(argumenty); var nazwa_zmiennej:nazwa_typu; {nazwa_zmiennej:nazwa_typu;... begin [b]zawartość procedury[/b] end;...
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...
Witam. Muszę napisać do szkoły program w którym zawarte będzie większość instrukcji poznanych przeze mnie przez cały rok szkolny w tej klasie. Wybrałem sobie prostą gierkę w trybie graficznym w Pascalu. Lubie pisać tylko czasami mam wielki problem z ułożeniem odpowiedniego warunku. Postaram się przedstawić jaki potrzebny jest mi warunek. Oto rysunek...
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ę...
Hmm czy tak ciezko przeczytac jakis kurs Pascal'a ?? Dam Ci wskazowke bys uzyl funkcji ReadKey ! No i maly source: uses crt; var znak:char; //zmienna na wcisniety znak begin WriteLn( 'Wcisnij jakis klawisz...'); //wypisanie komunikatu znak:=ReadKey; //zczytanie znaku WriteLn( 'Wcisniety zostal klawisz: ',znak ); //wypisanie...
PROGRAM BramkiLogiczne; Uses Crt; VAR a,x,y,w:byte; BEGIN ClrScr; GoTOxy(2,3); WRITELN('Wybierz bramk© dla kt˘rej chcesz przeprowadzic operwacje: 1-NOT, 2-AND, 3-OR'); READLN(a); IF a=1 THEN BEGIN WriteLn('Wybrales bramke OR. Podaj wartosc x i y oddzielajac je spacja'); ReadLn(x,y); WriteLn('x=',x,'y=',y);...
Potrzebuje schemat blokowy programu. Ogólnie wiem jak to wygląda, lecz nie wiem jak na nim opisać funkcje, którą deklaruje. Proszę o szybką pomoc...
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...
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...
Witam, mam do stworzenia "bazę danych". Na typie rekordowym. Mam mieć w niej kilka procedur: -dodającą użytkowników; -usuwającą użytkowników; -wyszukującą za pomocą nr PESEL; -sortującą po nazwisku rosnąco Oraz dwie funkcję: -sprawdza czy ludzie wprowadzeni są pełnoletni; -sprawdza czy jest podana (at) w mailu; Elementy mają być wprowadzane pojedynczo....
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...
Witam Można wczytywać cyfrę znak po znaku w pętli. Należy użyć funkcji readkey. Do odczytania znaku przecinka obliczamy liczbę przed przecinkiem. Po odczytaniu znaku przecinka obliczamy liczbę przed przecinkiem. Jeśli naciśnięto klawisz enter kończymy oblicznie.
są dwa błędy if i and 1=1 then suma:=suma-licznik/(2*i+1) else suma:=suma+licznik/(2*i+1); (po then jest suma-licznik po else suma+licznik) drugi, to jaką wartość zwraca funkcja szereg? brakuje "szereg:=suma" - function szereg(x:real): real; var s1, suma, licznik, x2: real; i : integer; begin s1:=5;...
Cześć mam zadanie z programowania i siedzę nad nim i nie mogę tego zrobić proszę o pomoc jeśli możecie to napiszcie mi fragment struktury programu jak powinna wyglądać. Zadanie polega na tym ze są dwa plik wejściowe i jeden wyjściowy i trzeba obliczyć tak w jednym pliku podane są współrzędne punktów pokazanych jak na rysunku (plik 1) rosnąco czyli powiedzmy,...
wiem ale nie zama się za dobrze na pascalu a dokładniej nie wiem zabardzo jak zacząć z tą funkcją dalej jakoś pójdzie
Nie za bardzo zrozumiałem z początku o co chodzi i jakie są twoje zamierzenia. Ale widzę, że chcesz pisać jakby nowy "Command.com". Tylko po co? Dla windowsa są programy lub kolekcje narzedzi o rozszerzonych możliwościach w porównaniu do CMD. W czystym C++ nowej konsoli windowsowej nie stworzysz, bo to będzie tak naprawdę program dla Windows. Musiałbyś...
Z jakich funkcji należy skorzystać, aby otrzymać pseudolosowość? Do generacji liczb używam rand(), ale liczby są generowane zawsze takie same. Szukam odpowiednika funkcji Randomize() z pascala. Z tego co czytałem to trzeba skorzystać z srand() - przy czym w moim wypadku funkcja ta powoduje że układ w ogóle przestaje działać. :| Jeżeli można to proszę...
1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...
Witam, jestem początkujący w Pascalu. Mam następujący problem: chciałbym utworzyć plik tekstowy o nazwie wprowadzanej przez użytkownika. Plik miałby tworzyć się na pulpicie. Próbowałem zrobić coś takiego, jednak to nie działa, bo program myśli, że nadałem funkcji Assign za dużo parametrów. Proszę pamiętać o używaniu znaczników syntax . Opcja Listing...
Witam Chciałem pobawić się obsługą myszy w Pascalu. Znalazłem to Niedziałający link poprawiłem.
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...
Program obliczanie pola trójkąta Uses crt; Var a,h,pole:Real; Begin Clrsclr: Write(‘podaj długość boku a’);readln(a); Write(‘podaj wysokośc trójkąta h’);readln(a); Pole:=a*h/2 1) Po napisaniu program w pascalu jest zasada ze tekst ma być spójny bez spacji i ciągły wiec jako znak spacji...
Ja używam programu Free Pascal IDE. Własnie a jak zoblokowac litery bo jak sie wcisnie np. h to sie program wyłączy Dlatego właśnie powinieneś użyć modułu CRT i jego funkcji READKEY wtedy nie trzeba naciskać enter-a gdyż program monitoruje czy nie nacisneliśmy jakiegoś klawisza, następnie porównujemy kod ASCII naciśniętego klawisza z kilkoma opcjami...
Teraz lepiej. Ale nie twórz po raz kolejny obiektu klasy głównej. Ona jest! Po prostu wywołaj funkcję. Jesteś w tej samej klasie przecież. Otoz nie. Aby wywolac metode flot miejsce_zerowe() w powyzszym kodzie, konieczne jest utworzenie nowego obiektu klasy Main (czyli op zrobil to poprawnie). Wywolanie metody public static final void main(String[]...
Elektryk sam napisal, ze pisze z pamieci i jak dobrze pamietam, to wlasnie w funkcjach form powinno byc tak jak napisal simon71 (niestety niuanse roznych jezykow programowania) pozdro
Zapewne w wyrażeniu: PROCEDURE odejmij(X,Y,Z:Y1); Z jest macierzą wynikową? Jeżeli tak to wszystko jest źle bo pracujesz na zmiennych lokalnych dla tej procedury a nie na zmiennej co podajesz jako parametr. Mowilem ze musisz uzyc funkcji, albo wskaźników lub refenrencji (niepamietam czy takie cos jest w pascalu) Twoje PROCEDURE odejmij(X,Y,Z:Y1);...
Witam Kod podany przez Łuk_F będzie działał tylko w przypadku liczb całkowitych: byte, word, integer, itd. Operatory mod muszą być typu całkowitego. Jeśli chcesz sprawdzić liczbę rzeczywistą to tak: if (frac(c)) <> 0 then Write ('Liczba NIECALKOWITA') else if (trunc(c) mod 2)=0 then writeln('parzysta')...
Całkowanie po drodze (bo zastosowana pętla jest niczym innym, jak wzorem na przybliżone wyliczenie wartości całki dowolnej funkcji), czyli przyjęcie za podstawę rozważania przebytej drogi to chyba najprostsze logicznie posunięcie, ale nic nie stoi na przeszkodzie, by podstawą było np. spalone paliwo lub czas. Kwestia to właściwie wyliczać pozostałe...
" delphi więc bez użycia żadnych bibliotek" - więc? Bo są generlanie stosowne funkcje w DateUtils. Ale jak się domyślam, to po prostu chodzi o to, aby zastosować matematykę. A ta jest tutaj:
Zapewne to jest winne: read(ucz[a].srednia_ucznia,c... Do czego niby to powyższe miało być? Niezrozumiałe jest dla mnie również to: h1:=y[1]; h2:=y[2]; h3:=y[3]; h4:=y[4]; r1:=ord(h1); r2:=ord(h2); r3:=ord(h3);...
Witam. Swojego czasu stworzyłem w Pascalu grę - klon Boulder Dasha. Obecnie postanowiłem przenieść go do C++ (kompilator MingW). Program już działa całkiem nieźle, ale napotkałem problem z przeniesieniem moich starych poziomów z wersji w TP. W wersji Pascalowej poziomy były zapisywane do pliku składającego się z takich rekordów - co pozwalało w prosty...
Ten program nawet się nie skompiluje - przyrównujesz znak do ciągu tekstowego. To nie zadziała. Musisz albo użyć konstrukcji z in , albo drugą pętlą (funkcją) porównywać znak z góry założonym zestawem - tablicą.
Wczoraj nie zdążyłem odpisać.. znalazłem w między czasie źródła w pascalu prostych interpretatorów basica i pascala. Zaglądałem do TJvInterpreterProgram .. no to jest to na czym można by się oprzeć ale cieszę się że zamieniam dane na tekst a nie w drugą stronę bo jest tam "trochę" kodu. Dzięki za podpowiedź cdn.
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.
Witam! Mam problem z napisaniem programu w pascalu- chodzi mianowicie o parkomata. Ma on działać tak że wpłacamy jakąś kwote, opłata stała wynosi 2.35 zl i i na końcu ma wyskakiwać ile poszczególnych monet ma nam wydać. Może na przykładnie płace 4 zł czyli otrzymuje 5zl=0 2zl=o 1zl=1 50gr=1 20gr=0 10gr=1 5zl=1 2gr=1 1gr=0. I problem polega na tym że...
program zliczacz; uses crt; var samogloski : set of char; w : string; l, s,d : integer; BEGIN s := 0; { Licznik samogłosek} samogloski := ['E','I','A','O','Y','U']; repeat ClrScr; { Skasowanie ekranu } Write('Podaj słowo (linia pusta= koniec): ') ; readln(w); d:=Length(w);...
Jakie tam wartości podajesz? Wyczytałem, że funkcja Sound() chce zmienną tyou word, ty masz integer. Nie wiem czy to ma znaczenie... pascal... kiedy to było ^^ Masz głośniczek systemowy w komputerze? :D
Heh wydawalo mi sie ze ladowanie palety odbywa sie za pomoca procedurki SetRGBPalette(x, Palette[x].R, Palette[x].G, Palette[x].B); z modulu GRAPH, ktora podalem w kodzie. To jest jedyna funkcja odpowiedzialna za ustawianie palety w moim kodzie. Narazie probuje zrobic to bez ASM-a (czy PASCALOWYCH rejestrow), uzywajac wylacznie modulu GRAPH. Ale widze...
To co musisz zapętlić napisz w SCL. Masz tam normalnie funkcję FOR i sobie możesz wpisać ile razy coś ma się powtarzać. Składnia podobna do Pascala.. znak przypisania := ; na końcu każdej linijki Przykład FOR #i := 0 TO 9 DO #liczba := #liczba + 1; END_FOR;
Poprawiony program: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; var pytania:array[1..50] of pytanie; wybrane:array[1..10] of pytanie; i,j,pom,prawidlowo:integer; wybrano:string; begin pytania[1].pytanie:='Polecen...
Pascal jest już chyba używany przede wszystkim do nauki podstaw programowania - łatwy do ogarnięcia ze względu na lingwistyczną składnię, jednak praktycznie nieprzydatny do robienia "prawdziwych" programów wykraczających poza konsolę, chyba że pójdziesz w takie wywodzące się z Pascala środowiska jak Delphi. C (czysty) - znacznie trudniejszy do ogarnięcia,...
Jeżeli w parametrze procedury lub funkcji jest zmienna poprzedzona słowem kluczowym VAR to jest to zwrócenie wartości procedury przez tzw. referencję. Procedura jest dobra, a zamiast [syntax=pascal]BEGIN licz(); END.[/syntax] Wpisz [syntax=pascal]BEGIN licz(Tabliczka); END.[/syntax] Wtedy procedura zwróci ci wartość (coś podobnie jak w przypadku funkcji,...
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;...
Robię gierkę w pascalu i mam problem z funkcją readkey :/ ta funkcja łapie w bufor wszystko co się naciśnie .. a mnie chodzi, o to ,żeby napisać coś , co zwraca tylko to co jest naciśnięte w momencie wywołania funkcji .. (chyba wszyscy wiedzą o co mi chodzi) .. myślę ,że trzeba to zrobić w assemblerze, ja próbowałem i wyszło mi z takim samym skutkiem...
'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....
Witam serdecznie! Mam do Was ogromną prośbę. Muszę zrobić proste zadanie w języku Pascal Liczby pierwsze.Mając funkcje sprawdzającą czy dana liczba jest liczbą pierwszą należy dostarczyć funkcje zwracającą wszystkie liczby pierwsze mniejsze od zadanej liczby.
Książka jest prawie nowa, nie widać śladów używania. Dzięki książce: * Poznasz środowisko TurboPascala * Napiszesz swój pierwszy program w tym języku * Poznasz instrukcje TurboPascala * Nauczysz się definiować zmienne i typy * Dowiesz się, jak uruchamiać programy i usuwać błędy * Stworzysz własne funkcje i procedury * Poznasz programowanie obiektowe...
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...
assign(plik,'c:\docume~1\admini~1\pulpit... Nie rozumiem problemu : Czy problem to utworzenie tych że dokumentów. Czy też przekazanie do programu informacji ile ich utworzyć Bo jeśli pierwszy problem to rozwiązanie jest trywialne. assign(plik,sciezka); Gdzie sciezka to zmienna tworzona kolejno dla każdego pliku w programie I wtedy kłaniaja...
mam tu taki program w pascalu jest to książka telefoniczna która posiada dodawanie usuwanie rekordów ale brakuje mi znajdowania przez procedurkę lub funkcję np nazwiska, imie, nr.tel [syntax=pascal]uses Crt; type TOsoba = record { Struktura pamietajaca dane o osobie } Imie, Nazwisko, Telefon : String [30]; end; const PlikZAdresami = 'NOTES.DTA'; function...
Witam. Jeśli nie ten dział to proszę przenieść. Posiadam układ ZL1USB czyli przejściówkę z USB na RS232 (poziomy TTL) opary na układzie FTDI FT232BM. Złożyłem na nim prosty programator SPI i napisałem (na razie testowe) oprogramowanie do niego. Korzystam z modułu 'D2XXUnit' który można ściągnąć ze strony producenta scalaka. Program jako taki działa...
Witam, napisałem program który ma wyświetlać piramidę pascala do n podanego przez użytkownika, lecz problem tkwi w tym że od 12 wyrazu program wyświetla jakieś chore wyniki nawet na minusie i nie wiem co dokładnie tu nie gra, chciałbym również jakąś prosta metodę na posortowanie całej piramidy by wszystko było w miarę równo, próbowałem coś z "strlen()"...
Projekt miernika kondensatorów od 1pF do 10.000uF podłączanego do PC, wskaźnikiem pojemności jest w tym wypadku monitor komputera. Zostały dołączone źródła w Pascal pozwalające poznać zasadę komunikowania portu szeregowego z światem zewnętrznym. Stworzony przez Czecha Jiří Sedláček miernik został zbudowany na układzie MC1458, konstrukcja samego hardware...
Jeśli chcesz programować to przede wszystkim musisz poznać dany język programowania. Zobacz co pokazały Google na temat "pascal tutorial": Poczytaj troche a potem dopiero bierz się za pisanie programów. A jeśli chodzi o algorytm to bedzie brdzo prosty: 1. deklarujesz tablice oraz licznik częstości: type nazwa_typu = array [1...4] of char; var...
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;
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...
Witam Program działa na zasadzie rekurencji. Procedura LiczbaSlownie wywoływana jest tyle razy ile cyfr ma liczba. Dla liczby np. 123 będzie to nastepująco 1. wywołana jest procedure w programie głównym z parametrem 123. 2. Jeśli liczba jest wieksza od 9 to wywolywana jest ta sama funkcja ale już z parametrem 123 div 10 czyli 12. a) Jeśli liczba jest...
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...
Witam! Mam pewien program we Free Pascalu (zrobiony poprzez wprowadzenie pewnych zmian w programie z Turbo Pascala), w którym nie działa drukowanie. Nie chcę się zagłębiać w funkcje i procedury, więc pomyślałem, żeby ten problem obejść przy pomocy Visual Basica. Otóż chciałbym stworzyć aplikację, która miałaby pewną kontrolę nad uruchomionym exe z głównym...
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.
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...
uses crt; VAR a,b,c:integer; {o ,d:string;}o, d: char; {!zmiana typu zmiennych} {poczatek funkcji} function dodawanie(a,b:integer):i... begin dodawanie:=a+b; end; {koniec funkcji} {poczatek funkcji} function odejmowanie(a,b:integer):... begin...
Jest coś takiego jak error handling try część programu except w przypadku błędu end lub try część programu finally jeśli poszło wszystko bezbłędnie end Są też funkcje sprawdzające ale dokładnie musisz poszukać. Co by nie było to pascal więc rozwiązania rodem z turbo pascala, lub delphi powinny funkcjonować.
jest to funkcja, która zwraca w wyniku ciąg. CZyli używasz jej, zamiast ciagu.
Błąd jest w tym miejscu: Readkey jest równy "#", a przecież nie o to Ci chodzi. Jak wiadomo znaki rozszerzonej klawiatury (m. in. strzałki) są kodowane za pomocą dwóch znaków, gdzie pierwszy to 0. Natomiast drugi znak odpowiednio dla strzałek w lewo i prawo to: 75 i 77. Poprawny kod powinien wyglądać np. tak: Delay . U mnie kulka porusza się w miarę...
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....
?? 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]
A zatem ja bym to widział tak (rozwiązanie może i wolne, ale czytelne): Tworzysz sobie tablicę dwuwymiarową statyczna (['a'..'z','a'..'z'] of char). Wypełniasz ją w taki sposób, że idąc w każdym wierszu po kolumnach zaczynasz od Chr(Ord('a')+nr_wiersza), jednocześnie sprawdzając przekroczenie zakresu (wartość litery 'z'). Jeśli nastąpi - wracasz do...
Cos w rodzaju kopiowania. Podaje sciezke da katalogu, z ktorego dane maja byc kopiowane, sciezke do katalogu gdzie dane maja byc kopiowane i w tym drugim katalogu utworzone zostaja wszystkie te same pliki oraz katalogi, z tym ze te utworzone pliki nie zawieraja danych - sa to puste pliki. Funkcje ktore wykozystuje program to: FindFirst, FindNext; funkcje...
Witam. właśnie na potrzeby tego tematu napisałem w Delphi takie coś: const Zakres = 500; const Ilosc = 4; type PaczkaLiczb = array[0..Ilosc-1] of word; function LosujLiczby:PaczkaLiczb; var test:boolean; wylosowane:array[0..Zakres-1]... of boolean; i,o,p:word; begin {oproznianie tablicy} for i := 0 to Zakres-1...
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...
Pisalem, ze jest w innym watku. Do inicjalizowania trybu graficznego uzywasz funkcji initgraph z biblioteki graph bodajze zrob shift+f1 to bedziesz mial help w pascalu i tam poszukaj initgraph, pewnie nawet bedzie przykladowy kod cos pokroju uses graph begin ... initgraph(driver,mode,sciezka dostepu); ... end;
czekane na klawisz najprościej zrobić na funkcji z tym że ona czeka na dowolny klawisz: getch(); a czyszczenie ekranu to: clrscr(); pozdrawiam,
Zamiast GetDate można użyć funkcji GetSystemTime albo GetLocalTime, jednak odpowiednika GetKey nie będzie ponieważ konsola windows nie wspiera takich funkcji (podobnie jak GotoXY, albo ClrScr).
Program dodający duże liczby naturalne: program dodaj_natur; { Testujacy dzialanie funkcji, operujacej na duzych } { liczbach (pamietanych w zmiennych typu String). } uses Crt; type TLiczba = String; function Dodaj (A, B: TLiczba) : TLiczba; { Funkcja dodaje dwie duze liczby. } var C : String;...
Witam! Potrzebuję programu napisanego w Pascalu, który oblicza logarytm naturalny z podanej liczby z dokładnością eps. W programie nie można wykorzysywać funkcji LN() i EXP(). Danymi wejściowymi mają być: liczba n oraz eps [przybliżenie]. Proszę o szybką pomoc.
Witam serdecznie! mam powazny problem bo za tydzien musze oddac program do oceny a nie wiem jak go skonczyc:(. jest to ksiazka teleadresowa. Program powinien zawierać funkcje wstawiania, usuwania, przeszukiwania, sortowania elementów. Użycie powyższych funkcji musi być zrealizowane poprzez implementację menu w trybie tekstowym lub graficznym. czesc...
hmmm zapewne zamieszczony przez gpql patch pomoze. Zrodla programu pewnie nie masz, wiec potrzebujesz byc moze patcha na pliki .exe. Zawieszenie spowodowane jest przez za szybki procesor. Jakas funkcja z pascala liczy predkosc procka i jak jest za szybko, to wychodzi dzielenie przez zero. Ale to powoduje problem przy starcie programu, a tutaj przy wyjsciu....
Jak najszybciej potrzebuje rozwiązanie tych dwuch zadań w języku Turbo Pascal: 1. Napisz program, który czyta liczbę naturalną n, 1<n<=10, w tablicy dwuwymiarowej tworzy tabliczkę mnożenia dla liczb naturalnych z przedziału Wskazówka Trzeba zadeklarować tablicę dla najwiekrzego n, czyli 10. a w programie korzystać z jej części odpowiednio do wczytanej...
Witam. Problem występuje przy zapisie listy do pliku. Błąd 113 Error in statement. Zapewne rozwiązanie jest banalne i tkwi w szczegółach. program listosob; uses crt, dos; type wsk_osoby=^osoby; osoby=record nazwisko: string[25]; imie: string[15]; telefon: string[12]; nastepny:wsk_osoby; end; var plik:file...
Proponuję zacząć od zapoznania się z podstawami Turbo Pascala na początek, bo bez tego to będzie praca do jednej bramki a to przecież ty masz ją wykonać. I na pewno skieruj swą uwagę na funkcje przetwarzania zmiennych typu string (copy, pos, i inne) Przydatne będą też: Program uses procedure Var Assign Reset ReadLn Writeln Close
I tak to jest gdy zamiast wędki daje się ryby. Poczytaj w helpach o write, writeln itp a sam dojdziesz ( ). 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 zawsze wiem co dokładnie oznaczają i gdzie...
Witam! mój proble taki jak w tytule, nie wiem jak właczyć daną aplikacje przez pascala, słyszalem cos o funkcji exec(lokalizacjapliku,lokalizacja pustego pliku txt) lecz to nie pomaga... Może wie ktos jak to zrobić? może byc *.exe i *.bat. pozdro