a jakieś złączenie przecinkiem może by tak... albo konwersja na tekst i plusem
Zrób tak : uses Dos, crt; var tekst: string; imie: string; S: string; begin clrscr; while true do begin writeln('Wpisz tekst, ktory chcesz wyslac {Enter - aby zakonczyc} '); readln(tekst); if tekst = '' then break; writeln('Podaj imie'); readln(imie); SwapVectors; S:='net send 192.168.0.102 (tekst)...
1. Jak podano w formie `Wejście: ...` / `Wyjście: ...` to żadnych: write('Wpisz wyraz: '); nie nalezy podawać. 2. Nie używaj żadnych clrscr, jak zapoznasz się z konsolą to przekonasz się że to tylko przeszkadza. 3. Zapoznaj się z pojęciem formatowania kodu. 4. Używaj poprawnie znaczników syntax 5. Nie wykonuj niepotrzebnych ruchów (zasada KISS ), nie...
Round - zaokrąglenie
Istnieją trzy rozwiązania tego problemu. 1. Uniwersalne - to znaczy takie które będzie w stanie wyświetlić dowolny napis, złożony z dowolnych znaków ('%','*') przenosząc poszczególne pixel-e, z których zbudowane są litery i generowanie ich odpowiedników, za pomocą znaków. Odradzam, jest to dość skomplikowane. Można co prawda znaleźć gotowe kody źródłowe...
Chodzi o coś takiego ? uses Graph; Var ster,tryb:integer; a,b:char; Begin writeln('wybierz litere a'); readln(a); writeln('wybierz litere b'); readln(b); ster:=VGA; tryb:=VGAHi; InitGraph(ster, tryb, 'C:\BP\BGI' ); outtextxy(20,30,'a = '+a); outtextxy(20,60,'b = '+b); outtextxy(20,90,'Nacisnij...
d to tablica liczb, a do wyświetlenia potrzebny jest tekst. Błąd polega na niezgodności typów - musisz dokonać konwersji liczby na tekst (inttostr).
Napisałem aplikacje, która ma zapisać dany tekst w danym pliku.txt i gdy ją uruchamiam wyłącza się po podaniu treści program zapisywanie_danych; var plik:file of string; txt,nazwa:string; begin writeln('Tresc:'); read(txt); writeln('Nazwa:'); read(nazwa); assign(plik,nazwa); rewrite(plik);...
Nie wiem dokładnie, ale jeżeli używasz Free Pascal-a, to na 100% masz tam jakieś opcje kompilatora, w których możesz ustawić target. Free Pascal Compiler version 2.2.0 Dodano po 13 Tu znajduje się opcja Target dla kompilatora, w IDE Free Pascal-a http://obrazki.elektroda.net/57_12709780... Ma być ustawiona w ten sposób : http://obrazki.elektroda.net/66_12709780...
Problem jest następujący. Programik zainstalował się bez żadnego problemu, Zaznacze jeszcze ze mam XP pro z SP1. uruchamia ise bez problemu, choć troche spowalnia reszte kompa, ale to wydaje mi się normalne. Problme mam taki, że: jeżeli napisze sobie kilka linii kodu i chce się cofnąć kursorami w górę programu to mi zaznacza tekst na szaro. Z compilowaniem...
Nie znam się na PLC ale z tego co sie domyślam jest tam jakiś uproszczony język programowania na zasadzie składania klocków, więc masz do dyspozycji tylko te klocki co są w pudełku i możesz tylko mieć nadzieję że są to dobre klocki i nadają sie do tego do czego chcesz ich użyć. Języki programowania PLC to temat rzeka. Norma IEC 61131 wyróżnia generalnie...
Zamieniłem już słowo tekst na text ale program zapisuje w pliku tylko tekst "Ala ma kota" a ja chcę aby zapisywał odpowiedzi udzielane przez użytkownika. Jak to zmienić?
Nie wiem, czy to błędy przy przepisywaniu ale w Twoim kodzie jest ich kilka. Np: dwukropek zamiast średnika w linii a nawet nie pojawia mi się tekst Podaj liczbę A co Twoim zdaniem ma ów rzeczony tekst wyświetlić. TP nie jest wróżką i na domysły nie bierze.
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...
Z tego co pamiętam to włączenie readln w trybie graficznym powodowało nałożenie się trybu tekstowego na graficzny. Tak jakby tekst był pod spodem i tylko wyłaził tam gdzie użyjesz gotoxy. Dało się z tego korzystać ale trzeba było pilnować wszystkich pikseli żeby do siebie pasowały - dlatego lepiej napisać własną funkcje.. Bardzo możliwe że to o czym...
Źródło przykładowe zmiany koloru wyświetlanego tekstu: Program Kolory; uses Crt; begin Writeln('Ten tekst powinien się wyświetlić w standardowym kolorze.'); TextColor(red); { Zmiana koloru tekstu na czerwony } Writeln('A ten tekst powinien się wyświetlić na czerwono'); TextColor(black);TextBackGround&...
Ja polecam Free Pascal Compiler. Jest na prawde bardzo dobry. Przede wszystkim dziala zawsze i wszedzie, nie ma problemow z modulem graph i crt, i do tego ladna prezentacja kodu gdzie np. rozkazy, liczby i zwykly tekst sa oznaczane innymi kolorami. Wyciaga standardowo rozdzielczosci do 1024x768 256 kolorow. Qrcze na date nie spojrzalem. :P:P;P:P
Nie ma potrzeby żadnej tablicy - po prostu wywołujesz procedurę wyświetlającą pytanie (parametr) i możliwe odpowiedzi (kolejne np. 4 parametry) oraz, która poprawna (parametr), a niech zwraca (i to będzie funkcja, a nie procedura już!), czy wybrano poprawną. Gdzieś w głównym bloku zliczasz liczbę poprawnych. Oczywiście pojęcie użycia procedur jest dość...
Spór i rozważania ciekawe PLC czy Arundino (czytaj uProcesor w czystej postaci). Mam wrażenie, że Panowie zapomnieli lub nie wiedzą dla kogo zostały zbudowane PLC. Otóż dla zwykłych elektryków. Tak dla elektryków, którzy w latach 80 i wcześniej ubiegłego wieku projektowali maszyny na stycznikach i przekaźnikach. To pod nich i dla nich stworzono języki...
Weźmy np. taką linię :" (123 rows affected)". Musisz ustalić jaki element będzie niezmienny. Np. rows affected . Nazwijmy ten niezmienny ciąg znaków, po prostu, znacznikiem. Pobierasz całą linię tekstu. Sprawdzasz czy znajduje się w tej linii znacznik. Wiemy, że ten ciąg jest poprzedzony jakąś cyfrą oraz nawiasem. Funkcja POS , zwróci Ci jaką pozycję...
To jeszcze po części zależy od tego, jak chcesz zrealizować interfejsowo kwestię. Tak, na plansze nada się tablica dwuwymiarowa. A właściwie to dwie - po jednej na każdego zawodnika. Gra by musiała składać się z dwóch etapów: 1 - wypełnienia tablicy (ręcznie lub automatycznie), 2 - właściwej gry. Jeśli to mają być tylko pojedyncze statki, to sprawa...
Takiej odpowiedzi oczekiwałem. Wielkie dzięki :) Znam podstawy języka C++ i Pascal więc myślę, że nie było by z tym problemów. Ja liczyłem, że to będzie wyglądało tak: 1 płytka: programator 2 płytka: na niej umieszczamy atmegę i podłączamy ją do programatora. Po wgraniu oprogramowania układ wyciągamy ( byłby zamontowany na podstawce, tak jak niektóre...
Przyłączę się do tych, którzy twierdzą, że rozpoczynanie nauki od C++ to nienajlepszy pomysł. Napisać działający program w C++ to nie sztuka, ale napisać go "w zgodzie ze sztuką" to już nie takie proste. Interaktywny system podpowiedzi i doskonały Debuger W środowisku Borlanda, na pewno sporo pomaga, ale wszystkiego za nas nie zrobi. Dev może i jest...
Witam. Przestawiony tu komputerowy miernik pojemności kondensatorów polega na pomiarze ilości cyklów przez określony wyborem zakresu czas. Najsłabszym punktem tego rozwiązania jest generator. Raz, że analogowy, niepewnie działajacy z kiepskim napięciem na wyjściu. Dwa, że wymaga topornego trafa z symetrycznym zasilaniem. W załączniku przedstawiam moją...
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ę...
w oknach konsolowych używamy menu znajdującego się w ikonie okna, gdzie wybieramy Edytuj / Oznacz, a następnie zaznaczamy tekst do skopiowania i zatwierdzamy ENTERem.
Jacek cz.... WIdze ze duzo wiesz o c. JA niestety wiem jeszcze bardzo mało. Ale przedstawi tobie zalete stosowanie makr :) ci np. #define LCD PORTC dzieki temu potem w programie zmieniamy tylko te makro i lcd działa na innym porcie. Na pewno nic nowego tobie nie powiedziałem Ci. ale to jest niewątpliwa zaleta makr i chyba po to zostały stworzone makra....
Jak zrobić edytor tekstu w pascalu. Ma mieć funkcje np. wstawiania spacji, przenoszenia wyrazu bez ucinania, przenoszenia linijek w dół po naciśnięciu entera itp. Jak przechowywać\pisać tekst, jeżeli jest dłuższy niż 255 znaków? Zamykam. - arnoldziq
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)...
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'...
więc zamiast readln otwórz plik i wczytaj z niego do tej zmiennej. Przypisz (assign), otwórz (reset), w pętli (while not eof) wczytuj (readln) do pomocniczej zmiennej, którą rozbudujesz swoją obecną zmienną (zm := zm + ...) i na koniec zamknij plik (close).
A wiesz, gdzie Twój kod wyświetla tekst?
W tekstach kursu wdarł się nieco chaosu dotyczącego terminów port, pin czy nóżka mikrokontrolera. Naniosłem odpowiednie poprawki i mam nadzieję, że teraz teksty są bardziej precyzyjne. Załączam.
Mi chodzi o to żeby tekst po powtórzeniu został napisany pod pierwszym tekstem
zapamietaj IOResult do jakiejś zmiennej.
Poszukaj pliku z rozszerzeniem *.pas w którym to pisałeś, otwórz go notatnikiem i kopiuj co potrzebujesz.
Witam. A może coś takiego: Program pac; uses crt; var plansza:text; linia:string; tab:array[1..50,1..80] of char; i,d:integer; begin clrscr; assign(plansza,'C:/Users/Radek/D... reset(plansza); for i:=1 to 50 do begin readln(plansza,linia) for d:=1 to 80 do tab[i,d]:=linia[d];....
Witam mam taki problem estetyczny mianowicie: Marka: xxx Model:xxx Rocznikxxx.etc i było by dobrze gdyby nie fakt ze kazdy pojazd pod dana marka drukuje tak samo a chciałbym żeby wyswietlał w jednej marce wszystkie pojazdy czyli np Marka:xxx Model:xxx etc... Model:xxx etc... Marka:zzz Model:zzz etc... itd Czy mógłby ktos...
O procedurach dowiedziałem się całkiem niedawno, więc może zaproponowałbyś coś, bo jeszcze nie do końca kumam. Patrzę jak to inni robią, ale przeważnie odwołują się do zmiennych, a nie do jakiegoś fragmentu tekstu.
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...
A jak się łączy ciągi w Pascalu, kolego? Operator + a nie , !
Oba programy wyświelą ten sam tekst na czarnym tle, z tym że drugi najpierw wyczyści ekran,a potem wypisze tekst.
Witam.Jeśli ci to w czymś pomoże to mam PDF'a w którym są algorytmy wyszukiwania wzorca w tekście.Osobiście kiedyś miałem napisać program z wykorzystaniem algorytmu Knutha-Morrisa-Pratta ale miałem tylko sprawdzić czy jest w tekście wzorzec i nic więcej.PDF w załączniku.
Niekiedy potrzebuję napisać program dla systemu DOS pracującego w trybie tekstowym. Zauważyłem, że niektóre programy na czas uruchamiania wymieniają niektóre znaki trybu tekstowego na swoje, po czym po zakończeniu programu wraca do normy (przy mniej udanym programie wszystko zostaje). Taka wymiana znaków (trwała) zachodzi przy wybieraniu strony kodowej...
Rozumien, że tam gdzie w tablicy jest aż do 63999 znaków mogę to zmienić na 255 znaków bo tyle ma mieć tekst ? I czemu tablica jest of char ? Myślałam że ma być of string. Napisałam to tak : var słowo:array[1..255] of string; wyraz:array[1..n] of string; czy w tej tablizy z wyrazem liczba znaków musi być zdefiniowana, no bo w końcu nie wiemy jak długiego...
Ustaw przed pisaniem czcionkę procedurą SetTextStyle.
Bez tego "hackerstwa" nie mógłbyś programować żadnego sprzętu. 1. W pełni da się programować sprzęt w języku który nie ma tak dalece posuniętej (przesadzonej / niebezpiecznej) arytmetyki wskaźników. Np w pascalu (dialekcie pascala) Co więcej, core "programowania sprzętu" C jest w ekstenszynach, a nie w samym języku. W C nie masz portu, interruptu,...
Sęk w tym że jeśli ustawi się na kolor tła numer od 8 do 15stu to wg zasad tekst powinien zacząć migać a kolor tła powinien być o 8 mniejszy (zamiast szarego czarny, zamiast białego szary itp). Ale jak zareaguje komputer - to już kwiestia systemu. Np. po uruchomieniu programu w okienku - będzie jasne tło. Ale po zmaksymalizowaniu okienka na cały ekran...
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...
pascal tekst tekst pascal wyświetlać tekst tekst tekst pascal wyświetlać tekst
kostka rozdzielcza motorola układ ładowania budowa generator turbina wiatrowy
domofony cyfrowe reason instrukcja
Świecąca kontrolka poduszki powietrznej po zalaniu siedzenia Moment zaczepowy w silnikach BLDC - wartości i wpływ
