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...
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).
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...
a jakieś złączenie przecinkiem może by tak... albo konwersja na tekst i plusem
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.
A wiesz, gdzie Twój kod wyświetla tekst?
moze freepascal bedzie lepiej działał, u mnie tak właśnie było, troszkę się różni kolorystyką ale składnia języka pozostaje więc do nauki równie dobry jak TP http://www.freepascal.org/sdown.html
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).
Round - zaokrąglenie
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.
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...
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ę...
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
W linii w której jest F:Text; Chodzi o słowo "Text" które według Pascala jest błędne. Tylko nie wiem co mam zamiast niego wpisać aby po utworzeniu pliku tekstowego można było wpisać do niego jakiś tekst.
a jak zmienić tą kompilacje?
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'...
Spróbuj tak : program zapisywanie_danych; var plik:file of string; txt,nazwa:string; begin writeln('Tresc:'); read(txt); writeln('Nazwa:'); read(nazwa); assign(plik,nazwa); {$I-} rewrite(plik); {$I+} write(plik,txt); close(plik); readln; end.
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)...
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ć.
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];....
Ustaw przed pisaniem czcionkę procedurą SetTextStyle.
Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.
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...
To zobacz kod pliku TP_FILM.PAS z tej paczki, co podałem linka i zamień wszystkie swoje write na stosowne instrukcje wypisujące tekst w trybie graficznym.
A jak się łączy ciągi w Pascalu, kolego? Operator + a nie , !
Mi chodzi o to żeby tekst po powtórzeniu został napisany pod pierwszym tekstem
Jeżeli chodzi o sortowanie liczb (zaimplementowane w pascalu) to może to się przyda: http://omklnx.il.pw.edu.pl/~rgajewski/pa... http://www.sciaga.pl/tekst/42010-43-sort... Ale nie znam dokładnie zadań tego program, lecz poczytanie tego w linkach powinno dać jakiś pogląd na algorytmy sortowania ;)
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.
1. To można napisać na różne sposoby,to jeden z nich: uses crt; var tab:array[1..4]of char; i:integer; str:string; znak:char; begin write('wypisz 4 znaki '); readln(str); for i:=1 to 4 do begin znak:=str[i]; tab[i]:=znak; end; for i:=1 to 4 do writeln(tab[i]); readkey; end. A to 2 zadanie: uses crt; var str:string; litera,chr:char; i,ile,dl:integer;...
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...
Nie, mnożenie tekstów jest tak samo wykonalne, jak upieczenie mieszkania czy wyhodowanie telefonu. Mnożyć możesz tylko liczby.
Ten program uruchamiałem w czasach, gdy podręcznik był aktualny. Wtedzy działał bez zarzutu. Zapisany przez Ciebie kod rzeczywiście działa (a właściwie nie działa) w dziwny sposób. Jeśli znajdę oryginalny tekst, to sprawdzę co się stało...
Generalnie to nie ma potrzeby aż tak szerokich opisów. Np dla warunków wystarczy "l1 = 25?" Komunikat proszący o podanie oraz operacje podania liczby można zapisać w jednym bloku wejścia wyjścia, ale jeśli rozbijemy na dwa, to nie jest to jakimś błędem. W całej petli FOR zdecydowanie zapomniałeś o zwiększeniu licznika pętli. Takie funkcje jak wyczyść...
Przed tekstem, ktory ma byc wyswietrlony na dany kolor
Pomóc to i owsze - może wiele osób. Tylko powiedz chociaż kto Cię skrzywdził tym programem dając Ci taką pracę a nie mówiąc wcześniej co to jest pascal? No i może jakieś dodatkowe info o zadaniu... Czy to ma być sprawdzanie w pliku czy w tekście wpisanym przez użytkownika?
trzeba uzyc tryby 13h poszukaj w necie, od groma tego jest o tym (nie pamietam dokładnie inicjalizacji - PASCAL asm mov ax, 13h, int 10h , cos takiego) Dodano po 3 o mam (pamietaj, podaje pod Pascala, nie dobrze wiem, jak sie assamblerem obslugiwac w c++) PROCEDURE SetVga; - to włącz tryb 13h BEGIN ASM mov AX, 13h int 10h END; END; grafika jest przechowywana...
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...
Dzięki. Równolegle napisałem sobie podobny program, działający w środowisku DOS mojego kompa, na którym drukuję tekst (286/18MHz/1MB RAM :) ). Turbo Pascal. Dopisałem sobie tam też konwersję na Mazovię, którą obsługuje moja igłówka i wysył na LPT2, bo na 1 mam sieć. W każdym razie wielkie dzięki za pomoc!. MCbx.
Witam. Pisze tu do was, gdyż mam pewien problem... a mianowicie : zrobiłem prostą grę, a do niej mały ranking, który jest wczytywany z pliku... moje pytanie brzmi czy da się zastąpić tylko pewną część pliku a nie cały plik? np : 1. Gracz 1000 pkt 2. Gracz2 800 pkt 3. Gracz3 600 pkt i np zastąpienie Gracz2 innym tekstem i przesunięcie go na trzecie miejsce......
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...
W tym kodzie programu wyskakuje mi komunikat program nr2; uses crt, graph; var a,b: integer; begin detectgraph(a,b); initgraph(a,b,' '); setcolor(14); rectangle(10,10,200,300); readln; closegraph; end. http://obrazki.elektroda.net/21_12318804... Drugi problem jest taki, ze gdy klikam myszka po menu w pascalu to ona zaznacza tylko tekst, tylko...
W podanym kodzie, przy odbiciu zmienna yspeed przyjmuje wielkość ok. 30. To jest ta różnica. Ponieważ sprawdzasz warunek na początku pętli lina nigdy nie przekroczy dolnej granicy 479-~30 = 449. Powoduje to także, że przy szczycie wykresu, zmienna yspeed zmienia wartość z ujemnej na dodatnią, juz przy y=14 a nie przy y=0. Stąd bierze się górny "margines"....
Za takie stwierdzenie to z każdej laborki wylatujesz z hukiem. Może i tak o ile wykładowca nie zna Pascala. Z tym że po takim wylatywaniu z laborki wykładowca nie znający Pascala i stosujący takie metody ogłupiania studentów - wylatuje z pracy. http://www.oeiizk.edu.pl/informa/pascal/... http://sciaga.pl/tekst/50976-51-petle_w_...
Witam. Najprostszy zapis do pliku wyglada tak: deklarujesz zmienna typu text: var plik: tekst; teraz musisz przypisac plik fizyczny zmiennej plikowej: assign(plik, 'sciezka\nazwa_pliku'); mozesz podac nazwe jeszcze nieistniejacego pliku, lub istniejacego, ale uwaga!!! istniejacy zostanie przepisany!!! teraz otwierasz plik (do przepisania): rewrite(plik);...
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...
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.
assign(plik,'c:\docume~1\admini~1\pulpit... Nie rozumiem problemu : Czy problem to utworzenie tych że dokumentów. Czy też przekazanie do programu informacji ile ich utworzyć Bo jeśli pierwszy problem to rozwiązanie jest trywialne. assign(plik,sciezka); Gdzie sciezka to zmienna tworzona kolejno dla każdego pliku w programie I wtedy kłaniaja...
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
Oba programy wyświelą ten sam tekst na czarnym tle, z tym że drugi najpierw wyczyści ekran,a potem wypisze tekst.
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10101100 10101010 01101011 coś takiego pętle już zrobiłem ale zapisuje tylko jedną liczbę binarna w notatniku [syntax=pascal]program postac_binarna;...
Zbiór typu wyliczeniowego nie pozwala na wyświetlenie tekstu, gdyż... składniki typu wyliczeniowego nie są tekstem! W procesie kompilacji każdy typ wyliczeniowy zostaje skonwertowany na liczbę, zaś samo istnienie ma jedynie cechy warstwy abstrakcji i ma uczytelniać upraszczać pisanie kodu.
No to już wiemy. Pytam, jak mają być zapisane dane? Czy ma to być podany cały wielomian, czy może wyłącznie stopień i współczynniki np w osobnych liniach...
Niestety wprowadzenie tej zmiany nic nie daje, a nawet nie pojawia mi się tekst Podaj liczbę a po wpisaniu jednej z liczb i wciśnięciu klawisza enter zamyka mi się okno podglądu.
otwórz plik przed pętlą, zamknij za pętlą.
Masz tu kilka stron sprzedających programatory. Szukaj do układów eeprom 24XXX, czyli do 24c16 tak jak wyżej kolega wspomniał. Oczywiście taniej będzie zrobić sobie samemu. :) http://www.epsilon.com.pl/cgibin/shop?sh... http://www.multi-com.pl/index.php/pl_PL,... Najtańszy JDM to koszt ok. 25zł Jak już będziesz miał wszystko to...
Program obliczanie pola trójkąta Uses crt; Var a,h,pole:Real; Begin Clrsclr: Write(‘podaj długość boku a’);readln(a); Write(‘podaj wysokośc trójkąta h’);readln(a); Pole:=a*h/2 1) Po napisaniu program w pascalu jest zasada ze tekst ma być spójny bez spacji i ciągły wiec jako znak spacji...
Błąd masz w linii: writeln('podaj x[',i,']='); readln(xj); Nie może być readln(xj); Nadużywasz fcji pisania na ekran writeln('...');,jeżeli dalej nie wystąpi instrukcja readkey; lub readln; a u ciebie występuje clrscr; to nigdy writeln('...') nie wyświetli się na ekranie. Nie wnikam co program ma robić, ale zamieszczam poprawiony program. Poza tym dwukrotnie...
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...
1. Tablica statyczna - po prostu array 2. Parzyste elementy - reszta z dzielenia (dzielenie modulo = mod ) = 0 3. Algorytm bąbelkowy - znajdziesz opis np w tej paczce: http://www.dzyszla.aplus.pl/download-32.... Nie przejmuj się, że to C. Po prostu przeczytaj punkt 2.3 z pliku sorts1.doc 4. pętla i dodawanie do zmiennej 5. kolejna tablica - P pkt....
Potrzebuje programu który będzie działał następująco: Po wpisaniu tekstu z klawiatury program pyta nas o wybór jakiejkolwiek litery, następnie w tekście który wpisaliśmy zamienia wszystkie litery wybrane wcześniej na "_X_". Jeżeli litera którą wpisaliśmy nie występuje w tekście program wyświetla "nie ma takiej litery" i prosi o ponowny wybór.
Witam, Trochę za późno zabrałem się za pisanie programu na zaliczenie. Temat mojego projektu to statystyki pliku , ile slow ile znakow ile linii i histogram. Ten program chce napisać sam, ale że na laborkach z programowania podczas wykłądania procedur i funkcji zagapiłem się i praktycznie nic nie wyniosłem z tych zajęć to mam teraz pewne problemy zrozumieć...
Ale z czym nie wiesz, o co chodzi? Jak policzyć sumę lub średnią?
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,...
Nie możesz sobie wstawiać VAR i END gdzie tylko chcesz :) Przeanalizuj ten kod : PROGRAM kalkulator; uses crt; var l1,l2,decyzja:integer; tak_nie:char; procedure dziel; BEGIN writeln(l1,':',l2,'=',l1/l2)... END; procedure mnoz; BEGIN writeln(l1,'*',l2,'=',l1*l2); END; procedure dodaj; BEGIN writeln(l1,'+',l2,'=',l1+l2);...
No to skoro sobie marudzimy to: - bez sensu? no nie całkiem. A jednak juz w kolejnej linijce temu zaprzeczyłeś, więc chyba całkiem. - eof konieczny? wcale nie bo zobacz w programie Dialera wystarczy pętlę WHILE NOT EOF(FI) zastąpić przez REPEAT ...... UNTIL READ<1024 i co? eof jest konieczne? ;) Tak. To jest najprostszy sposób sprawdzenia końca pliku...
Zainteresuj się tematem takim jak np. "hook keyboard" pozdrawiam.
A może choć napiszesz, jaki masz błąd zgłaszany i gdzie?
czyli cos w stylu: x:=0; a:=0; b:=0; dlugosc:=length(tekst); repeat x:=x+1; znak:=copy(tekst,x,1); if znak='<' then a:=x; if znak='>' then begin dlznacz:=x-a+1; delete(tekst,a,dlznacz); end until x>=dlugosc; niestety znowu wynik nie jest prawidlowy - znaczy sie wycina wiecej niz powinien ;( Pelen kod wyglada tak: uses crt; var plik1, plik2:text;...
Eee... a gdzie jest pytanie? Czy da radę coś takiego napisać? Pewnie, w godzinę da radę to zrobić - może krócej.
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
Po usunięciu htaccess problem ustał. Więc to on. Żebyś przeanalizował problem, to nie powiem. Nie będziesz zbyt często miał możliwości leczyć choroby przez rozstrzeliwanie nosiciela. Mam uraz do wiersza poleceń, już ze szkoły średniej. Turbo Pascal w moim wykonania to były kółeczka i tekst... Z tego co kojarzę to WebExpress to była darmowa wtyczka...
Według mnie nauki nie powinno się zaczynać ani od C ani od C++, że tak powiem są to języki "nieprzyjazne" dla wszystkich którzy zaczynają się ich uczyć, a co mówić dla kogoś kto nie miał żadnego kontaktu z programowaniem. No, ale my nie mamy wpływu na to co rodzi się w głowach ludzi którzy ustalają materiał przerabiany na zajęciach. Co więc Twoim zdaniem...
do usuniecia
Utworzyłem taki program: http://obrazki.elektroda.pl/6125487500_1... Co muszę dodać lub poprawic? Nie ma problemu z realizacją przykładu przy pomocy funkcji fprintf w C i C++. W Pascalu realizacja tego zadania też nie sprawia problemów.
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...
Gdy znajdzie się spacja pomiędzy słowami to program się wywala - przy ciągłym tekscie wszystko jest już dobrze. #include <iostream> #include <cctype> using namespace std; int main() { char ch; string tekst; string ntekst; int dlugosc; cout << "Wpisz tekst: "; cin >> tekst; dlugosc = tekst.length();...
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ść...
Nikt za Ciebie tego programu nie napisze. Co najwyżej możesz liczyć na jakieś podpowiedzi. Ale najpierw pytanie : Pod jakim kompilatorem udało Ci się ten kod skompilować? Pytam, bo takie funkcje jak : gotoxy() , textattr() są raczej właściwe dla Pascal-a, a nie dla C.
Co to za shit ?? 1. readln(tablica) smierdzi samo w sobie skoro tablica jest typem array[1..10]... Gdzie jest indeksowanie? [syntax=pascal] for x:=1 to 5 do begin write('Podaj imie numer ',x,': '); readln(tablica[x]); end; [/syntax] 2. Wyswietlic je? Nigdzie nie widze wyswietlania czegokolwiek z tablicy... [syntax=pascal] for x:=1 to 5 do writeln('Imie...
tu Dodano po 8 zaczynam z tym językiem programowania.Wcześniej z Delphi .turbo pascal jest coś prostrzego? Wesołych Świąt życzę
Witam, wie może ktoś jak przejść w pascalu do następnej linii bez użycia: writeln('jakiś tekst'); writeln; writeln('drugi tekst');
Ok dzięki temat zamknięty!!!
Wszystko zależy od tego, co ukryłeś pod zmienną V :) Zapisuj zakodowany tekst bajt po bajcie a nie jako ciąg znaków i sprawa załatwiona. Jako pierwszy bajt zapisz (tak jak w string), długość zapisywanego ciągu i możesz zapisywać hasła o różnej długości.
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...
...a nie lepiej po prostu: writeln(wynik:6:0); albo tak (z poprzedzającymi zerami): Writeln(FormatFloat('000000#',wy... albo jak bardzo chcesz mieć to w zmiennej typu string przed wyświetleniem, to: [syntax=pascal]Program TestFixed(output); uses sysutils; var a: double; s: string; begin a:=1.56; s:=FormatFloat('000000#',a);...
Witam, zainstalowalem dev-pascal 1.9.2. Napisalem (przekopiowalem ) prosty program: program abcde; begin writeln('raz dwa trzy'); end. Podczas kompilacji 0 bledow. Gdy uruchamiam program pojawia sie okienko dosowe i od razu znika. To samo dzieje sie gdy uruchomie go przez start->uruchom. Dopiero gdy otworze go przez wiersz polecen wyswietla sie jego...
o ile sterowanie Mitsubishi programuję metodą drabinkową (mam zresztą do wyboru drabinka lub ST) to w Step7 mogę się "wyżyć". Zaczynając w S7Graph - główny przebieg procesu, AWL=ST obliczenia,adresowanie pośrednie,transfery,skoki, FUP- proste układy RS,& > itp. oraz niekiedy SCL-okrojony Pascal- logiczne powiązania (np. winda) oraz konwertowania liczb...
Jeśli jest załadowany do pamięci sterownik myszy, to wszystkie usługi mozna realizoać przez przerwanie 33h, są tam dostępne, właczeni/wyłączanie kursora, edycja kształtu kursora, sprawdzanie pozycji/klawiszy, etc. Jednak ejst dostępna jedna bardzo ciekawa funkcja, pozwala "podczepić" pod sterownik wlasna procedure.
Witam, nie wiem jak u was z programowaniem procesorow, zajzyjcie moze na strone mikroelektroniki tam sa kompilatory dla mikroprocesorow ja uzywalem mikrobasica lub pascala. Ma on wbudowane proste mechanizmy obslugi kart pamieci SD czy CF, z USB jest troche zabawy ale mozliwe ewentualnie dokladasz scalona szeregowa pamiec eeprom i w niej przechowujesz...
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...
Zrób programik w pascalu, który zapisze ci te liczby do pliku.
Ponieważ wprowadziłem Cię w błąd oferując fcję wherex i wherey, która działa tylko w crt, zamieszczam kawałek kodu, który pokazuje jak korzystając z przerwań można rozwiązać ten problem. Po najechaniu kursorem na prostokąt i kliknięciu lewego klawisza, na ekranie pojawia się tekst. Naciśnięcie w innym miejscu nie wywołuje reakcji. Można to też rozwiązać...
Dr.Vee dzięki za link do tutka. Przejrzałem i widzę czego muszę się jeszcze douczyć (wskaźniki, struktury...) i mogę zacząć studiować GTK. lord_dagoth: jestem ciekawy co to za gierka w konsoli. Jak możesz to zrób screena, żebym mógł zobaczyć możliwości gier w konsoli. Ogólnie jestem ciekawy jak zaprogramować konsolę by nie wyglądała ona tylko na zasadzie...
jak zapisać i odczytać plik textowy w turbo pascalu w takim programie? gdzie tu jest błąd w tej proceduże?? program aproksymacja; uses crt; type tablica=array[1..100] of real; var yj,yyj,xj:tablica; a,b,h,y,x,z0,z1,k0,k1,c00,c01,c10,c11:re... i,n,c,d:integer; plik,plik1:text; dane,wynik,s:string; znak:char; label 10; begin clrscr; writeln('wybierz...
Czesc!!!! Na pewno ktoś tu wie jak wygenerowac do pliku tekstowego linijka po linijce kod binarny o 15 bitach... najlepiej w C lub pascalu!!!!!!!!! Dzieki wielkie za pomoc Pozdrawiam. Polluks
Nie można uczynić czegoś tak prostego jak usunięcie całego wiersza? Nie ma na to jakiegoś sposobu? Programuje w C od niedawna więc jeszcze niewiele wiem, ale mam doświadczenie w pascalu. Skoro da sie wstawić do pliku nowy pusty wiersz to powinno dać się z niego usunąć wiersz. To kopiowanie zawartości w odpowiednie miejsce nie bardzo się sprawdza chyba....
Tak jak wspominałem wcześniej - deklaracji uses używasz tylko raz (na początku, najlepiej po program ). Wziąłeś mnie trochę zbyt dosłownie: procedure info; begin ... end; - w miejscu ... powinieneś wstawić kod, który np.: wyświetla jakiś tekst informacyjny o programie. Oczywiście, to żaden przymus, możesz nic nie wstawiać - wtedy procedura info jest...
pascal tekst tekst pascal wyświetlać tekst tekst tekst pascal wyświetlać tekst
aktualizacja epson czujniki wabco wyjęcie szyby
radio kryształkowe radio kryształkowe
Olej Stihl w pile spalinowej NAC CTS 45 40 01 Pioneer VSX-S510 reset do ustawień fabrycznych – procedura krok po kroku