Wybacz, ale to co napisałeś, to kompletna bzdura :/ Zastanów się proszę, ile to zajmie pamięci : [syntax=delphi]TTabString= array [1..999999] of string;[/syntax]I w ogóle jaki ma to sens. Twój program powinien się zawierać w kilku prostych krokach: 1. Odczyt nazwy pliku z klawiatury. 2. Otwarcie pliku. 3. Odczyt linii tekstu z pliku. 4. Wyświetlenie...
(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...
Tak na początek to widzę w tym kodzie możliwość stworzenia dwóch procedur: - odczyt z pliku - zapis do pliku
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...
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;...
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?...
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ę...
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...
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&...
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
Jak mam zmienić kod aby mógł przewijać strzałką do dołu zamiast Enterem tekst i żebym mógł również przewijać tekst do góry. Oto kod: program pliki_tekstowe; uses crt; var nazwa: string; i: byte; procedure pisz(nazwa: string); var plik: text; linia: string[77]; i: byte; begin assign(plik,nazwa); reset(plik);...
Treść polecenia: Napisz program przepisujący liczby podzielne przez 3 z jednego pliku do drugiego. Program powinień przyjmować dwa argumeny: nazwę pliku wejściowego i nazwę pliku wyjściowego. Przykładowy plik dane.txt 345 0 123 59 -24 34 3 17 Wywołanie programu: program dane.txt wynik.txt Program powinień utworzyć następujący plik wynik.txt...
witam, czy mógłby mi ktoś pomóc, mam problem z procedurą wczytania macierzy z pliku... a w pliku wygląda to tak: http://f4.sfd.pl/sb.asp?w=550&p=9/images... Procedure Wczytaj(Plik: string; var MacA, MacB: TMAcierz); var f: Text; Wiersze, Kolumny: Integer; begin Assign(f, Plik); Reset(f); for...
Witam, mam do napisania program który odczyta z pliku dane.txt 20 liczb rzeczywistych, obliczający iloczyn tych liczb i zapisujący go w pliku wynik.txt Proszę o pomoc.
Witam, Muszę napisać program w pascalu który wczyta słowo i obliczy mi ile razy pojawiło się ono w tekście. Próbowałem już wszystkiego, ale nie mam głowy :( Przerabiałem ten program: [syntax=pascal]program project1; const tabulacja=9; var plik:text; n:integer; nazwa:string[12]; procedure slowa(nazwa:string; var liczba:integer); var znak:char; noweslowo:boolean;...
Witam, muszę wczytać dwa wielomiany do programu (wykonującego dodawanie,odejmowanie i mnożenie na nich) z pliku tekstowego ,a nie mam pojęcia jak to zrobić. Mogłby mi ktoś pomóc? Da się zrobić to tak żeby w pliku tekstowym były zapisane?
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.
Pierwszy plik: ,'d:\plik.txt'); drugi plik: 'd:\plik1.txt'); uses crt; var odczyt1,odczyt:text; ch,ch1:char; begin clrscr; assign(odczyt,'d:\plik.txt'); reset(odczyt); assign(odczyt1,'d:\plik1.txt'); reset(odczyt1); while not eof(odczyt) do begin while not eof(odczyt1) do begin read(odczyt,ch); ch:=upcase(ch); read(odczyt1,ch1);ch1:=upcase(ch1); if(ch<>ch1)...
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...
Proszę się pochwalić tym, co do tej pory kolega stworzył.
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...
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.
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...
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.
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....
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...
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...
W takim razie jaka funkcja zwraca wielkość pliku? W sumie tu chodzi o ilość rekordów zapisanych w pliku.
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 :...
Dodaj jeszcze zapis/odczyt wyników z/do pliku, wtedy masz większą funkcjonalność.
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)...
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...
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...
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;}...
A generlanie co to za tryb 50 wierszowy? Pomyliłeś wiersze z kolumnami. To od razu kilka porawek: Program pacm; uses crt; var plansza:text; linia:string; tab:array[1..80,1..50] of char; i,d,x,y,nextx,nexty:integer; key,pac,nic:char; begin clrscr; assign(plansza,'plansza1.txt'); reset(plansza); for i:=1...
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...
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...
ale char to przeciez pojedynczy znak wiec program odczytajeden znak z calego tekstu... Pierwszy odczyt odczyta pierwszy znak, kolejny drugi, następny odczyt trzeci itd. aż do końca pliku Czy ktos probowal prosic o utworzenie osobnego dzialu o programowaniu (oddzielic od mikrokontrolerow by byly same C pascal,java, html itp.?? Moim zdaniem to spowoduje...
Dzień dobry po dłuższej przerwie! Opublikowałem kolejną wersję AVRPascala (3.3). Dostępna jest na mojej stronie internetowej (http://akarwowski.pl/index.php?page=ele... Nowa wersja UnoLib (1.1, szczegóły na stronie https://sourceforge.net/projects/unolib/... funkcje: - dodano opcję "Add conditional directive for current...
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?
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)...
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
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);...
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...
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...
Jeszcze mam uwagi. Zamiast wczytywać bajt po bajcie stosuj zespoloną instrukcję odczytu z pliku np: ... ... ... blockread(f,naglowek,sizeof(nagl... blockread(f,paleta,sizeof(paleta... blockread(f,obraz,sizeof(obraz&#... //to wyciąć - za duży blok danych (320x200) ... ... ... Z powodu ograniczonej...
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...
Co nieco sobie przypomniałem odnośnie otwierania plików w Pascalu wydaje mi się iż nie ma takiej możliwości, aby zmienić pierwszą linijkę... Rewrite usuwa całą zawartość pliku jeżeli plik ten istnieje, Reset otwiera tylko do odczytu, Append - jak sam kolega wspomniał, umożliwia dopisywanie na końcu pliku... Jedyne co można by tu zaradzić, jeśli kolega...
Cześć !!! Rzeczona pamięć 4MB - 32 Mbit. http://obrazki.elektroda.net/36_11900986... Do adresacji potrzebujesz 20 pin i 7 pinów sterujących + 16 bitów danych :) w sumie 43 nogi :) Ja bym zastosował np. 6 PCF 8574 na I2C i pozostałe piny LPT do sterowania:) i jakiś prościutki programik pod Turbo Pascalem. Coś w stylu 1. Otwórz plik binarny :)...
Oczywiscie nie ma zadnego uzasadnienia ;) Poprostu w delphi poruszam sie jeszcze nie zrecznie. Podgladalem kilka przykladow z ksiazki i z internetu i wlasnie tak to bylo robione wiec uznalem ze jest to dobra metoda. W Pascalu przyznaje bylo prosciej pod DOS-em ;) Jesli Ci sie chce to prosze podaj swoj sposob na to. Chetnie poznam inne spojrzenie na...
Na zamianie typu char na byte i odwrotnie. Description Chr returns the character with the ordinal value (ASCII value) of the byte-type expression, X. Tak samo, jak zapisujesz, tylko odwrotnie. Zamiast otwierać plik do zpaisu - otwierasz do odczytu. Zamiast w pętli zapisywać kolejne znaki słowa źródłowego - czytasz w pęli z pliku. Zamiast dodawać (szyfn...
Musiałbyś podać więcej szczegółów dotyczących tego gdzie jest ten pixel (wybierany myszą na ekranie? czy może wczytywany z jakiegoś pliku?). Co do samej zabawy klikania myszą to najprościej winapi. Przykładowo dla składni Pascala: [syntax=pascal] SetCursorPos(xxA, yyA); sleep(10); mouse_event($2,0,0,0,0); //wcisniecie lewego klawisza myszy sleep(10);...
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...
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....
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 -...
pascal pliku pascal zapis odczyt odczyt rs232 pliku
quiescent current generic process podwyższenie napięcia stabilizatorze
hisense soundbar hisense soundbar
Tuner Sansui T- nie odbiera stacji radiowych Brak wolnego nadmuchu w Oplu Meriva 2005 - przyczyny i diagnostyka