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...
Przemyśl może taki kod : program rec; uses crt; type osoba = record imie : string[15]; nazwisko : string[15]; ocena :integer; end; var plik : file of osoba; plik2 : file of osoba; uczen : osoba; a : char; begin clrscr; assign(plik,'dane.txt'); assign(plik2,'best.txt'); {$I-} rewrite(plik);rewrite(plik2&...
Mam do napisania program na zaliczenie. Całość zadania brzmi : Losowe generowanie wektora wierszowego o zmiennym wymiarze, wyświetlanie wektora, suma elementów. średnia ujemnych , wyznaczanie liczb pierwszych oraz parzystych, potęgowanie wektora (każda następna liczna jest wykładnikiem poprzedniej A[i] A[i+1](to ma być indeksie górnym w A[i]), zapis...
(at)ElektrodaBot Pokaż prosty przykład we FreePascalu jak używać CreateFile/ReadFile/WriteFile do obsługi portu COM pod Windows. Bezpośrednia odpowiedź Poniżej masz minimalny, samowystarczalny przykład w Free Pascalu (Windows), który otwiera port COM przez CreateFile, konfiguruje go przez DCB/SetCommState i COMMTIMEOUTS/SetCommTimeouts, po czym wysyła...
hmm tamten problem rozwiązałem po przez dodanie granicy długości znaków. ale tutaj jest problem [syntax=pascal]// zapis pliku assign(plik, 'f:/plik.dat'); rewrite(plik); write(plik,student[x]); [/syntax] odczyt pliku [syntax=pascal]begin reset(plik) ; read(plik,student[x]); end;[/syntax] kod tworzy plik na dysku o nazwie plik.dat z zawartoscia 292kb....
Plik nie jest plikiem tekstowym a binarnym, inny jest tryb odczytu. Podaję Twój skrócony kod. Działają opcje 1,2,4,0 [syntax=pascal] uses crt; const max=2; Type samochod = array[1..max] of record identyfikator:integer; marka:string[20]; model:string[20]; { rok_produkcji:integer; kolor:string[20]; opis:string[20]; cena:string[20]; il_elementow:integer;}...
Witam! Nie mam za wiele pojęcia o Pascalu ale muszę napisać program który wczyta i potem odczyta (wypisze na ekranie) dane z pliku: Część dotyczącą zapisu w zaszadzie mam zakończoną. Nie wiem niestety jak odczytać dane. Chciałbym żeby program zapytał "czy odczytać dane z pliku" - jeśli tak to odczyt. Jeśli nie to koniec programu. Czy możecie mi pomóc?...
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 mam pytanie: jaki jest rozmiar programu urzywającego obsługi mmc/sd (minimalny, tak na oko). W tych darmowych 2 kb bascoma chyba się nie zmieści ;>. Pod pascalem coś czytałem o obsłudze sd i tam piszą, że kod prostego programu (oczywiście po kompilacji) to około 12 kb, więc dałem sobie spokój, bo pascal ma darmowe 4 kb :|.
Tak na początek to widzę w tym kodzie możliwość stworzenia dwóch procedur: - odczyt z pliku - zapis do pliku
Kompilator z Borland Pascal 7.0, system operacyjny Windows 2000/XP. Potrzebuje caly program, nie znam sie na tym jezyku za bardzo...
Ma wartość 0 (sprawdź!) i to jest źródło twoich kłopotów: Tablicę zadeklarowałeś jako: każdego kolejnego pytania: [syntax=pascal] a := a + 1; if (pytanie_no1='b') then tablica[a].pytanie1:='1' else tablica[a].pytanie1:='0' ; [/syntax] 2. W ogóle odpuścić sobie tę zmienną i indeksować tablicę ręcznie: [syntax=pascal] if (pytanie_no1='b') then tablica[1].pytanie1:='1'...
do usuniecia
Problem dotyczący wpisywania słów zamiast liczb rozwiązany. Dodano po 1 Co mam wpisać w kodzie mojego programu aby program zapisał do pliku tekstowego odpowiedzi podane przez użytkownika? Próbowałem różnych poleceń ale żadne nie działa. Dodano po 18 Znalazłem kod w internecie ale on też jest nieodpowiedni bo pojawia się błąd: Error 77: File variable...
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10101100 10101010 01101011 coś takiego pętle już zrobiłem ale zapisuje tylko jedną liczbę binarna w notatniku [syntax=pascal]program postac_binarna;...
Przerobiłem twój program i troche go udoskonaliłem, np troszkę zautomatyzowałem zapis i odczyt - z menu nie jest już potrzebny. Nie jest całkiem dobry, ale się kompiluje i działa jeżeli użytkownik nie chce go zabić. Kompilowany na Borland Pascal. Teraz wygląda tak: [syntax=Pascal] program baza; uses crt; type ksiegarnia = record tytul, autor, rok, numer:string[20];...
Witam serdecznie, Mam taki problem. Mianowicie muszę (na sobotę) napisać program (baza danych) samochodów i klientów, która ma działać jak wypożyczalnia, tzn. Możliwość wypożyczenia auta na określony czas lub ilość km. Ja napisać chciałem to w sposób taki że najpierw tworzę plik z autami, potem z klientami, i kolejno po wybraniu klienta i auta przenoszę...
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';...
Witam, Muszę napisać prosty jednoliniowy edytor tekstu w Pascalu (zapis tekstu do pliku i pobranie tekstu z pliku, brak ograniczenia długości, możliwość przemieszczania kursora itd). Proszę o porady. Pozdro.
Witam moglibyście mi zaproponować fragment kodu realizującego : zakładanie, otwieranie, zapis, odczyt i zamykanie pliku dyskowego. Z góry dzięki za pomoc.
"constructor create(a, b : integer);" to deklaracja funkcji konstruktora. "function" i "procedure" mieszające w głowie rozróżnienie na metody zwracające wartość lub nie. Właściwości (Property) mogą mieć swój "setter" i "getter" czyli funkcję wywołaną w momencie zapisu wartości do danej "właściwości" bądź wołanej w momencie odczytu. A w ogóle to bardzo...
Czy jesteś pewien, że chcesz lub musisz używać plików TXT do składowania danych ? To bardzo skomplikuje program. Najprostszą metodą jest zastosowanie rekordów, oraz ich zapis/odczyt do plików. W Turbo Pascalu masz już gotowe narzędzia do operowania na rekordach. Natomiast pliki TXT, traktowane jako zwykły tekst - to nie problem, ale do składowania danych...
Jeżeli definitywnie zdecydowałeś się na tryb tablicowy, to trzeba całą tablicę odczytać przy starcie programu i zapisać ja wraz ze zmianami przy końcu. Zapisywanie poszczególnych danych nie ma sensu. Zrób dwie procedury; odczyt danych i zapis danych. Obie powinny odczytywać zapisywać wszystkie dostępne tablice w całym ich rozmiarze. 1. Pierwszą (odczyt)...
witam Program prawie_gotowy; Uses CRT; Const haslo='D...'; Var wprowadz:String; petla:byte; imie,nazwisko,telefon: array [1..30] of string; c,c2,c3:char; iloscosob:byte; t1:byte; plik:text; PROCEDURE Zapisz; Begin Assign (plik,'BAZA.DAN'); Rewrite(plik); Writeln(plik,iloscosob); t1:=0;...
Napisz coś podobnego do kodu który zamieszczam. Dodaj zabezpieczenie przed otwarciem nieistniejącego pliku (IOResult). [syntax=pascal] uses crt; var c,w:char; plik:text; st:string; procedure zapis; begin writeln('na pewno chcesz zapisac, a nie dopisac?'); writeln('jesli rezygnujesz z zapisu nacisnij 1, nie dowolny inny '); w:=readkey; if w='1' then...
plan1:tab; {pamiec planszy komputera} plan2:tab; {pamiec planszy gracza} etapy_gry:tab3; {przechowuje kolejnosc etapow gry} pamiec:tab; {*tutaj komputer zapamietuje sobie pozycje zatopionych statkow*} procedure zapisz; var plik:text; i,n:byte; plan1,plan2,etapy_gry,pamiec,pamiec_grac...
Nie słyszałem o tym, ale co za problem to napisać ? Najprościej w Pascalu, tyle że na kartę dziwękową to nie zawsze da radę (szczególnie jak masz XP i coś nowego jak któreś z nowych SB Audigy). Tyle, że ten pisk i cisza to tylko kłopot w dekodowaniu tego. Lepiej sterować głowicę zapisującą przez wtórnik emiterowy z portu LPT. Wtedy namagnesowany to...
Witam. Oto nieco pelniejsza odpowiedz: Wczytywanie BMP - tu bedzie maly problem. Najlepiej byloby, gdybys poszukal w necie opisu naglowka pliku BMP, bo musialbys z tegoz naglowka wyciagnac pewne informacje na temat obrazka - chociazby szerokosc i wysokosc. Pozniej kolejny problem - obraz w pliku bmp zapisywany jest "do gory nogami", tzn. pierwsza pozioma...
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...
więc tak.. grafika ma własną pamięć aby nieobciążać łącza dużą ilością pobieranych danych.. kontroler wpisuje dane do grafiki a ta odczytuje ze swojej pamięci i wyświetla.. jeśli master nic niewysyła do pamięci grafiki to ta ma swoją zawartość i w kółko ją odczytuje wyświetlając jedną tą samą klatke.. zapisanie do grafiki niejest równoznaczne z natychmiastowym...
Masz, na szybko w TP : program kodowanie; var ciag_znakow : string; x : word; begin 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 :...
W takim razie jaka funkcja zwraca wielkość pliku? W sumie tu chodzi o ilość rekordów zapisanych w pliku.
Korzystałem w Turbo Pascalu z sterownika userport (odblokowuje dostęp do portów w Win 2000/XP) do programowania portu LPT i działał. Napisałem tylko procedurki w asemblerze odczytu i zapisu portów.
Faktycznie jak wspomniał _h problem może wynikać z blokowania przez systemy oparte na NT. Pobierz program (sterownik) "userport" umożliwiający bezpośrednie adresowanie portów komputera (zapis/odczyt) pod systemami Windows NT (NT 4.0, 2K, XP) np z adresu: http://ajpic.zonk.pl/download/userport.z... Opis instalacji znajduje sie w userport.pdf. W skrócie...
Plik jest zapisany w katalogu Bin Turbo Pascala, bo nie podałeś konkretnej ścieżki. Ale nic nie odczytasz, bo już raz do zapisu użyłeś instrukcji Assign(...) i musiłeś użyć instrukcji Close(...). Aby odczytać musisz znowu użyć Assign(...). Aby sprawdzić czy plik istnieje, używa się instrukcji IOResult, sprawdź jej działanie w Help'ie. Analizowanie programu...
Dodaj jeszcze zapis/odczyt wyników z/do pliku, wtedy masz większą funkcjonalność.
uses {deklaracja modulow} var {deklaracja zmiennych} begin repeat clrscr; writeln('z - zapis, o - odczyt, k - koniec') readln(znak); if znak='z' then begin assign rewrite pobranie danych obliczenia writeln(plik, obliczone dane) close (plik) end else if znak ='o' then begin assign reset readln(plik, dane z pliku) obliczenia wyswietlenie wynikow close(plik)...
PS: czemu nie mogę pisać kolorem niestandardowym, definiowanym przez zapis heksadecymalny kombinacji kolorów RGB? Oczywiście, że możesz. ;) Czy raczyłeś zajrzeć do 8-go linku? Owszem, ale program nie działa, występuje błąd bibliotek Po ściągnięciu biblioteki uruchamia się, ale niczego nie wyświetla, co widać na załączonym obrazku: Ściągnij sobie dlportio...
Korzystałem w turbo pascalu z sterownika userport (odblokowuje dostęp do portów w Win 2000/XP) do programowania portu LPT i działał. Napisałem tylko procedurki w asemblerze odczytu i zapisu portów.
Tutaj jest krótki plik textowy opisujący lpt.. Odczyt realizujesz tak: zmienna:=port[adres_bazowy_lpt]; a zapis: port[adres_bazowy_lpt]:=zmienna_albo_sta...
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...
Ta prędkośc to juz jest ok Zmieniając temat powiedz mi czy w Turbo Pascalu robiłeś exe jak to sie robi. Cos tam napisałem i chcę by ktoś miał tylko plik startowy
Pierw musze podać programowi nazwe katalogu. Nastepnie musi on przeszukac ten katalog i podkatalogi w poszukiwaniu plików mp3. Jeżeli znajdzie to musi na liście jednokierunkowej zapisać ścieżke do tego pliku, nazwe pliku, autora. Jak to zrobić? Żeby odczytac nazwe autora i tytuł pliku trzeba go otworzyc jako .txt Wie ktos jak to zrobić? byłbym wdzięczny
...i jak dobrze rozumiem, ECU z błędnym kodem mogę sobie wyrzucić do kosza na śmieci...? Nie, kod da się odczytać.
Witam Mam mały problem potrzebowałem napisać w Action Script program który będzie zapisywał i odczytywał mi dane z pliku TXT, z odczytem nie było żadnych problemów jednak zapis to inna bajka trzeba to zrobić używając PHP. Tylko że wtedy wszystko musi się znajdować na serwerze. Wymyślałem więc sobie że napisze w Turbo Pascalu pliczek który exportuje...
Kod w programie: uses ... , dos; ... var plik : text; var a,b,c : integer; ... BEGIN ... {Zapis w pliku zmiennych a,b,c} {UWAGA! Po poleceniu ReWrite plik zostanie WYCZYSZCZONY!} Assign(plik,'c:\mojplik.dat'); ReWrite(plik); writeln(plik,a); writeln(plik,b); writeln(plik,c); Close(plik); {Wazne!} {Odczyt pliku} Assign(plik,'c:\mojplik.dat'); Reset(plik);...
Limit napięciowy/TDP to norma w laptopach - zresztą Pascale nawet desktopowe mają dopiero ograniczenia założone. Mam 1030 zotaca i nie huhu z ruszeniem TDP, to samo 1050 nie udało mi się ruszyć tego limtu TDP. Gdybym w 980m nie miał podniesionych limitów na TDP to też bym płakał a jeszcze nie kręce. Tak że HDD i brak RAMu na zapasie to nie dziwota że...
Ładny wykładzik, który bardzo mi oświecił sprawę :D Niestety C nauczyłem się sam, a błędy wynikają z przyzwyczajenia do Pascal'a ;) Wielkie dzienx za pomoc :)
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...
Oba przykłady są bzdurą. To żeś wanął, jak przysłowiowy "łysy grzywą o beton". (przy okazji trochę kultury na forum ci proponuję i naucz się dyskutować zamiast ogłaszać wszem i wobec że inni piszą bzdury. Wiesz lepiej? Napisz co i jak , wytłumacz jeśli wiesz lepiej) A jak się okaże, że nie wiesz lepiej to może ktoś inny ci podpowie - wtedy wszyscy...
To w przypadku zapisu zmiennych Boolean odczyt z pliku text jest niemożliwy w prosty sposób. Lepiej zapisuj jako 0 lub 1 i czytaj jako liczby. A co mają bazy do tego?
Ten link z 2 postu zawierał kod pascal`owy ze wstawkami ASM. Zapis: mov dx,Portadr mov al,Bajt out dx,al Odczyt: mov dx,Portadr in al,dx mov bajt,al pozdr,
pascal odczyt pliku listwa zapis odczyt zapis odczyt eeprom
tłumić dźwięk wymiana toner samsung zaprojektować system mikroprocesorowy
kuchenka indukcyjna pilot zgemma
Sterowniki do modemu Conexant RS56/SP-PCI R6793-17 0125 Gorąca rurka ssąca przy agregacie lodówki - przyczyny