Wszystko jest ok, ale w Turbo Pascalu. Program jeszcze nie jest napisany nawet w połowie, więc dużo mu do celu jakim jest obsługa biblioteki. Przykro mi ale z Free pascalem ci nie pomogę. Za dużo pieniędzy wydałem na TP, żeby z tego rezygnować. I będę bronił Borland/Turbo Pascal-a aż do śmierci :) Tymczasem mi chodzi o kompilator Free Pascala, który...
Witam, wie może ktoś z was czy jest w pascalu jakaś funkcja lub procedura zawarta w standardowych modułach do zmiany znaków z klawiatury na kod ASCII, lub zmiany liczb dziesiętnych na liczby binarne i czy można zdeklarować tablicę którą program by rozpoznawał jako tablicę liczb binarnych ?
Szyfr Cezara. Dokonaj skoku na koniec pliku i po każdym odczycie skacz wstecz (Seek - jeśli dobrze pamiętam). Z dodaniem kodu ASCII chyba nie powinno być problemu? Możesz równocześnie zapisywać wynik do drugiego pliku.
Funkcja ord( z ) zwraca kod ascii od z, a 13 to kod ascii entera - czyli program zaproponowany przez kolegę czeka na enter. Generalnie jeżeli nie jeteśmy pewni co do ilości wprowadzanych znaków, to czytamy je pojedyńczo i czekamy ma znacznik końca wprowadzania czyli enter ( ew. na escape lub inne ) przy czym kolego redie podawanie gotowych rozwiązań...
Czy wie ktoś, jak to zrobić, żeby program napisany w pascalu zapisywał pliki txt w kodowaniu ASCII? Piszę program szyfrujący, który wstawia zamienione litery do pliku tekstowego, a szyfr zawiera polskie znaki, które są w ASCII. Plik jednak zapisany jest (chyba) w ANSI i zamiast polskich znaków są w nim jakieś krzaczki. Co zrobić, aby te znaki były poprawnie...
Poniżaj zamieszczam mój program. Konfigurujesz i po odbiorze chwali się tym co dostał w ASCII więc literki, cyferki i znaki. Program napisany w Delphi więc jak kolega jest zainteresowany to udostępnie kod w Object Pascalu. PS. Na dole masz białe pole - wpisz coś i ENTER, aby wysłać.
Coś tam mi wyszło :P. Jestem zerem z pro także to jest dla mnie coś :P: [syntax=pascal]program gwiazda; uses crt; var a: byte; begin clrscr; for a:=1 to 5 do writeln('*'); readln; end.[/syntax] Pytanie do Was takie: Jak dodać do programu zamykanie (podanym przez nas) klawiszem?? Wiem, że coś z kodami ASCII, ale jak to zadeklarować???
Witam. Jak juz wszyscy sie wtracaja, to ja tez. Napisz procedurke: procedure GetKey; assembler; asm in al.60h mov [Key], al mov ah,0Ch mov al,0 int 21h end; i zadeklaruj zmienna globalna var Key: byte Procedurka wczytuje klawisz z portu klawiatury, nastepnie czysci bufor klawiatury (tu uwaga do Caladan - jak nie wiesz, o czym piszesz, to...
No to na takiej samej zasadzie dzial tylko ten program to na rekordach jest zrobiony zdajsie:) a jak chcesz sie poruszac kursorem to musisz znalesc odpowiedni kod ascii klawisza i jak go wcisniej to przejdzie tam gdzie ma przejsc
Dokladnie, moze to byc dowolny klawisz, wystarczy ze zaraz po pobraniu tego klawisza sprawdzisz jego kod (ASCII) funkcja IF... Enter ma jak dobrze pamietam #13. Pozdrawiam
1) Nie programowałem w Pascalu wieki, ale na pierwszy rzut oka - czy read(liczba); nie zwraca czasem kodu ASCII wpisanego znaku? wówczas w case należałoby liczby ująć w apostrof, '1'. 2) Widzę literówkę przy "procedure". 3) Radzę nauczyć się używać wcięć.
Tak się zastanawiam czy zamiast obróbki bitmapy w programie nielepiej było by wcześniej za pomocą programu graficznego np IrfanView przekształcić obrazek na czarnobiały o danej rozdzielczości a następnie zapisać w formacie RAW czyli bez jakichkolwiek nagłówków w pliku. Wówczas konwersja pliku podczas działania programu była by bardzo uproszczona. Pozostaje...
Robię program, który po wpisaniu danych narysuje prostokąt. Używam znaków ASCII, więc nie dziwić się tymi char(218) dla przykładu. Oto program: [syntax=pascal]program rysowanie; uses crt; var i,sz,dl:integer; BEGIN clrscr; write('Podaj szerokość prostokatu: '); readln(sz); write('Podaj długość prostokątu: '); readln(dl); clrscr; gotoxy(1,1); write(char(218));...
Zmieniłam według opisu na: [syntax=pascal]program miniszyfr; uses crt; const n=20; var dlugosc, s: byte; napis:string[n]; begin clrscr; writeln('wypisz wyraz'); readln(napis); dlugosc:=length(napis); Pos('20',s); write(miejsca spacji,'s'); readln; end.[/syntax] Myślałam też,żeby zrobić to za pomocą funkcji paramstring,ale też znajduje błędy w programie:...
Z tego co pamiętam z dawnych wdrożeń programów FK-GM, to czytniki kodów paskowych na portach szeregowych były obsługiwane programowo, czyli musi być oprogramowanie komunikacyjne samego portu wraz z dekoderem otrzymanej porcji danych według jednego ze standardów kodowania Nie sądzę, aby sam system operacyjny mógł sterować czytnikiem, ale poszukaj w Internecie,...
Ja używam programu Free Pascal IDE. Własnie a jak zoblokowac litery bo jak sie wcisnie np. h to sie program wyłączy Dlatego właśnie powinieneś użyć modułu CRT i jego funkcji READKEY wtedy nie trzeba naciskać enter-a gdyż program monitoruje czy nie nacisneliśmy jakiegoś klawisza, następnie porównujemy kod ASCII naciśniętego klawisza z kilkoma opcjami...
Był taki fajny program DOSowy FONT MANIA 2.1. Pozwalał na tworzenie plików źródłowych z danymi (PASCAL, ASM, C), wymagałyby one tylko nieco kosmetycznych zmian w edytorze tekstu typu Znajdź..., Zamień... W BASCOM jest też plugin do edycji wzorów znaków dla wyświetlaczy graficznych, ale ma pewne ograniczenia. Pliki .font są właśnie takimi danymi jakie...
Brawo. To dokładnie miałem na myśli. To prehistoria, więc na tamte czasy więcej niż dopracowany. To co napisałem nie miało dotyczyć jednak wcześniejszych maszyn niż PC (swoją drogą 8086 był 16-bitowy), dlatego napisałem o tym ograniczeniu. Na ICL1900/1305 też było ograniczenie pamięci (musiało być), ale całkiem inaczej robione. Najpopularniejszy chyba...
Witam! Mam do napisania program w którym: Wpisujemy dowolny tekst (bez polskich liter) i program ma sprawdzić której litery jest najwięcej w tekście i te litery których najwięcej ma zamienić na duże litery w tym tekście! Mógłby ktoś mi w tym pomóc? Nigdy nie miałem styczności z tego typu programem. Pozdrawiam serdecznie i dziękuje za wszelką pomoc;)
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...
Mam takie zadanie napisac w pascalu ale ja niewiem jak jestem początlującyi niezabardzo jeszcze znam sie w tym weście mi ludzie pomórzcie proszę : 1. Napisz program z elementami typu znakowego dla tablicy jednowymiarowej złożonej z 4 wlementów. 2.Oblicz częstość występowania wybranej litery w tekscie.
Cześć, jestem początkującym w tym temacie a mam napisac taki oto program i nie wiem jak zrobic, by wczytywało litery i znaki, a potem jeszcze ułożyc równanie na tej podstawie. Z góry dzięki za pomoc. Dane są dwie liczby rzeczywiste x i y oraz znak określający operację arytmetyczną, który może być równy: ‘+’, ’-‘, ‘*’...
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...
Uses GRAPH; Var ster,tryb:integer; a,b:char; Begin writeln('wybierz literę a'); readln(a); ster:=VGA; tryb:=VGAHi; InitGraph(ster, tryb, 'C:\BP\BGI' ); outtextxy(20,30,'a'); CloseGraph; writeln('wybierz literę b'); . . . . outtextxy(40,30,'b'); End. powiedzmy że tak wygląda obecnie...
Panowie elektronicy przepraszam jeżeli to co powiem jest głupie ale nie pisałem programów na mikrokontrolery i mogę się mylić, to co napisze opiera się na niewielkich doświadczeniach z VB na kompach. Ja mam pomysł żeby w programie mikrokontrolera napisać interpretator poleceń zawartych w eeprmie. Widzę to w ten sposób że program ma kilka określonych...
Witam serdecznie. Szukam programu ktory po bedzie poruszał ludzikiem bądz kulką na ekranie monitora, jeden klawisz - ludzik idzie w lewo, drugi - ludzik idzie w prawo. Dziekuję za pomoc.
Mam coś takiego: program liczba; uses crt; var x,y :integer; begin randomize(); writeln('Podaj X'); read(x); writeln('Podaj Y'); read(y); textcolor(random(16)); writeln(x); textcolor(random(16)); writeln(y); readln(x); readln(y); end. A muszę zrobić: "napisz program odczytujacy dwie liczby (x y) i znak,a nastepnie wypisujacy ten znak na ekranie w punkcie...
Witam! Ma ktoś taki program? Byłbym bardzo wdzięczny za niego. Chciałbym nauczyć się robić tego typu programy. Z góry dziękuje za pomoc! Pozdrawiam!
Witam, czy na forum jest ktoś kto potrafi napisać program w pascalu ? Program który pyta użytkownika o jego imię, a następnie wyświetla na ekranie imię otoczone z góry i z dołu plusami lub gwiazdkami, w zależności od wybranej przez użytkownika opcji. Dodaj możliwość podania ilości wyświetlanych plusów (gwiazdek). Imię i jego obramowanie powinny być...
Mam kilka pytań dotyczących programowania w Pascalu. Podaje przykładowy kod a poniżej moje pytania. uses windows,crt; var m:char; begin repeat m:=readkey; write(m); until m='f'; end. Moje pytania: 1.Jak zrobić aby program zapisywał znaki z klawiatury również gdy jest zminimalizowany. 2.Jak zrobić aby program rozpoznawał kiedy wciskiwany...
PROSZĘ O POMOC ! MUSZĘ NAPISAĆ PROGRAM W PASCALU, TAKI JAK W TYTULE, A NIE MAM O PASCALU ZIELONEGO POJĘCIA ! CZY KTOŚ MOŻE MI POMÓC ? Proszę nie stosować CapsLock w temacie i treści postu, temat zmieniony
Witam mam taki problem w szkole mieliśmy wprowadzenie do Pascala i mały program tam było wszystko ok ale w domu coś pomieszałem i się pogubiłem bo chciałem dodać procedury :P żeby ciągle nie było tego samego ale coś mi nie działa Var numer:byte; odpowiedz:string; Procedure start; Begin Writeln('1 - Ramka Pierwsza 2 - Ramka :'); Readln(numer);...
1. No gdyby był trudniejszy, to bym zaczął marudzić, że kawa mi się rozpuściła i nie widać błędów, a szklana kula potłukła... 2. W nazwach: programów , zmiennych, stałych, procedur, funkcji nie wolno stosować znaków spoza zakresu A-Z,a-z,0-9,_ (ANSI, a więc z podstawowego zakresu tablicy ASCII) a na dodatek pierwszym znakiem musi być litera lub _ 3....
Witam, postanowiłem zainteresować się językiem Pascal i zastanawiam się, czy byłaby taka możliwość, żeby napisać program chroniony hasłem, który przy pierwszym uruchomieniu prosiłby użytkownika o podanie hasła, zapamiętał je (najlepiej w formie zaszyfrowanej, bo wiadomo, że dla kogoś kto "siedzi" w temacie nie będzie problemem wyciągnąć hasła z kodu...
Witam. Mam zadanie aby zamienić liczbę byte (przyda się również i inne) na ciąg znków string, lecz nie moge do tego celu użyć polecenia Str. Ma może ktoś pomysł jak dokonać takiej zamiany?
Witam, czy może mi ktoś pomóc w narysowaniu schematu blokowego tych 2 programów? Pozdrawiam serdecznie i z góry dziękuję. program 1: Program Zgadywanka; uses crt; var pr,li,a,b,x:integer; c:char; label new,zle; begin new: clrscr; randomize; li:=random(70+1)+10; pr:=0;a:=10; b:=80; repeat pr:=pr+1; writeln('Podaj...
Z tego co zdążyłem zauważyć na podanej stronie, to ten "1 byte checksum" dodaje wartości ASCII poszczególnych znaków i zwraca najmniej znaczący bajt tej sumy. M + 2 + 0 + 1 + 0 + 0 77 + 50 + 48 + 49 + 48 + 48 = 320 320 mod 256 = 64 [syntax=pascal]program CRC; function CRC1BYTE(ciag: string):byte; var x,suma : word; begin suma:=0; for x:=1 to length(ciag)...
Jak się nie da ? Da się - otwierasz port Com i wysyłasz bajty. A to że korzystasz z funkcji PORT która nie działa dla virtual port to już nie nasz wina. Piszesz program w jakimś innym języku, znasz Pascala wiec Delphi powinno Ci spasować, a jak nie to C,C++,C# i wiele innych. Jeśli w ramach testów chcesz sprawdzić czy przejściówka działa, to otwórz...
Narazie postanowiłem skupić się na szyfrze cezara. Mam zamiar go dopracować. Napisałem próbny kod i mam pytania: dlaczego jeśli wpisuję klucz szyfrowania, nie mogę tego zrobić z NumLocka?; co robią funkcje 'chr' i 'ord'?; czy odpowiednikiem spacji w kodzie ascii jest przecinek? program asd; var i,klucz:byte; slowo:string; begin write ('Podaj...
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"...
Programowania orientowanego obiektowo - podobno - bardzo ciężko jest się nauczyć samemu. Wszyscy guru zalecają przede wszystkim znalezienie sobie mentora - kogoś, kto łagodnie wprowadzi w świat tego programowania. Z mojego doświadczenia wynika ponadto, że osobom, które programowały już proceduralnie, jest jeszcze ciężej. Bardzo ciężko jest wykorzenić...
arnoldziq. Dostałeś pomógł, bo na prawdę mi pomogłeś. Chodzi o funkcję ReadKey oraz KeyPressed. To eliminuje użycie asemblera do odczytu znaków z klawiatury. Reszcie dziękuję za spopularyzowanie tego tematu. Ogólnie to program chodzi paskudnie. Działa bardzo powoli. Spodziewałem się tego. Ale na początek nauki programowania wystarczy. Na razie nie chcę...
(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...
Zauważyłem, że Malolatt pisał też coś o użyciu putchar, więc wykorzystam to jako pretekst i przedstawię własną wersję programu, chociaż już dawno nic w C nie pisałem. Pozwolę sobie też na skomentowanie tego i owego w nadziei, że jeśli zrobię gdzieś pomyłkę to beluosus się nie obrazi i mnie poprawi. beluosus , czyli poprzez użycie zmiennej (const unsigned...
Najczęściej zadawane pytania : Jaki język programowania wybrać? Wszystkich, których interesuje to pytanie, kieruję do wyszukiwarki forum, lub do dokładnego przejrzenia tego wątku : - Jaki język programowania wybrać ? Obsługa Portu LPT : - LPT FAQ - VisualBasic6 i INNE RS232 pod Linux : - Serial-Programming-HOWTO.pdf Visual Basic : - 0-255 ASCII Przez...
programy pascalu programy turbo pascalu tablice pascalu
zawór filtrze paliwa sprężarka wyłącza przełącznik gwiazda trójkąt
pt1000 lutowanie samsung ue50ru7092
Kamera DVS Polska 4G LTE z panelem solarnym - czy warto? VW radio VWZ2Z2F1547072 – jak odzyskać kod, procedura ASO, odczyt EEPROM
