initgraph(gd,gm,'katalog w którym są BGI');
Po pierwsze, jeżeli stosujesz własne funkcje do dokonywania obliczeń, to możesz sprawdzać właśnie w tych funkcjach, czy ich argumenty "są odpowiednie". Zamiast : function pierwiastkowanie(a:real):... begin pierwiastkowanie:=sqrt(a); end; Zrób coś takiego : function pierwiastkowanie(a:real):... begin if...
Tak ja także bym prosił o jakieś informacje ponieważ szukam od dłuższego czasu i nic nie wymyśliłem.
while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!
Program działa, natomiast popełniłeś kilka błędów. Ostatnia komenda readln działa bez zarzutu, ale czyta klawisz enter użyty do zatwierdzenia komendy read(cena); . Pozmieniałem read() na readln() , oraz dodałem formatowanie ostatecznego wyniku. USES CRT; VAR ilosc,dlugosc,cena:real; BEGIN clrscr; writeln('Ilosc paczek - 20 szt.'); readln(ilosc);...
W procedurze twlist(...) ilość begin=4, a ilość end=3!!! Tu wyskakuje Twój error,ale dalej też są. Np nieznana proc. dodaj(...), Trzeba dalej analizować. Poza tym nie widzę ciała programu głównego,sterującego wykonaniem kolejnych procedur.Chyba,że źle widzę.
Na drugi rzut to chyba nie chciałem zamykać tej wewnętrznej pętli po dwóch linijkach. Popraw trochę [url=http://www.dzyszla.aplus.pl/porada-... to od razu łatwiej bedzie zauważyć, gdzie się powinny zaczynać i kończyć poszczególne bloki.
Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]
[syntax=pascal]Program xyz; uses crt; Var cyfra:integer; odp:char; Begin clrscr; Write('Hello, podaj cyfre 4'); Readln(cyfra); if cyfra =4 then writeln('tak to cyfra 4'); if cyfra <>4 then writeln('ty kretynie to nie cyfra 4'); delay(3000); Write('czy 4+4 to 8?'); Readln(odp); if odp ='t' then writeln('brawo, Enstein z ciebie'); if odp <>'t'...
program tablica; uses crt; var t:array[1..10] of integer; i:integer; begin clrscr; writeln ('Wpisz 10 liczb'); for i:=1 to 10 do readln (t[i]); writeln('liczby podzielne przez 2 to '); for i:=1 to 10 do begin if t[i] mod 2 =0 then writeln(t[i]); end; readln; end; tak wygląda...
wszystko!!!
Nawias zmienić linijkę wcześniej.
Jak ja się bawiłem w TP jeszcze ładnych parę lat temu, to pod tryb graficzny miałem swoje biblioteki takich obiektów jak pola edycji, wyboru, combo-boxy okna i wszystkie inne a'la WinApi obiekty. Więc polecam zrobić sobie takie coś. Jeśli oczywiście pytasz o wprowadzanie danych do programu przez interface graficzny, bo nie bardzo rozumiem Twoje pytanko.
Turbo Pascala to lepiej sobie odpuścić w zastosowaniach internetowych. Za dużo roboty by było :( Jeśli już - musisz po prostu napisać klienta FTP. W przypadku Delphi czy Free Pascala najlepiej będzie skorzystać z gotowców Indy.
Nie wiem, co dzieje się z Twoim komputerem, ale u mnie wyniki są całkiem poprawne. http://obrazki.elektroda.pl/9373254200_1... Jeżeli wynik wychodzi ci zero, to znaczy, że najprawdopodobniej nie podajesz poprawnie 'znaku' działania i żadne z obliczeń nie są wykonywane. Kolejną strawą, jest formatowanie wyniku. Jedno co powinieneś zmienić,...
Prosze bardzo ;) Tu znajdziesz Turbo Pascala v7.0 http://www.programowanie.host.sk/pascal-... a tutaj: http://www.programowanie.host.sk/pascal-... przyklady ;)
Pod tym adresem masz Turbo Pascal 5.5 http://www.pobierz.eu/p,1197/Turbo_P... a pod tym Turbo Pascal 7 http://www.dobrepliki.pl/Download-Pl...
To, co jest w głównym (ostatnim) bloku begin ... end, obejmij pętlą nieskończoną: while true do begin __(tu reszta) end; Dodatkowo możesz dodać opcję (w case): else exit; żeby jednak dało się skończyć program;)
W Turbo Pascalu 7 nie będzie działać Prt Scr
Dziwne pytanie, tak samo jak w Windowsie ' Klawisz koło entera (cudzysłów/apostrof)
Zapisać do pliku o rozszerzeniu "BAT". Uczysz się programować w Pascalu, czy obsługi TP 7.0 przy wyłączonym monitorze ? IDE i Skróty FP są właściwie identyczne, poza tym nauka samych skrótów klawiaturowych jest bez sensu - uczysz się ich w trakcie korzystania z programu, po to aby ułatwiały pracę, nie po to by móc je wyrecytować ;) Pozdrawiam, Krzysztof.
Tak, nie będzie żadnego problemu. Dev kompiluje jakby w free pascalu. Dev ma taką przewagę nad FP, TP i BP, że pokazuje Ci dokładnie gdzie masz błąd i jaki to błąd. Przy tworzeniu projektu ustawiasz CONSOLE APP, potem wrzucasz ikonkę w projekt i zapisujesz plik, po kompilacji dostajesz plik *.PAS i tego pliku wymaga nauczyciel. Resztę taką jak projekt...
C:\autoexec.bat Któreś z poleceń brzmi mniej więcej tak: keyb pl,,C:\WINDOWS\COMMAND\keybrdx.sys gdzie x to numer klawiatury, w przypadku polskiej programisty powinno być 4.
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ć...
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
Czyżbyś miał niekompletną wersję TP7? Spróbuj może ściągnąć ją stąd: http://www.simonhuggins.com/courses/prog... lub stąd: http://www.softportal.com/?id=2409
Nigdy nie używałem rzutowania w pascalu gdyż nie było potrzebne. Wystarczała funkcja round(). Shift + F1. Bardzo przydatne narzędzie w Pascal IDE.
Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.
musisz zmienic w atuexec.bat czionke z koncowka 2 na koncowke 4, niestety w tej chwli nie pamietam dokladnie nazwy, ale jest tylko jedno cos z 2 przed rozszerzeniem. pozdrawiam dokladnie: C:\WINDOWS\COMMAND\keybrd2.sys zmien na: C:\WINDOWS\COMMAND\keybrd4.sys
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
Nie wszystko działa jak należy ale masz punkt zaczepienia. PROGRAM magazyn; uses dos, crt; VAR nr: string; produkt: string; dostawca: string; data: string; nrfvat: string; pop: Integer; plik1: text; Sciezka: String; PROCEDURE Pauza; begin writeln; write ('Wcisnij <Enter>'); Readln; writeln; end; PROCEDURE...
pisane od ręki: program lpttoggle; const LPT_BASE = $378; var str: String; begin port[LPT_BASE] := $00; repeat Readln(str); if (str = 'q') or (str = 'Q') then break; port[LPT_BASE] := port[LPT_BASE] xor $10; until false; end. I wersja dla Delphi wykorzystująca dlportio: program lpttoggle; {$APPTYPE...
Załączam 2 programy do obsługi RS-232 w Turbo Pascalu. Są to programy terminalowe, ale uproszczone w ten sposób, że najpierw jest wczytywane polecenie z klawiatury, wysyłane do modemu, a potem wypisywana jest odpowiedź modemu. Można więc wykonać jedno polecenie AT. Programy operują na portach (bez BIOS'u), jeden z użyciem przerwań, drugi bez. Niestety...
...mam nadzieje, ze zdajesz sobie sprawe z faktu ze nalezy przestawic tryb kompilacji w momencie jezeli chcesz miec binarke...i odwrotnie jezeli chcesz kompilowac w pamieci... ...mozesz tez w opcjach (bodajze opcja Environment..pisze z pamieci wiec moge sie mylic) jest mozliwosc przypisania katalogu w ktorym ma znalezc sie po kompilacji plik wykonywalny.
http://www.dzyszla.aplus.pl/programy_i_t... = w C
Może nie jest to idealne rozwiązanie, ale spełnia postawione przez ciebie warunki. [syntax=pascal]program minutnik2; uses WinDos,CRT; const co_ile_godzin = 0; {ile godzin ma trwac odliczenie} co_ile_minut = 30; {ile minut...} co_ile_sekund = 16; {ile sekund...} kod_reset = 'reset'; {kod resetujacy zegar} kod_koniec = 'koniec'; {kod zamykajacy program}...
najprosciej na końcu procedury INIT by wyglądała tak: procedure init; begin Port[COM5 + 3] := $83; Port[COM5 + 0] := 48; Port[COM5 + 1] := 0; Port[COM5 + 3] := $03; Port[COM5 + 4] := 3; end;
Tak, niekoniecznie.
No to wiemy wszystko. Normalnie, Windows 7 nie pozwala na zapisywanie plików w katalogu "Program Files" na dysku C. Przenieś Katalog TP na inny dysk, lub do katalogu swojego profilu : C:\USERS\twoja_nazwa_użytkownika. Możesz także w konfiguracji TP zmienić katalog docelowy kompilacji (menu Options/Directories), na taki który nie będzie kolidował z systemem...
Już wiem dlaczego to nie działa. Otóż Free Pascal nie obsługuje struktur MEM, MEML, MEMW i PORT. Za to Turbo Pascal 7.0 Jak najbardziej. A zatem najprościej będzie zmienić Ci IDE. Możesz też poszukać biblioteki do FP o nazwie GO32.PPU. Wszystko to jest opisane tutaj: http://coleweb.dc.fi.udc.es/docencia/edi...
w Turbo Pascalu wszystko ładnie chodzi A tego Turbo Pascala uruchamiasz w Windowsie? W Windowsie, w trybie chronionym nie możesz bezpośrednio wywoływać przerwań.
Rozmawiamy teraz o Turbo Pascalu czy o Delphi/Free Pascal/Lazarus? Pascal (Turbo Pascal/Borland Pascal) nie ma możliwości deklarowania tablic bez podania rozmiaru (tablic dynamicznych). Natomiast Delphi, jak najbardziej. [syntax=delphi]program Project1; {$APPTYPE CONSOLE} uses SysUtils; type rekord = record dana1 : integer; dana2 : real; end; var tablica...
Pascal = język programowania. Turbo Pascal = stare środowisko programowania. Dev Pascal = nowe środowisko programowania. Tak to można [bardzo nieprecyzyjnie] określić.....
Kolega pewno używa Turbo Pascala tam te znaki wyglądają tak samo ale nie można ich zamieniać. Sprawdzałem to przed chwilą.
No właściwie to chodziło mi o Turbo Pascal 7.0 przypominam sobie jak robiło się w tym krzyżówki czy obsługę myszki itd.
Maksymalny rozmiar jednej zmiennej przechowywanej w pamięci to 2^16 = 65536 bajtów. W rzeczywistości (TP 7.0) możesz ustawić maksymalny "Stack Size" na 65520 bajtów. Trik polega na tym, że Turbo Pascal nie przewiduje więcej miejsca w pamięci niż te 65536 bajtów na przechowywanie zmiennych. Jak zajmiesz całość jedną zmienną, to nie będzie "miejsca" na...
No to sprawa się trochę komplikuje... 1. Można TP7.0 uruchomić pod Win7 64bit, bo sam takiego używam. [url=http://www.elektroda.pl/rtvforum/to... Turbo Pascal-a w systemie Windows 7 64bit. 2. Jeżeli chcesz tym kodem wpłynąć na działanie portu, używając Win7, to wybij to sobie z głowy. Instrukcja PORT w Pascal-u, może zadziałać...
A właśnie, że kompilowałem. Błędy "constant out of range" zgłaszają: Delphi, GNU Pascal oraz stary poczciwy Turbo Pascal. Tu masz dowód, że jest tak, jak mówię: Tak więc błędy są , a te dwie linijki kodu nie wykonają się tylko dlatego, że akurat nie wywołujesz procedury ala z parametrem "M" równym 4 lub 8. A odnośnie Twojego pytania, to nie dziwię się,...
POMOCY!!! Czy znacie grę samotnik??? Bo ja nie :-( Mam napisać na pracę kontrolną kod źródłowy tej gry na tą sobotę pomożecie, poradzicie ???
Najpierw musisz mieć ten plik z danymi. W tym celu tworzysz więc program, który zapisze twoją tablicę rekordów z danymi osób (co to rekord mam nadzieję wiesz) do pliku binarnego. Następny program korzysta z takiej samej tablicy rekordów i i wczytuje plik binarny do tej tablicy. Potem iteracja (przejście kolejno) po elementach tablicy (rekordach) i obliczenie...
borland turbo pascal programy turbo pascal turbo pascal książek
ograniczenia czasowe jakie przewód pomiarowy bujanie obrotów
woskowanie samochodu termet przezbrojenie
Fisher CA905 – jeden kanał nie działa, drugi zniekształca dźwięk – diagnostyka i typowe usterki KIA Venga 1.4 benzyna – wymiana rurki bagnetu, O-ring, numery OEM, montaż