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&...
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...
Proszę się pochwalić tym, co do tej pory kolega stworzył.
Proponuje poczytać literaturę np to: http://www.zdz.konin.pl/pomocdydaktyczna... i spróbować zacząć pisać samemu. Podstawy musisz znać. Nikt za ciebie tego nie napisze, możemy ewentualnie znaleźć błędy, naprowadzić.
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'...
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...
Jestem równie leniwy, ty nie szukałeś, ja nie doczytałem ... Zajrzyj np. tam: http://www.pascal.eu.org/lekcja4.htm#1ba...
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...
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...
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.
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....
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 :|.
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...
Tak na początek to widzę w tym kodzie możliwość stworzenia dwóch procedur: - odczyt z pliku - zapis do pliku
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...
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 :...
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.
W takim razie jaka funkcja zwraca wielkość pliku? W sumie tu chodzi o ilość rekordów zapisanych w pliku.
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...
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...
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...
...i jak dobrze rozumiem, ECU z błędnym kodem mogę sobie wyrzucić do kosza na śmieci...? Nie, kod da się odczytać.
Kompilator z Borland Pascal 7.0, system operacyjny Windows 2000/XP. Potrzebuje caly program, nie znam sie na tym jezyku za bardzo...
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 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;}...
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...
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...
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
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,
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?
Po pierwsze, musisz się zdecydować na jedną z metod postępowania z baza danych. Albo pracujesz, na zdefiniowanych tablica, które czytasz i zapisujesz do plików przy starcie i końcu programu, albo operujesz bezpośrednio na plikach. 1 Jak wczytać dane z pliku do tablicy po każdym uruchomieniu programu? Jeżeli zdecydujesz się na tablicowanie danych przy...
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;...
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);...
"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...
Zrobiłem kolejne programiki testujące (już nawet zaczołem to pisać w C ale te same wyniki). Więc tak: uK napewno dobrze nadaje bo jak w pascalu odczytuje bufor za pierwszym razem to jest tam dana nadawana z mikrokontrolera. Ale flaga odbioru wcale nie była ustawiona. Zapis do portu jakiejś wartości powoduje wyzerowanie LSR. Po odczekaniu chwili odczytuje...
MBR to dopiero początek. Jeśli chcesz robić to sam - i tak warto się wzorować na działających gotowcach. Zwłaszcza, jeśli gotowce mają udostępnione pliki źródłowe. Asembler przyda Ci się (jeśli w ogóle) - tylko w sporadycznych przypadkach - np. do zrobienia obsługi odczytu/zapisu sektorów. Resztę można zrobić w C - zresztą gotowe pliki źródłowe obsługujące...
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?...
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...
Najpierw należy wziąść jakiś stary magnetofon (nawet szpulowy). Następnie robimy tak: sprawdzamy czy ma on: -głowicę kasującą (nie może być magnetyczna, musi być cewka) -głowicę zapisującą -głowicę czytającą -sprawną machanikę Teraz to twoja inwencja twórcza. Musisz znać się na działaniu portu LPT i znać jakiś język programowania np. Turbo Pascal. To...
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...
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...
Nie chce Ciebie zniechecac ale zasugerowalbym napisanie programu od nowa. Jesli nie wiesz jak korzystac z operaci odczytu/zapisu pliku - stworz program, ktory zapisuje jedna wartosc do pliku, a nastepnie ja czyta. Nadawaj dluzsze nazwy zmiennych - wtedy oprocz tego, ze Tobie bedzie sie latwiej pracowalo to komus to bedzie sie latwiej cyztalo. Korzystaj...
1. Zmieniasz tę deklarację z int. na char. 2. Zmieniasz procedury zapisu i odczytu: PROCEDURE na_stos (VAR wstosu: wsk; d: Integer); na: PROCEDURE na_stos (VAR wstosu: wsk; d: char); 3. Zapisujesz na stos: for x:=1 to length(slowo) do na_stos(wskaznik,slowo[x]... 4. Odczyt ze stosu: repeat ze_stosu(wskaznik,literka);...
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...
Dla porządku chcę napisać, że faktycznie przestawienie trybu odczytu na plik binarny rozwiązało prawie do końca problem. Pojawił się po drodze jeszcze jeden problemik dot. różnic między tym w jaki sposób zapisywał pliki rekordów Turbo Pascal, a czynią to Free Pascal i gcc. Jedna ze zmiennych w rekordzie to integer. Turbo Pascal zapisywał go na 2B -...
i:=i+... operuje (bez optymalizacji) na dwóch komorkach pamięci (operacje: odczyt, odczyt, zapis), a odwoływanie się do pamieci jest bardzo wolne inc(i) operuje na jednej komórce pamięci - potrzebne tylko operacja odczytu i zapisu. W omawianym programie nie ma to najmniejszego znaczenia, bo kilkadziesiąt tysięcy razy wolniejsze jest odczytywanie pliku....
Tak jak pisałem Na oko kod działa poprawnie i plik o podanej nazwie powstaje... i nie zauważyłem jak zadeklarowałeś zmienną plik. Przy zapisie do pliku binarnego (deklaracja: var plik: file of string) dane możesz zapisywać tylko przy pomocy write(plik, dane) i odczytywać read(plik, dane) - zob. uwagi napisane przez ed-ek . Natomiast zapisując w pliku...
Posłużysz się zmienną Text oraz funkcjami Assign , Reset , Rewrite . Jeśli korzystasz z kompilatora Borlanda, to stosowne przykłady znajdziesz po napisaniu któregoś z tych słów i naciśnięciu F1.
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ę...
Witam Mam za zadanie napisać program w Turbo Pascalu, który będzie odczytywał meta dane pliku .jpg , czyli date, marke aparatu, model, pszysłone, itp. Nie wiem jak ten problem "ruszyć". Podejrzewam tu skorzystanie z odwołań do indeksów tych danych. Używając innego programu na podglądzie hex zdjęcia widać niektóre zapisane zdjęcia.
Pewnie :) Musisz tylko sam sobie wymyslic jakis format tego pliku, tak aby latwo bylo Ci potem z niego te dane odczytac przy tworzeniu wykresu.. Teoretycznie Twoj program costam liczy dla jakiejs wartosci.. czyli f(x) = jakies_obliczenia(x) czyli (domyslam sie) bedziesz posiadal dwie wartosci.. x oraz wynik.. mozna to zrobic np. tak: definiujesz typ...
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
Ja kiedyś tak robiłem jeszcze na starym 8051. Zrobiłem sobie interfejsik na 8255 podpiąłem do magistrali PC w PASCALU napisałem program do ładowania i weryfikacji. Teraz napewno zrobił bym to całkowici inaczej, na procku i przez USARTA a nie po magistrali (ISA).
Wartość pojedynczego bitu można odczytać stosując tzw. maskowanie. W przypadku pojedynczego bajtu należy przemnożyć logicznie osiem razy, dla wyciągnięcia każdego bitu. Jeśli wynikiem mnożenia będzie zero - oznacza, że na danym bicie jest zero. Jeśli nie zero - to znaczy, że na tej pozycji jest jedynka. np. liczba 131d = 1000 0011b i mnożymy kolejno:...
Znajdź funkcję odczytującą czas i przypisz aktualny czas do zmiennej. Jako wartość funkcji assign zamiast 'plik.txt' podaj nazwę zmiennej... ========================================... EDIT: gettime(h, m, s, s100);
.identyfikator2); read(oceny,ucz Proszę pamiętać o używaniu znaczników . Opcja Listing kodu . Ostatni raz zwracam uwagę, kolejny post wyląduje w koszu. - arnoldziq
Napisz fragment kodu dla przykładu. coś ze starych zasobów [syntax=pascal]Program BazaTeleadresowa; Uses Crt; type TData = record {definicja typu danych strukturalnego} Imie: String[10]; {dane - stringi o okreslonej dlugosci} Nazwisko: String[15]; Tel: String[12]; Ulica: String[20]; Mieszkanie: String[5]; Miasto: String[15]; Kod: String[5]; end; const...
Dodaj jeszcze zapis/odczyt wyników z/do pliku, wtedy masz większą funkcjonalność.
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....
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...
Witam. Moim zadaniem było napisanie programu w Pascalu, który zapisuje jakieś dane do dwóch osobnych plików. Wszystko ładnie napisałem, tylko kod nie chce mi przejść przez kompilatora. Spójrzcie na kod i powiedzcie, co jest nie tak? Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Generalnie we wszystkich językach musisz grzecznie poinformować kompilator gdzie ma umieścić zmienną do której chcesz zagadać bo jak tego nie zrobisz to umieści ją tam, gdzie mu będzie wygodnie. Sposób lokalizowania zmiennej zależy od typu kompilatora w którym piszesz. Najczęściej. DATA - pamięc wewnętrzna; XDATA - pamięc zewnętrzna; więc swoją zmienną...
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...
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ę...
Chetnie pomoge, tylko musisz napisac jakis przeklad, bo Twoj opis jest zbyt zawily i nie bardzo go romumiem. Ogolna zasada jest taka (dodam ze dawno nie pisalem w pascalu, pisze w Delphi), wczytujesz jak juz zauwazyles wszystko w tablice, pierwszy plik w dwuwymiarowa (najlepiej dynamiczna), odczyt drugiej mozesz zrobic w dwojaki sposob: 1. Albo wczytac...
O moj Boże... ludzie o czym wy gadacie.... o ile dobrze pamietam to nie ma nic prostszego kiedyś znaczy sie dawno dawno temu pisałem programiki opd dosem.... były to zwykłe exe-ki tylko 16bitowe.Doc zego zmierzam.... by zapisać dane do pliku exe wystarczyło go otworzyć(robiłem to w PASCALU!!!) przesunąć wskaźnik na koniec i zapisać swoje maksymalnie...
teraz problem uległ zmianie rzekomo pamięć odczytuje, ale zamiast określonej wpisanej do niej pamięci odczytuje zawsze 255 (0xFF) jakiś pomysł? (pierwsze co się nasuwa to błędny zapis do pamięci, ale czytałem juz gdzieś że ludzie mieli takie problemy z odczytem 0xFF) Widzę sporo błędów, np pierwsza funkcja z brzegu: bool eepromReady() {...
Dzięki za odzew ! Oto fragment programu odpowiadający za odczyt ADC : port[$379]:=0; {inicjalizacja ADC0831 } port[$378]:=1; {cs 1 - pin 2 bit D0 =1 clk na 0 bit D1 pin 3} czekaj; port[$378]:=0; {cs 0 clk 0} czekaj; {port lpt-------------------------------------... port[$378]:=0; {cs 0 clk 0} czekaj; port[$378]:=2; {cs 0 clk 1} czekaj; port[$378]:=0;...
No, to robisz jeszcze drugie przypisanie (assign) do osobnej zmiennej textowej, otwierasz plik do zapisu (rewrite) i zapisujesz to, co trzeba. Jedna uwaga - jako, ze w pliku są liczby to odczytuj do zmiennej liczbowej, a nie tekstowej.
Problem w tym że zanim sprawdzisz wartość nowo wpisanej liczby to zwiększasz wskaźnik i, co powoduje odczytywanie kolejnej komórki a nie tej nowo wpisanej. W warunku wyjścia możesz zmienić a[i] na a[i-1].
Mnie już też udało się rozwiązać ten problem. Znalazłem gdzieś w necie info żeby dopisać do pliku CPort.hpp tuż pod: #include <Registry.hpp>// Pascal unit #include <IniFiles.hpp>// Pascal unit #include <SysUtils.hpp>// Pascal unit #include <Classes.hpp>// Pascal unit #include <Messages.hpp>// Pascal unit #include <Windows.hpp>//...
Witam, Mam taki oto problem: czy mógłby mi ktoś napisać lub naprowadzić na trop w jaki sposób mogę przeszukiwać tablice w Turbo Pascalu? Poniżej kod programu zaczerpnięty z kursu, ponieważ mój kompilator trochę szwankuje. Jeszcze jedno pytanie: jak umożliwić przeskakiwanie w przód i tył poprzez strzałki lub odpowiednie klawisze. Uses CRT; Var Imie,nazwisko,telefon:array[1..3...
mam jednak prośbę, otóż zalatwilem sobie starego laptopa 386SX 16MHz i postanowilem wrocic jednak do zabawy z dosem, nawet znalazlem i uruchomilem pascala, moja prosba sprowadza sie do podania przykladowej procedury zapisu, i odczytu wartosci z portow com i lpt, chodzi mi o sterowanie wyprowadzeniami konkretnych pinow, wiecie logiczna 1 lub 0, do sterowania...
Zdrowo namieszałeś. Podaję prog. On zapisuje na dysk C: do głównego katalogu plik baza.txt, na końcu go odczytuje. program sklepkomp; uses crt; const v=100; var z,i:integer; type tab= array[1..v]of record nazwa :string[10]; cena:integer; ilosc:byte; kategoria:string[10]; end; var stab:tab; plik: file...
Cześć Quine15 Sądząc po odpowiedziach niczego się nie dowiesz tu w kwesti programowania komunikacji w Delphi. Proponuje zajrzeć do książki "RS 232C - praktyczne programowanie. Od Pascala i C++ do Delphi i Buildera" Daniluka. O ile dobrze pmiętam to były trzy wydania tych pozycji. Bardzo przystępnie napisane książki. Tłumaczenie kodu z C++ na Delphi...
No i o to tu chodzi właśnie. Poprzez metodę możesz udostępnić zmienną tylko do odczytu lub tylko do zapisu. Nie wiem dokładnie jak to w C++ wygląda, ale np. w Pascalu realizuje się to poprzez właściwości (properties), które zachowują się w kodzie identycznie jak zmienne, a pod ich przykrywką mogą być wywoływane funkcje ustawiające lub zwracające wartość...
Mam problem z ta pamiecia program narazie napisalem w Delphi(pascal) ale niedziala nawet poprawnie adresowanie ponizej pokolei czynnosci jakie robie. Pierw wysylam Start potem adres układu w tym przypadku 1010000R (R jezeli 0 to zapis 1 to odczyt). gdy wysle 10100000 to dostaje potwierdzenie od układu ale jezeli wysle 10100001 to potwierdzenie nie dostaje,...
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...
kolega olekewaagata na samym poczatku napisal jak to zrobic. musisz miec tabele, w ktorej bedziesz zapisywal pary liczb, teraz jesli podczas losowania taka para juz jest losujemy jeszcze raz, jak nie ma dodajemy pare pseudokod losuj(a) <--+ losuj(b) | jesli a>b to zamien a i b miejscami | sprawdz_tablice(a,b) | jesli jest...
http://obrazki.elektroda.pl/3546939500_1... Konstrukcja będąca tematem wątku powstała jako projekt na zaliczenie przedmiotu na uczelni, którego celem było napisanie sterownika dla systemu Linux do jakiegoś urządzenia. Ponieważ miałem swobodę wyboru tematu sterownika, postanowiłem stworzyć jakieś urządzenie w postaci karty ISA. Złącze...
Witajcie, miałem do napisania program, który miał odczytać liczby z pliku dane.dat, następnie wybrać z nich tylko liczby pierwsze i zapisać wynik do pliku wynik1.txt, a na sam koniec posortować liczby pierwsze od największej do najmniejszej a wynik zapisać do pliku wynik2.txt. Kodzik mam, i działa on do momentu wybierania liczb pierwszych, niestety...
Moim zdaniem nie da się, aby odczytać znak, który nie jest adresowany do okna aplikacji (gdy nie jest aktywne). Oczywiście można zrobić to bezpośrednio poprzez sterownik klawiatury lub WinAPI - np. GetAsyncKeyState, GetKeyState. Ale w Pascalu zapomnij:).
Witam, muszę na informatykę zrobić bezę danych. Mam ją prawie gotową ale nie umiem zrobić procedury wyszukaj Kod programu: [syntax=pascal]program baza; uses crt; type Rklub = record nazwa : string[100]; liga : string[50]; rok : integer; miasto : string[50]; nazwa_stadionu : string[100]; end; var plik_klub : file of Rklub; Klub : RKlub; {nowa baza} procedure...
1. otwierasz plik do odczytu (A) 2. otwierasz plik do zapisu (B) 3. skaczesz na koniec (A) 4. czytasz z (A) do zmiennej znakowej 5. zmieniasz wartość 6. zapisujesz do (B) 7. przesuwasz sie o 2 bajty wcześniej w (A) 8. Jeśli nie osiągnąłeś początku pliku (przesunięcie wskazałoby na pozycję -1), wracasz do punktu 4 9. Zamykasz oba pliki. Funckje to Assign...
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! Robię właśnie sterownik do akwarium. Zatrzymałem się na problemie komunikacji komputera z mikrokontrolerem (programowanie czasów załączania itp.). Program we flashu ma być nienaruszany, a uC ma za zadanie odczytywać dane wysyłane przez komputer i zapisywać je do EEPROMu. Mikrokontroler to ATmega8. Problem jest taki: nie wiem czy podłączyć bezpośrednio...
Popieram kolegę Nemonka, rozszerzeń DAT używałem klepiąc jeszcze w Turbo Pascalu, zapisując tam serie rekordów. Gdyby ktoś nie wiedział, to innych "baz danych" w tym narzędziu nie było. Bez znajomości struktury odczyt tego będzie kryptoanalizą. Jak by tam były dane tekstowe, to by pytający hexedita nie odpalał :)
Ł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 :)
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';...
Pytanie zadane trochę mało precyzyjnie, bo sortujemy pliki czy tablice, jeśli pliki to jak wielkie?co do bąbelków to dobre są, ale w szampanie. Możn wykorzystać jakąś armatę SQL np. Sortowanie w pamięci jest znacznie prostrze, jeśli chodzi o pliki, to nie zawsze cały musi zmieścić się w pamięci, wystarczy może odczytać jedno pole z rekordu (klucz) i...
W załączniku przesyłam bazę danych dla salonu. W programie utworzyłem tablicę rekordów zawierających dane o marce samochodu. Wrzuciłem podstawowe funkcje które napisałeś, oraz możliwość zapisania bazy do pliku jak i odczytu. Nie ma zabezpieczenie przed brakiem pliku, gdy np. wpiszesz błędną ścieżkę i wciśniesz enter (nie chciało mi się szukać nazwy...
do odczytu jeszcze kodu niesprawdzałem ale do zapisu to używałem w pascalu np: port[$3F8]:=2+4+32+128; w delphi wstawka z asemblera i procedurka ZapiszLPT(2+4+32+128,$378); trzeba pamietać że w win XP trzeba narpiew port LPT opdblokować. Rezystor 10kΩ dioda zenera na 5v ale niepodali nic o wattach napięcie chyba najlepiej 6v
[syntax=pascal]program wypozyczalnia; uses crt; type film=record rezyser:string[20]; tytul:string[50]; rok:integer; miejsce:string[50]; aktor:string[50]; numer:integer; wyp:boolean; end; var plik:file of film; fl:film; q,rez,ty,miejsce:string; nr,rok,n:integer; a,b:char; c:array[1..100] of film; {POWITANIE} {procedure wstep; begin clrscr; writeln('WITAMY...
Ma ktoś taki kalkulator??? Normalny umiem zrobić, ale jak już dochodzą takie funkcje i obsługa myszki to padam na kolana. Chciałbym się nauczyć robić taki kalkulator, a w żadnej z książek, które mam nie ma napisane nic o takim kalkulatorze... Proszę o pomoc :cry:. Kalkulator z funkcjami: a)działania na liczbach rzeczywistych - dodawanie (przycisk "+"...
No cóż...na razie struktury dynamiczne są dla mnie za trudne. Starałem się jakoś napisać program na strukturze statycznej i wyszło mi to tak mniej więcej jak poniżej. [syntax=pascal]program wypozyczalnia; uses crt; type auto=record marka:string; model:string; rok:integer; km:integer; wypozyczajacy:string; cj:boolean; end; klient=record id:integer; imie:string;...
Tłumaczenie na życzenie ... :) z "Ce" na Polski /* Łatwy-Zrzucacz wersja 2.0 dla ATMEL 89C51/52/55 Prawa autorskie 1998 W.Sirichote Kod dla płytki zapisywacza został napisany w C przez W.Sirichote Kod dla komputera PC do zrzucania pliku HEX został napisany w PASCAL-u przez Zonga */ #zawrzyj c:\mc51\8051io.h #zawrzyj c:\mc51\8051reg.h #zdefiniuj...
blockread wczytuje bajty i ładuje do pamięci jako bajty. Jeśli zapiszesz liczby czy stringi do pliku korzystając z blockwrite to tak samo można je odczytać. Jeśli plik ma zawierać liczby zapisany w postaci łańcuchów znaków to trzeba wczytać zawartość pliku jako łańcuchy znaków, następnie pociąć je na liczby i przetworzyć na zmienne liczbowe.
Podesłałbym Ci mój projekt, nad którym pracują od paru miesięcy: modelowanie obiektów w 3d na podstawie zdjęć przedmiotu w rzeczywistości. Dla użytkowników Delphi, jest spore ułatwienie. Mamy dostępny komponent videograb. Wyglądem przypomina TImage, ale ma taki patent, że wyświetla obraz z kamery internetowej i można go zapisać do schowka, do obiektu...
https://obrazki.elektroda.pl/9103410800_... Witam. Przedstawiam wszystkim mój projekt. Projekt dotyczy sterowania domem choć to za dużo powiedziane. System składa się ze sterownika PLC Fatek z modułem komunikacji dla modbus 485 oraz TCP i układu odczytu temperatury na ATMega 32 (DS18B20). Opis projektu PLC : •PLC steruje światłem...
Witam! Zbudowałem sobie takie urządzonko ( interface ) jak na rysunku : http://obrazki.elektroda.net/44_12794685... Urządzenie ma odczytywać stan urządzeń przez port LPT, pokazywać ich stan i rejestrować parametry pracy ( oczywiście program ma to robić). Na jednym z wejść jest rejestrowana wartość analogowa i ma być przetworzona za pomocą TLC549....
pascal odczyt pliku listwa zapis odczyt zapis odczyt eeprom
karta zabezpieczona zapisem blaupunkt pobór prądu obliczenia przekroju kabla
wyszukiwanie parametryczne brother zacięcie papieru
Odpowiedzialność za skrzynki elektryczne w bloku Kocioł Brötje L-UG 25: Lampka z kluczykiem i brak włączenia