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).
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...
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 jakieś złączenie przecinkiem może by tak... albo konwersja na tekst i plusem
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
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.
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...
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, mam problem z zapisem tekstu do pliku z mojego kodu. Mam taki problem, gdy nie zastosuję żadnej opcji jeszcze z zapisem to wszystko ładnie się wyświetla, tylko jak wprowadzę instrukcje do zapisywania do tego pliku, to tekst który się zapisuje nie jest wyświetlany na ekranie, dlaczego? da się to zmienić? tu jest mój kod: program koko; uses dos,...
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ę...
Round - zaokrąglenie
A wiesz, gdzie Twój kod wyświetla tekst?
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'...
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.
Ustaw przed pisaniem czcionkę procedurą SetTextStyle.
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)...
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 Chciałeś mieć na środku to miałes na środku. Nie bardzo wiadomo o co chodzi w Twoim problemie. Coś kolega niejasno pisze. -- pozdrawiam
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.
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, 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.
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;...
A jak się łączy ciągi w Pascalu, kolego? Operator + a nie , !
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 ;)
Dla 100 miejsc po przecinku pozostaje Ci operowanie na tekście.
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...
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);...
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...
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.
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.
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?
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ść...
Nie, mnożenie tekstów jest tak samo wykonalne, jak upieczenie mieszkania czy wyhodowanie telefonu. Mnożyć możesz tylko liczby.
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...
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...
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...
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_...
Przed tekstem, ktory ma byc wyswietrlony na dany kolor
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......
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.
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...
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"....
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...
Ok ta procedura mi się kompiluje, teraz jednak nie kompiluje mi się procedura wypisywania. [syntax=pascal] unit WypisaniePliku; interface uses Classes, SysUtils; procedure WypisaniePliku (var OtwieranyPlik:text); implementation procedure WypisaniePlku (var OtwieranyPlik:text); var tekst:string; begin While(not(eof(OtwieranyPlik))) do begin readln(tekst);...
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...
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...
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...
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...
Witam wszystkich Elektrodziaków! Siedzę nad tym juz jakiś czas i nie umiem znaleźć żadnej pomocnej mi funkcji. Chodzi mi o wydobycie z poszczególnych literek stringa kody ascii. Funkcja ASC() była by bardzo pomocna, z tym że zamienia ona tylko pierwszy znak. Co z pozostałymi? Marzy mi się nawigacja po stringach jak w pascalu tekst[10] i po sprawie....
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;...
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...
otwórz plik przed pętlą, zamknij za pętlą.
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.
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.
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...
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...
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.
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...
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?
Eee... a gdzie jest pytanie? Czy da radę coś takiego napisać? Pewnie, w godzinę da radę to zrobić - może krócej.
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.
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
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();...
Oba programy wyświelą ten sam tekst na czarnym tle, z tym że drugi najpierw wyczyści ekran,a potem wypisze tekst.
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...
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.
[url=http://forum.dzyszla.aplus.pl/topic... dzielenia na wielobajtowych liczbach w systemie binarnym przedstawiłem w zlinkowanym tekście. Jeśli jednak chcesz zastosować stricte zasady dzielenia pod kreską, to również można. Najlepiej potraktuj liczbę wejściową jako ciąg tekstowy. Następnie od jego początku szukaj takiej wartości, która...
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ść...
Witam, wie może ktoś jak przejść w pascalu do następnej linii bez użycia: writeln('jakiś tekst'); writeln; writeln('drugi tekst');
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ę
Ok dzięki temat zamknięty!!!
...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);...
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...
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...
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...
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ć...
Źle to ująłem - chodzi mi o zwykły program który liczy np pole jakiejś figury. W trybie tekstowym potrafię to napisać i bardzo dobrze to działa. W trybie graficznym owszem pokazują się linie tekstu np"podaj wysokosci figury" , "podaj długość boku" , "objętość figury wynosi ..." i w tym momencie nie ma żadnej liczby jakby program nie obliczał. W trybie...
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....
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...
tekst pascal tekst pascal wyświetlać tekst tekst tekst pascal wyświetlać tekst
wskaźnik myszy dławienie cewki klawiatura zalać spirytus
falownik allen bradley powerflex falownik allen bradley powerflex
Mocniejszy zasilacz do Dell OptiPlex 5050 – jak wybrać? Zastąpienie transformatora we wzmacniaczu Yamaha MS60S