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);...
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&...
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;...
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ć.
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....
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...
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...
Tak na początek to widzę w tym kodzie możliwość stworzenia dwóch procedur: - odczyt z pliku - zapis do pliku
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'...
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?...
Niepotrzebnie otwierasz i czytasz plik w osobnych procedurach. Zrób jedną procedurę (albo lepiej funkcję) do odczytu nazwy pliku z klawiatury. I przekaż te nazwę do kolejnej procedury, która plik otworzy i wyświetli.
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 :...
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;}...
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...
Zagmatwany kod, no ale cóż.. Lepiej by było przechowywać w globalnej zmiennej nazwę pliku i w razie dostępu do pliku otwierać go po tej nazwie. W funkcji zapisz() masz tylko rewrite() - otwarcie pliku do zapisu oraz close() - zamknięcie pliku... Kompilator nie jest inteligentny, trzeba mu wskazać jaki plik ma otworzyć - do tego służy Assign(plik, nazwa_pliku)....
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?
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...
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...
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...
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.
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...
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);...
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...
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...
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...
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 -...
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...
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...
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...
funkcje eof eoln seekeoln Ale prezciez to jest bez sensu! Oczywiście należy sprawdzać koniec pliku i tu się nie obejdzie bez funkcji eof, ale zupełnie nie widze sensu stosowania pozostałych (no chyba tylko w formie balastu i komplikacji). Zamiast readln należy użyć read, bo przeciez potrzebny jest pojedyńczy znak a nie łańcuch. Napisałem prog co sortuje...
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...
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...
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...
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....
BoskiDialer: Na szczęście nie masz racji,nieuważnie przeczytałeś kod. Piszesz: zastosowanie while w while obie z warunkiem 'not eof' to katastrofajny sposób.. Poniższy warunek skutecznie zapobiega zapętleniu się programu: if(ch<>ch1) then begin writeln('pliki sa rozne');readkey;close(odczyt);close(odcz... Nawet gdy oba będą typu Y;Y+X,to...
Kto mi powie jak odczytać dane z pliku(txt) dla danych parametrów (czyli np. n=, a=, b= itp.) dla takiego programu: program aproksymacja; uses crt; type tablica=array ); writeln('podaj y
Każde pytanie to: 1) melodia (najprościej: ilość nut + lista par nuta, czas trwania) 2) poprawna odpowiedź (tekst) 3) lista niepoprawnych odpowiedzi Można stworzyć typ rekordowy o w/w strukturze i wczytywać dane z pliku. Oczywiście należy też przygotować plik z danymi - do tego osobny program :) Można też oprzeć się na plikach tekstowych, wtedy prościej...
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.
assign(plik,'d:\dane.txt'); rewrite(plik); read(plik); write(d,' '); Sojarzenie pliku z dysku ze zmienna plik, otwoezenie do zapisu, czytanie w tym miejscu jest nieprawidlowe - plik otworozyn do zapisu, a wrtie przypuszczam, ze chodzi Ci o zapis do pliku miejsca wolnego, wiec powinno byc tak write(plik,' '). To tak na pierwszy rzut oka. Jesli chcesz...
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....
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.
Dodaj jeszcze zapis/odczyt wyników z/do pliku, wtedy masz większą funkcjonalność.
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...
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...
Będę musiał o tym pomyśleć jak to wykonać, bo obecnie wartości liczbowe mam w postaci pliku .txt. Pozycji jest niestety kilkanaście tysięcy. I tu trzeba każdą pozycję z każdą porównać i określić, czy te 5 liczb jest takich samych czy nie. Do tej pory robiłem tak, że otwierałem plik do odczytu, brałem pierwszą czy też dowolną pozycję i odczytywałem poszczególne...
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ę...
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
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];...
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...
Mam tutaj już zrobione odczytywanie z pliku.Tylko mi średnio działa.Nie potrafie wypełnić tego kodu.Mógłby mi ktoś wogóle sprawdzić ten program i wskazać gdzie są błędy? program jest tu wsadzony: http://pastebin.com/D5QBwkKE
"string" czyli pascal, i wiesz, to chyba wszystko co da się odgadąć. (no mnie nigdy wyrazy z pliku nie robiły hyc na ekran bez specjalnych zabiegów)
Nie umiem c+ ale miałem kontakt z Pascal-em. Ale doczytałem, że Pascal jest za stary i mogą wyjść błędy. A może jest w sieci jakiś gotowiec?
Przepraszam że ich nie dołączyłem. :P Znajdują się tam obrazki w ascii. Tak powinno wszystko wyglądać: http://obrazki.elektroda.net/82_12536246... A pasek którego nie widziałeś, pojawia się po wpisaniu poprawnego loginu i hasła. (taki loading xD) http://obrazki.elektroda.net/61_12536248... EDIT: i jescze jedna bardzo dziwna rzecz w...
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...
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 :)...
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';...
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);
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...
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...
To ja dodam coś od siebie.. wszystkie zadania które się bardzo długo wykonują muszą sie wykonywać w pętli co jest chyba dla każdego logiczne, nikt niebendzie pisał aplikacji która zajmuje 30MB poto, aby wogóle niestosować intrukcji skoku czy tym podobnych. Na końcu głównej pętli wystarczy proste dzielenie i mnożenie aby sie dowiedzieć ile procent pętli...
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...
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
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...
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...
Hmm.. teraz to już nie wiem, możliwe, że palnąłem głupotę. Sprawdź kilka kolejnych odczytów portu pod kątem długości zwróconego stringa. Możesz to zrobić np tak: [syntax=pascal] unit ODCZYTRS; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPort; type TForm1 = class(TForm) Memo1: TMemo; Button1:...
Mam program gry w statki napisany w Pascalu i chciałbym zapisać stan gry w dowolnym momencie gry do pliku, a po wznowieniu jej wczytać stan gry z pliku i dlej ją kontynuować. Proszę o pomoc bo nic nie mogę wymyślić. To jest część kodu oraz procedury zapisz i odczyt ale one nie działają. program STATKI; uses crt,dos; const tlo=black; {tlo - tlo...
Musiałbyś przeglądać, przy czytaniu, cały tekst linia po linii, i sprawdzać czy odczytany tekst zawiera oczekiwany ciąg znaków. Trochę się trzeba nad tym "namordować", ale nie powinno być problemów. 1. Plik jako TEXT 2. Czytasz linię tekstu do zmiennej. 3. Sprawdzasz czy występuje interesujący Cię ciąg znaków np. za pomocą POS . 4. Jeżeli tak, to wyodrębniasz...
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...
Bardzo dziękuję za pomoc, wreszcie ten program zaczął mi działać tak cześciowo, plik oceny się wczytuje, potem następuje zapisa do pliku wyniki.dan ale nie mogę później odczytać tego pliku:(
Najprościej będzie wywołać systemowe polecenie "ping -n 1 host", przekierować je do pliku i stamtąd odczytać wartość pinga. [syntax=pascal]{$M 16384,0,0} exec(GetEnv('COMSPEC'), '/C ping -n 1 host > ' + plik);[/syntax] Później wypada usunąć ten plik. Bez magii (TP kompiluje do formatu DOS) chyba nie da rady użyć WinAPI, które jest wymagane do "pingowania"....
Witam. Pracuje nad programem do plików wav, wcześniej zrobiłem na fstreamie ale strasznie wolno czytało mi dane( ale wszystko działało ). Zmieniłem koncepcję i zacząłem używać czytania pliku z winapi. Plik czyta sie błyskawicznie i cały plik mam w Buforze w postaci char*. I teraz pojawia się problem o tyle o ile potrafię zczytać pierwsze bajty które...
[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...
Geneza projektu Mając na co dzień do czynienia z zagadnieniami robotyki i automatyki oraz budowy własnych systemów sterowania, zacząłem zastanawiać się nad stworzeniem własnego eksperymentalnego manipulatora. Tak narodził się ten projekt, którego celem było i nadal jest rozwijanie oprogramowania sterującego robotem oraz zbieranie doświadczenia pozwalającego...
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...
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);...
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ą...
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.
Jakiej pomocy oczekujesz? Tu nikt za Ciebie programu nie napisze, choć zawsze możesz liczyć na pomoc w rozwiązaniu konkretnego problemu. Na przykład: - jak stworzyć monit o podanie nazwy pliku - jak otworzyć i móc odczytać dane z pliku tekstowego - jakiej metody użyć, aby program wyszukiwał tekst niezależnie od wielkości liter. Potrzebna jest minimalna...
Istotną sprawą jest w jakim standarcie zapisany jest plik. Zapoznaj się z: http://pl.wikipedia.org/wiki/Kodowanie_p... Napisz sobie w notatniku tekst zawierający tylko polskie znaki ąĄćĆłŁóÓżŻźŹśŚęĘśŚ jest ich 18 i zapisz go na dysku. Z pliku odczytuj znak po znaku. Podany niżej kod zamiania napotkany znak np ą na a. Jest napisany do zamiany...
Bardzo chętnie, ale coś mi nie gra... 1) Wpierw piszesz, że napisałeś grę z rankingiem... 2) ...a potem pytasz, czy zmiana tego rankingu to coś zbyt skomplikowanego dla Pascala ??? To się nie klei... 3) Piszesz o odczytywaniu danych z pliku... 4) ...a potem pytasz o obróbkę ich w pamięci w czasie trwania algorytmu gry. ??? To się ponownie nie klei....
a może program w Turbo Pascalu? musi być BAT? Dodano po 10 1. otwórz oryginał do odczytu, 2. utwórz kopię do zapisu 3. przepisz oryginał do kopii 4. dopisz tekst do kopii 5. skasuj oryginał 6. zamień nazwę kopi na nazwę oryginału. wszystkich poleceń nie pamiętam więc musisz poszukać rename "stara nazwa" "nowa nazwa" - to zdaje się zmień nazwę, w cudzysłowach...
Wybieram plik i ścieżkę dostępu poprzez FileOpenDialog. To działa, wyświetlam ją w Label, ale tego stringa nie wiem jak przekazać do ShellExecute aby uruchomić wybrany program (lub otworzyc skojarzony plik). Gdy podam w ShellExecute ścieżkę i plik jawnie to OK, lecz jak wstawię w to miejsce zmienną to nic, chociaż w zmiennej jest cała ścieżka wraz z...
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...
close stosuje się gdy wpiszemy jakaś wartość do pliku, gdy tylko go odczytujemy nie ma to sensu - na chłopski rozum. Jest to niestety nieprawda. Jak wchodzisz do domu, ale nic do/z niego nie przynosisz/wynosisz to zostawiasz otwarte drzwi ? Do pliku otwartego, nawet do trybu readonly nic innego oprócz Twojego programu nie będzie miało dostępu. Żeby...
Witam Potrzebuję pilnej pomocy , ponieważ mam zadanie na jutro , napisałem program ale nie mogę go skompilować ponieważ wywala 2 błędy których nie mogę rozwiązać dlatego proszę o pilną pomoc :) z góry dzięki. [syntax=pascal]program gabinet_okulistyczny; uses crt; type dane_pacjenta=Record Imie:String[15]; Nazwisko:String[25]; Adres:String[30]; wiek:integer;...
Póki co jest następujący monit w tym drugim pliku (odczytującym moduł): Error 122: Inbalid variable reference
Czesc :D mam napisany program w pascalu który odczytuje,zapamiętuje i zapisuje rekordy w bazie danych.Pod spodem wkleję jego cześc(bez zbędnych procedur wyszukiwania) i potrzebuje pomocy w napisaniu procedury która będzie usuwała i edytowała rekordy w bazie(zapisanej w pliku).Znalazłem coś takiego tylko w innym programie który wyszperałem na necie lecz...
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>//...
Na początek podpowiadam algorytm: Algorytmy sortowanie plików sekwencyjnych - łączenie proste (pozostałe algorytmy to jego modyfikacje), składa się z dwóch etapów: Podział: otwieramy plik do odczytu (p1), a dwa do zapisu (p2,p3), zapisujemy pierwszą liczbę (element) a pliku p1 do p2, bierzemy kolejną liczbę, jeśli większa bądź równa zapisujemy do p2,...
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...
Ja programuję w Tubo Pascalu, ale w C++ będzie tak samo. Jeśli chodzi o COM, to nie wiem. Jeśli chodzi o LPT to sprawa jest stosunkowo prosta: Diody podłączasz tak, że minus jest na GND, a plus na piny wyjściowe, jest ich 8, nie pamiętam pinouta LPT, ale znalezienie go to żaden problem. To, jak zaimplementować w C++, znajdziesz w każdym lepszym "poradniku"...
Witam potrzebuję napisać prostą bazę danych np. Każdy Rekord miał by tytuł, gatunek,opis- tyle że dobrze by było gdy by nie był ograniczony, oraz mogą wystąpić linki, 1 lub więcej. Jeśli to by były pola na zasadzie że powiedzmy, tytuł ma 255 znaków, opis powiedzmy 500 znaków, nie było by problemu, tyle że nie chce właśnie ograniczać tego, czyli opis...
Witam Chciałbym napisać program który odczytuje dane z portu równoległoego oraz następnie zapisuje te dane np. do pliku tekstowego. Jestem początkującym zapalniecem:) znam podstawy języka pascal oraz c++. Może ktoś mi pomóc?? Jak się za to zabrać, w jakim programie pisać?? lub napisać przykład?? Pozdrawiam dahra Kiedyś jeszcze pod DOSem skutecznie...
pascal pliku pascal zapis odczyt odczyt rs232 pliku
dioda selenowa wytrzyma kondensator pendrive odzyskanie partycji
renault mascott renault mascott
Asus H61M-K: Problem z dwoma kośćmi RAM 8GB 1600MHz Grzanie wody w bojlerze prądem stałym z paneli PV