Może zamiast write wpisz wszędzie writeln
initgraph(gd,gm,'katalog w którym są BGI');
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...
Tak ja także bym prosił o jakieś informacje ponieważ szukam od dłuższego czasu i nic nie wymyśliłem.
Taki mam pomysl choc w T pascalu dawno juz nie pisalem : Co do poruszania sie to mozesz zrobic case'a i zwiekszac lub zmniejszac numer indeksu tablicy Tab[indeks] wcisniecie klawisza strzalka w gore indeks+1 i ponownie wyswietlac analogicznie dla strzalki w dol Pamietaj zeby zabezpieczyc sie przed wyjsciem poza zakres tablicy :!: Co do przeszukiwania...
Tak na szybko : program wisielec; uses crt; var s,m:string; l:string[1]; i,z,licznik:integer; poprawna,koniec : boolean; begin; licznik:=0; repeat clrscr; textcolor(green); gotoxy(33,4);writeln('╔...
TO zależy co ma robić Twój program. Standrdowo na dyskietce muszą zostać (i to w odpowiednich sektorach fizycznych) msdos.sys, io.sys, himem.sys, command.com - jeżeli planujesz korzystać z interpretatora poleceń, no i plik bat Inne pliki z dyskietki startowej to "dodatki": obsługa CD, myszki, klawiatury z polskimi znakami itd. Pisanie systemu to chyba...
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.
Pozdrawiam chemik143. Kiedyś mieszkałem w Cieszynie. A oto program: Uwaga: w linii write('podaj wartosc tablicy [',i,' ',j,']= '); musisz podawać wartości w postaci np 32 12 i enter czyli 32 spacja 12 ENTER uses crt; var tablica:array[1..100,1..100]of integer; i,j,n,k,w,wynik:integer; op:char; begin clrscr; writeln('program wypelnia tablice dwuwymiarowa...
Program działa, natomiast popełniłeś kilka błędów. Ostatnia komenda readln działa bez zarzutu, ale czyta klawisz enter użyty do zatwierdzenia komendy read(cena); . Pozmieniałem read() na readln() , oraz dodałem formatowanie ostatecznego wyniku. USES CRT; VAR ilosc,dlugosc,cena:real; BEGIN clrscr; writeln('Ilosc paczek - 20 szt.'); readln(ilosc);...
W procedurze twlist(...) ilość begin=4, a ilość end=3!!! Tu wyskakuje Twój error,ale dalej też są. Np nieznana proc. dodaj(...), Trzeba dalej analizować. Poza tym nie widzę ciała programu głównego,sterującego wykonaniem kolejnych procedur.Chyba,że źle widzę.
while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!
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...
Na drugi rzut to chyba nie chciałem zamykać tej wewnętrznej pętli po dwóch linijkach. Popraw trochę [url=http://www.dzyszla.aplus.pl/porada-... to od razu łatwiej bedzie zauważyć, gdzie się powinny zaczynać i kończyć poszczególne bloki.
Istnieją trzy rozwiązania tego problemu. 1. Uniwersalne - to znaczy takie które będzie w stanie wyświetlić dowolny napis, złożony z dowolnych znaków ('%','*') przenosząc poszczególne pixel-e, z których zbudowane są litery i generowanie ich odpowiedników, za pomocą znaków. Odradzam, jest to dość skomplikowane. Można co prawda znaleźć gotowe kody źródłowe...
// w tym miejscu stoję, wymyśliłem pewien algorytm ,że liczba pierwsza to taka która (a mod 2) będzie <> 0 oraz ,że liczba a nie jest podzielna przez żadną z liczb aż do a-1.. Pomyślałem ,żeby zwiększać i=i+1 i znowu sprawdzić czy a mod i=0 Ten pomysł jest dobry, sprawdź taki kod (spróbuj to dokładnie zrozumieć): readln(n); a:=2;...
[...] begin repeat writeln('Pole jakiej figury chcesz policzyc?'); writeln('1-kwadratu'); writeln('2-prostokata'); writeln('3-kola'); writeln('4-trojkata'); writeln('0-koniec zabawy'); writeln('Wpisz numer figury i kliknij Enter:'); readln (decyzja); if decyzja=1 then kwad;...
No dobrze ale jak mam wpisać żeby program zapisywał odpowiedzi użytkownika a nie pytania które on dostanie na ekranie? Bo ja zakładam, że te odpowiedzi mogą być za każdym razem inne. Odpowiedź jest dokładnie wciąż ta sama. Skoro odpowiedź jest zapisywana do zmiennej poprzez readln, to tą zmienną należy zapisać do pliku. [syntax=pascal]writeln(f, 'Chciałbym...
Sprawdzanie danych można zrobić tak: 1) Dane powinny być liczbami dodatnimi repeat Write('Podaj długość boku, a = '); Readln(a); if a<=0 then Write('Błąd! Długość boku powinna być dodatnia.'); until a>0; Proponuję również ten schemat wprowadzania danych zastosować w całym programie, tzn. poprzedzać wczytywanie komentarzem...
litery inne niż małe: możesz zrobić tak: program test; uses crt; procedure test_znak; var ch : char; begin repeat writeln('Podaj znak do zakodowania: '); ch := readkey; until (ord(ch) >= ord('a')) and (ord(ch) <= ord('z')); writeln('Podales: ',ch); end; procedure test_liczba;...
Trzeba by zrobić listę lub tablice ze stringami. Sortowanie może polegać w taki sam sposób jak sortowanie liczb (można porównywać kody ASCII - ich ułożenie rośnie wraz z kolejnymi literami alfabetu). Trzeba by tylko rozważyć sortowanie wg kolejnych liter (pewnie za pomocą rekurencji jakiejś). Zadanie dość typowe na pewno coś znajdziesz Google "sortowanie...
To nie możesz po prostu złączyć "c:\"+np ?? Dodano po 53 PS. To nie jest "nie wiadomo gdzie" tylko w katalogu roboczym (jeśli nie podajesz ścieżki)
Z tego co pamiętam to byłoby coś takiego: Piszesz żeby wcisnąć przycisk 1, 2 lub3 Writeln('Wybierz: 1,2,3'); Readln(a); case a of 1: procedura1; 2: procedura2; 3: procedura3 end
mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):
Witam. Potrzebuję na informatykę następujący program w Pascalu. Zadanie: 1. Musi to być test wyboru (a, b, c, d) gdy wybierzemy jedną odpowiedź to pytanie znika i pojawia się następne. 2. Licznik wyświetlający, który jest aktualnie numer pytania i ile zostało zaznaczonych poprawnych odpowiedzi. 3. Gdy dojdziemy do końca pytań to program wystawia ocenę....
skoro Cie nurtuje po co to jest to poszukaj sobie artykułów na internecie a dopiero jak czegoś nie zrozumiesz zadawaj konkretne pytania :) Konstruktory i destruktory to temat związany z programowaniem zorientowanym obiektowo, jeśli poszukasz informacji o klasach to jednym z początkowych tematów związanych z klasami będą konstruktory i destruktory klasy......
Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.
No to powiem wprost - bez szans. Gdyby pytania były znane wcześniej razem z możliwymi odpowiedziami dałoby się to zakodować wszystko bardzo prosto, wyszukiwanie pytania w bazie, wypisywanie odpowiedzi. Ale jeśli pytania są całkowicie losowe to tai program jest nie do napisania w 2 tygodnie. W zasadzie jest nie do napisania prawie w ogóle :P Zbyt duża...
Procedura w takiej formie : {procedura wyszukiwania filmu wedlug zadanego klucza} procedure wyszukaj; var p : file of film; f : film; s : string; x : integer; begin write('podaj tytul filmu ktory chcesz znalezc : '); readln(s); assign(p,'filmy.dat'); {otwieramy plik} reset(p); {reset...
Brakuje średnika na końcu w trzeciej linijce od dołu
Witam. Można wykorzystać zmienną logiczną. program tablica; uses crt; var t:array[1..10] of integer; i:integer; tak:boolean; begin clrscr; tak:=false; writeln ('Wpisz 10 liczb'); for i:=1 to 10 do readln (t[i]); writeln('liczby podzielne przez 2 to '); for i:=1 to 10 do if t[i]...
[syntax=pascal]Program xyz; uses crt; Var cyfra:integer; odp:char; Begin clrscr; Write('Hello, podaj cyfre 4'); Readln(cyfra); if cyfra =4 then writeln('tak to cyfra 4'); if cyfra <>4 then writeln('ty kretynie to nie cyfra 4'); delay(3000); Write('czy 4+4 to 8?'); Readln(odp); if odp ='t' then writeln('brawo, Enstein z ciebie'); if odp <>'t'...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
Nie możesz sobie wstawiać VAR i END gdzie tylko chcesz :) Przeanalizuj ten kod : PROGRAM kalkulator; uses crt; var l1,l2,decyzja:integer; tak_nie:char; procedure dziel; BEGIN writeln(l1,':',l2,'=',l1/l2)... END; procedure mnoz; BEGIN writeln(l1,'*',l2,'=',l1*l2); END; procedure dodaj; BEGIN writeln(l1,'+',l2,'=',l1+l2);...
wszystko!!!
Po pierwsze primo: wypelniasz stojac poza prostokatem (patrz wartosc FloodFill(275,574,red); :!: :!: :!: Po secundo: skorzystaj z Rectangle(int,int,int,int) o czym mozesz poczytac tu :http://yarpo.republika.pl/kurs2/lekcje/... albo: procedure prostokat(x1:integer; y1:integer; x2:integer; y2:integer);...
jeśli znasz rozmiary macierzy, to m razy wykonujesz read(plik,zmienna) i readln(plik) aby przejść do następnej linii (albo już niekoniecznie, nie pamiętam). Czytasz w podwójnej pętli 1-n,1-m, odczytane wartości przypisujesz pod wskazany przez pętle indeks (miejsce) w tablicy. To, jak będzie wyglądać to w dokumencie to w zasadzie kwestia stworzenia specyfikacji....
Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))
W pascalu dawno nie pisałem ale jeśli dobrze pamiętam to przy odczycie odpowiedzi spróbuj readln. Wtedy wciśnięcie ENTER kończy wprowadzanie. write też możesz zastąpić writeln . Pytania i odpowiedzi będą pojawiać się w kolejnych liniach.
Pod tym adresem masz Turbo Pascal 5.5 http://www.pobierz.eu/p,1197/Turbo_P... a pod tym Turbo Pascal 7 http://www.dobrepliki.pl/Download-Pl...
To nie są dwa warunki, tylko przedział (jak napisałeś na początku) case można traktować jak argumenty warunku in
Nawias zmienić linijkę wcześniej.
Round - zaokrąglenie
Obiecałem pomóc... słowo się rzekło... 1) Linię programu c:=(645-(6*a))/2; zastąp linią c:=(645-(6*a)) div 2 ; i koniecznie poczytaj o typach zmiennych liczbowych i dzieleniu całkowitym. 2) Natomiast linię e:=c+(2*a)+((1/2)... zastąp linią e:=c+(2*a)+a div 2); 3) Ponadto...
Zawsze jeszcze są Google :) i trochę więcej samodzielności. uses dos, crt; var plik: text; begin assign(plik, 'plik.txt'); rewrite(plik); write(plik, 'to zostanie zapisane do pliku'); end. Pozdr! Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku close(plik); Ponadto za każdym razem plik będzie "nadpisywany"...
Prosty to prosty :) tylko nie pamiętam jak przerwac pętle porównująca liczby tam gdzie jest znak zapytania ale to moze sama cos wymyslisz bo ja nie robiłem notatek i teraz nie pamiętam jak to leciało :)
A może w ten sposób ? program gwiazdki; uses crt; var z,k,w:byte; begin clrscr; writeln('Podaj liczbe. '); readln(k); w:=1; while w<=k do begin z:=0; while z<=k-w dobegin write('*'); inc(z); end; writeln; inc(w); end; w:=1; while w<=k do begin z:=0; while z<=k-w do begin write('...
Jak ja się bawiłem w TP jeszcze ładnych parę lat temu, to pod tryb graficzny miałem swoje biblioteki takich obiektów jak pola edycji, wyboru, combo-boxy okna i wszystkie inne a'la WinApi obiekty. Więc polecam zrobić sobie takie coś. Jeśli oczywiście pytasz o wprowadzanie danych do programu przez interface graficzny, bo nie bardzo rozumiem Twoje pytanko.
Witam. Najprostszy zapis do pliku wyglada tak: deklarujesz zmienna typu text: var plik: tekst; teraz musisz przypisac plik fizyczny zmiennej plikowej: assign(plik, 'sciezka\nazwa_pliku'); mozesz podac nazwe jeszcze nieistniejacego pliku, lub istniejacego, ale uwaga!!! istniejacy zostanie przepisany!!! teraz otwierasz plik (do przepisania): rewrite(plik);...
To, co jest w głównym (ostatnim) bloku begin ... end, obejmij pętlą nieskończoną: while true do begin __(tu reszta) end; Dodatkowo możesz dodać opcję (w case): else exit; żeby jednak dało się skończyć program;)
Prosze bardzo ;) Tu znajdziesz Turbo Pascala v7.0 http://www.programowanie.host.sk/pascal-... a tutaj: http://www.programowanie.host.sk/pascal-... przyklady ;)
Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]
Turbo Pascala to lepiej sobie odpuścić w zastosowaniach internetowych. Za dużo roboty by było :( Jeśli już - musisz po prostu napisać klienta FTP. W przypadku Delphi czy Free Pascala najlepiej będzie skorzystać z gotowców Indy.
Nie wiem, co dzieje się z Twoim komputerem, ale u mnie wyniki są całkiem poprawne. http://obrazki.elektroda.pl/9373254200_1... Jeżeli wynik wychodzi ci zero, to znaczy, że najprawdopodobniej nie podajesz poprawnie 'znaku' działania i żadne z obliczeń nie są wykonywane. Kolejną strawą, jest formatowanie wyniku. Jedno co powinieneś zmienić,...
W Turbo Pascalu 7 nie będzie działać Prt Scr
Poszukaj sobie opisu formatu JPEG i tam będzie rozpisane co gdzie jest. Utworzysz sobie odpowiedni typ danych i wczytasz do nich nagłówek, a potem to już z górki. Można byłoby znaleźć jakąś gotową biblotekę ale pewnie nie o to chodziło nauczycielowi.
write(plik, 'ciąg')
Zapisać do pliku o rozszerzeniu "BAT". Uczysz się programować w Pascalu, czy obsługi TP 7.0 przy wyłączonym monitorze ? IDE i Skróty FP są właściwie identyczne, poza tym nauka samych skrótów klawiaturowych jest bez sensu - uczysz się ich w trakcie korzystania z programu, po to aby ułatwiały pracę, nie po to by móc je wyrecytować ;) Pozdrawiam, Krzysztof.
Odkodowuje się dokładnie tak samo, tylko zamiast +7 dajesz -7 :). write('Podaj ciag znakow, do zakodowania : '); readln(ciag_znakow); for x:=1 to length(ciag_znakow) do ciag_znakow[x]:=chr(ord&... + 7 ); {!!!!!!!!!!!!!!!} writeln('Zakodowany ciag znakow :...
Dziwne pytanie, tak samo jak w Windowsie ' Klawisz koło entera (cudzysłów/apostrof)
Ten fragment Twojego kodu assign(imi,'d:\imiona.dat'); rewrite(imi); for a:=1 to 10 do begin writeln('Podaj ',a,'. imie:'); readln(tim[a]); end; write('Imiona: '); for a:=1 to 10 do write(' ',tim[a]); readln; close(imi); pobiera dane (imiona) z klawiatury do...
To może zamiast for k:=0 to 5 do for i:=0 to 5 do zrób for k:=0 to 5 do for i:=k to 5 do
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...
Może to: ftp://garbo.uwasa.fi/pc/turbopas/tpv24.z... PS. Niech kolega nie oszukuje, że szukał. http://www.google.pl/search?hl=pl&q=%22t...
Na stronie Helionu: https://helion.pl/ksiazki/jak-rozgryzc-t... można pobrać przykłady - to chyba jest zawartość dyskietki.
Random(100);
Już wiem dlaczego to nie działa. Otóż Free Pascal nie obsługuje struktur MEM, MEML, MEMW i PORT. Za to Turbo Pascal 7.0 Jak najbardziej. A zatem najprościej będzie zmienić Ci IDE. Możesz też poszukać biblioteki do FP o nazwie GO32.PPU. Wszystko to jest opisane tutaj: http://coleweb.dc.fi.udc.es/docencia/edi...
Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.
Tak, nie będzie żadnego problemu. Dev kompiluje jakby w free pascalu. Dev ma taką przewagę nad FP, TP i BP, że pokazuje Ci dokładnie gdzie masz błąd i jaki to błąd. Przy tworzeniu projektu ustawiasz CONSOLE APP, potem wrzucasz ikonkę w projekt i zapisujesz plik, po kompilacji dostajesz plik *.PAS i tego pliku wymaga nauczyciel. Resztę taką jak projekt...
Ponieważ wprowadziłem Cię w błąd oferując fcję wherex i wherey, która działa tylko w crt, zamieszczam kawałek kodu, który pokazuje jak korzystając z przerwań można rozwiązać ten problem. Po najechaniu kursorem na prostokąt i kliknięciu lewego klawisza, na ekranie pojawia się tekst. Naciśnięcie w innym miejscu nie wywołuje reakcji. Można to też rozwiązać...
C:\autoexec.bat Któreś z poleceń brzmi mniej więcej tak: keyb pl,,C:\WINDOWS\COMMAND\keybrdx.sys gdzie x to numer klawiatury, w przypadku polskiej programisty powinno być 4.
moze freepascal bedzie lepiej działał, u mnie tak właśnie było, troszkę się różni kolorystyką ale składnia języka pozostaje więc do nauki równie dobry jak TP http://www.freepascal.org/sdown.html
Czyżbyś miał niekompletną wersję TP7? Spróbuj może ściągnąć ją stąd: http://www.simonhuggins.com/courses/prog... lub stąd: http://www.softportal.com/?id=2409
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.
Masz: Uses crt; var a,h,pole,obw:real; begin clrscr; write('podaj dlugosc boku ');readln(a); h:=sqrt(3)/2*a; obw:=3*a; pole:=a*h/2; writeln('wysokosc trojkata= ',h); writeln('obwod= ',obw); writeln('pole= ',pole); writeln('pressed key'); readkey; end.
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...
musisz zmienic w atuexec.bat czionke z koncowka 2 na koncowke 4, niestety w tej chwli nie pamietam dokladnie nazwy, ale jest tylko jedno cos z 2 przed rozszerzeniem. pozdrawiam dokladnie: C:\WINDOWS\COMMAND\keybrd2.sys zmien na: C:\WINDOWS\COMMAND\keybrd4.sys
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
w Turbo Pascalu wszystko ładnie chodzi A tego Turbo Pascala uruchamiasz w Windowsie? W Windowsie, w trybie chronionym nie możesz bezpośrednio wywoływać przerwań.
Nie wszystko działa jak należy ale masz punkt zaczepienia. PROGRAM magazyn; uses dos, crt; VAR nr: string; produkt: string; dostawca: string; data: string; nrfvat: string; pop: Integer; plik1: text; Sciezka: String; PROCEDURE Pauza; begin writeln; write ('Wcisnij <Enter>'); Readln; writeln; end; PROCEDURE...
Jak wyslac dana na port z poziomu TurboPascala juz sam wiesz. Nie ma tu zadnego pinu zegarowego. Musisz sam o to zadbac programowo. Oprocz rejestru bazowego np. $378 ktory jest rejestrem odpowiedzialnym za nozki D0-D7 w trybie NORMAL sa jeszcze dwa rejestry odpowiedzialne za reszte nozek. Jesli chcesz uzyskac sygnal "Strobe" czyli informujacy ze jest...
1/ lpt to kontroler równoległy (działa pod bazami 0x378 0x278), a kontroler uart(rs232) jest szeregowy więc niewiem poco nawiązywać do lpt.. 2/ z tego co pamiętam to at90s2313 posiada uart.. opis jak go zaprogramować można znaleźć w dokumentacjach.. 3/ co do programowania rs232 od strony komputera w turbo pascalu - niewidze przeszkód jeśli nieużywasz...
pisane od ręki: program lpttoggle; const LPT_BASE = $378; var str: String; begin port[LPT_BASE] := $00; repeat Readln(str); if (str = 'q') or (str = 'Q') then break; port[LPT_BASE] := port[LPT_BASE] xor $10; until false; end. I wersja dla Delphi wykorzystująca dlportio: program lpttoggle; {$APPTYPE...
najbardziej prostackie rozwiazanie jest takie program blablabla; var a,b,c: integer; begin readln(a); readln(b); readln(c); if a>b then if a>c then writeln('najwieksza jest:',a); if b>a then if b>c then writeln('najwieksza jest:',b); if c>a then if c>b then writeln('najwieksza jest:',c); readln; end. i jesli sa to twoje poczatki to zacznij od tego,...
...mam nadzieje, ze zdajesz sobie sprawe z faktu ze nalezy przestawic tryb kompilacji w momencie jezeli chcesz miec binarke...i odwrotnie jezeli chcesz kompilowac w pamieci... ...mozesz tez w opcjach (bodajze opcja Environment..pisze z pamieci wiec moge sie mylic) jest mozliwosc przypisania katalogu w ktorym ma znalezc sie po kompilacji plik wykonywalny.
Jest tablica port czy ports, do ktorej mozesz pisac jak i z niej czytac. np port[$80] := 10; A jesli nie odpowiada CI taka opcja, to uzyj wstawe asemblerowych i instrukcji out i in.
Załączam 2 programy do obsługi RS-232 w Turbo Pascalu. Są to programy terminalowe, ale uproszczone w ten sposób, że najpierw jest wczytywane polecenie z klawiatury, wysyłane do modemu, a potem wypisywana jest odpowiedź modemu. Można więc wykonać jedno polecenie AT. Programy operują na portach (bez BIOS'u), jeden z użyciem przerwań, drugi bez. Niestety...
Idtnieje mozliwosc, ze porty sa poblokowane. Poczukaj pod haslem UserPort na google,
http://www.dzyszla.aplus.pl/programy_i_t... = w C
Tak, niekoniecznie.
Może nie jest to idealne rozwiązanie, ale spełnia postawione przez ciebie warunki. [syntax=pascal]program minutnik2; uses WinDos,CRT; const co_ile_godzin = 0; {ile godzin ma trwac odliczenie} co_ile_minut = 30; {ile minut...} co_ile_sekund = 16; {ile sekund...} kod_reset = 'reset'; {kod resetujacy zegar} kod_koniec = 'koniec'; {kod zamykajacy program}...
Mały błąd się wkradł w program...mianowicie kawałek kodu był w nawiasach...wersja skompilowana w Turbo Pascalu do pliku pwm.exe w załączniku. Ps: Kompilacja do pliku exe w Turbo Pascalu COMPILE -> BUILD
Witam . Ostatnio zainteresował mnie temat wyświetlaczy . Postanowiłem poszukac czegoś na temat ich obsługi w sieci i znalazłem dosyc dużo informacji na temat wyświetlacza z noki 3310 , chcialem go kupic , ale zrezygnowałem z tego gdyż otrzymałem wyświetlacz od SE k800i za darmo od dobrego znajomego (kupił 1 telefon na części bo w jego egzemplarzu coś...
Pascal = język programowania. Turbo Pascal = stare środowisko programowania. Dev Pascal = nowe środowisko programowania. Tak to można [bardzo nieprecyzyjnie] określić.....
A jeszcze tutaj bardzo fajny kurs Pascala: http://turbo-pascal.lubi.pl/index.htm Pozdrawiam.
Sądząc ze sposobu opisania problemu i odpowiedzi na pytania pomocantów, to programowanie pod Windows dla pytaniodawczyni jest "dość" odległą przyszłością :) Pamiętam jak kiedyś spawdzaliśmy jaka jest różnica pomiędzy napisaniem i wygenerowaniem prostego programu otwierającego okno z przyciskiem zamykającym w Turbo Pascalu 7.0 i Delphi chyba 2.0 wyszło,...
No to wiemy wszystko. Normalnie, Windows 7 nie pozwala na zapisywanie plików w katalogu "Program Files" na dysku C. Przenieś Katalog TP na inny dysk, lub do katalogu swojego profilu : C:\USERS\twoja_nazwa_użytkownika. Możesz także w konfiguracji TP zmienić katalog docelowy kompilacji (menu Options/Directories), na taki który nie będzie kolidował z systemem...
Rozmawiamy teraz o Turbo Pascalu czy o Delphi/Free Pascal/Lazarus? Pascal (Turbo Pascal/Borland Pascal) nie ma możliwości deklarowania tablic bez podania rozmiaru (tablic dynamicznych). Natomiast Delphi, jak najbardziej. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type rekord = record dana1 : integer; dana2 : real; end; var tablica...
Kolega pewno używa Turbo Pascala tam te znaki wyglądają tak samo ale nie można ich zamieniać. Sprawdzałem to przed chwilą.
Kolego...po tym co piszesz wynika że jesteś początkujący.no i tacy ludzie jak Ty też muszą być. Pytania? Jaką IRDĘ chcesz zastosować do odbioru sygnału z pilota i poco? Poco chcesz iść w koszty i stosować LCD? Czy pisałeś już coś w asemblerze pod AVRy? moje GG:4907528 PS:ATMEGA16 to "potężny" uK!!! Respect. tak jestem początkujący ale szybko się uczę...
turbo pascalu zadanie turbo pascalu programy turbo pascalu
zassać powietrza wymiana osłona przegub pfsense route
klonowanie danych windows akumulatory 18650
Falownik Huawei SUN2000, Sofar, Growatt – czerwona środkowa dioda, alarm/FAULT, diagnostyka FGH60N65SMD vs FGH40N65SMD – różnice parametrów IGBT ON Semiconductor 650V 60A/40A
