TO zależy co ma robić Twój program. Standrdowo na dyskietce muszą zostać (i to w odpowiednich sektorach fizycznych) msdos.sys, io.sys, himem.sys, command.com - jeżeli planujesz korzystać z interpretatora poleceń, no i plik bat Inne pliki z dyskietki startowej to "dodatki": obsługa CD, myszki, klawiatury z polskimi znakami itd. Pisanie systemu to chyba...
Pozdrawiam chemik143. Kiedyś mieszkałem w Cieszynie. A oto program: Uwaga: w linii write('podaj wartosc tablicy [',i,' ',j,']= '); musisz podawać wartości w postaci np 32 12 i enter czyli 32 spacja 12 ENTER uses crt; var tablica:array[1..100,1..100]of integer; i,j,n,k,w,wynik:integer; op:char; begin clrscr; writeln('program wypelnia tablice dwuwymiarowa...
Tak zapisana funkcja ma wadę, na moim komputerze sprawdzenie czy 2.000.000.011 jest pierwsze zajęło minutę i 22 sek. długo...., podobnie długo trwało sprawdzenie liczby 2.000.000.012, a przecie już po chwili wiemy że liczba ta pierwsza nie jest. Pewnym ulepszeniem będzie: . pier:=false; . if not odd(L) then EXIT; . for i:=2 to L-1 do . . if L mod i...
www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie
To nie są dwa warunki, tylko przedział (jak napisałeś na początku) case można traktować jak argumenty warunku in
Prosty to prosty :) tylko nie pamiętam jak przerwac pętle porównująca liczby tam gdzie jest znak zapytania ale to moze sama cos wymyslisz bo ja nie robiłem notatek i teraz nie pamiętam jak to leciało :)
write(plik, 'ciąg')
Masz: Uses crt; var a,h,pole,obw:real; begin clrscr; write('podaj dlugosc boku ');readln(a); h:=sqrt(3)/2*a; obw:=3*a; pole:=a*h/2; writeln('wysokosc trojkata= ',h); writeln('obwod= ',obw); writeln('pole= ',pole); writeln('pressed key'); readkey; end.
najbardziej prostackie rozwiazanie jest takie program blablabla; var a,b,c: integer; begin readln(a); readln(b); readln(c); if a>b then if a>c then writeln('najwieksza jest:',a); if b>a then if b>c then writeln('najwieksza jest:',b); if c>a then if c>b then writeln('najwieksza jest:',c); readln; end. i jesli sa to twoje poczatki to zacznij od tego,...
Taki mam pomysl choc w T pascalu dawno juz nie pisalem : Co do poruszania sie to mozesz zrobic case'a i zwiekszac lub zmniejszac numer indeksu tablicy Tab[indeks] wcisniecie klawisza strzalka w gore indeks+1 i ponownie wyswietlac analogicznie dla strzalki w dol Pamietaj zeby zabezpieczyc sie przed wyjsciem poza zakres tablicy :!: Co do przeszukiwania...
mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):
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...
W Turbo Pascalu 7 nie będzie działać Prt Scr
W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)
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.
1/ lpt to kontroler równoległy (działa pod bazami 0x378 0x278), a kontroler uart(rs232) jest szeregowy więc niewiem poco nawiązywać do lpt.. 2/ z tego co pamiętam to at90s2313 posiada uart.. opis jak go zaprogramować można znaleźć w dokumentacjach.. 3/ co do programowania rs232 od strony komputera w turbo pascalu - niewidze przeszkód jeśli nieużywasz...
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ń.
Mały błąd się wkradł w program...mianowicie kawałek kodu był w nawiasach...wersja skompilowana w Turbo Pascalu do pliku pwm.exe w załączniku. Ps: Kompilacja do pliku exe w Turbo Pascalu COMPILE -> BUILD
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...
A no bo no... ;) Ja z tych leniwych "dzieci", którym nie po drodze z grubą książką do C i translatorem z angielskiego ;) Zaczęło się od Basica w Commodore C64. Potem liznęło Turbo Pascala i Delphi. Po tym wszystkim C to język "bardzo obcy" więc został Bascom i jego narzędzia zintegrowane. Widzę, że kolega przeszdł podobną drogę. Też po Turbo Pascalu...
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...
ostatni raz w Turbo Pascalu pisałem 1996 roku, już nie pamiętam składni Downlołduj darmowy Visual Basic ze strony MS i pokombinujemy jak rozwiązać Twój problem, chyba nie będzie to zbyt trudne [url=http://www.microsoft.com/express/vb...
Ten programator pomimo ze bardzo prosty to dziala. Sam go uzywam i jest OK. Do niego jest zalaczony programik w pascalu ktory trzeba skompilowac do exe'ka lub uruchomic bezposrednio pod Turbo Pascalem. Po uruchmieniu z parametrem (nazwa.bin) prosi o wcisniecie przycisku RESET, pozniej naciskamy np spacje i programuje. Edit: No i dolaczam skompilowany.
Nadal za mało informacji... Oto przykład rozwiązania podobnego problemu w Turbo Pascalu (pod WinXP należy odblokować porty przy pomocy UserPort): uses crt; var stan: byte; p: char; begin repeat p:=readkey; write(p); if p='w' then begin stan := port[888]; {odczyt portu} port[888] := stan or 16; {16...
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ę,...
Nic nie jest zablokowane; chodzi o to, że rozkaz IN występuje w 2 wariantach: IN AL/AX/EAX, imm8 - tej wersji użyłeś, jak widać, stały adres portu jest 8-bitowy, więc nie można odwołać się do portów o wyższych numerach; IN AL/AX/EAX, DX - w tej wersji numer portu podaje się w rejestrze DX, który - jak wiadomo - jest 16-bitowy ;) I tego wariantu należy...
... wciąż coraz lepiej naśladujący japończycy czy chińczycy znikną za zakrętami historii. Japończycy raczej nie naśladowali - to ich często próbują naśladować. Chyba się trochę zdenerwowałem, bo znów widzę jak my - Polacy ciągle staramy się odkryć na nowo to co już jest dano znane całej reszcie świata. Szczególnie w dziedzinie, gdzie trzeba szybko...
No to chyba ten mój pomysł będzie najodpowiedniejszy, możesz zadać dowolną dokładność wyświetlania zmienną ilosc_elementów_paska.
Może zamiast write wpisz wszędzie writeln
Poszukaj na www.4programmers.net Tam coś takiego widziałem. a dokładniej to tu http://4programmers.net/file.php?id=1487 :) pod delphi co prawda ale to to samo
Z grafiki w TP dużo mi sie juz zapomniało (z resztą wogóle mnie to nie interesowało), ale wydaje mi się, że to tego jest funkcja GetPixel - w przeciwieństwie do PutPixel, która ustawia wybraną berwę punktu.
initgraph(gd,gm,'katalog w którym są BGI');
Kompilator do pascala to gdzieś widziałem. Turbo pascal to produkt Borlanda dla PC
Poszukaj opisu portu LPT w sieci lub na elektrodzie. Program widi typowy port LPT jako trzy rejestry: -pod adresem bazowym masz końcówki: 2..9 (I/O) -pod adresem+1 można odczytać stan końcówek 10,12,13 i 15 oraz zanegowany stan końc. 11 -pod adresem +2 możesz odczytać stan końcówek16 oraz zanegowane stany końcówek:17,14 i 1. dodatkowo włączenie/wyłączenie...
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.
Oj nie nie nie, bardzo małe szanse że ktoś Ci tutaj poda gotowy kod... Trzeba się napracować trochę samemu a zgłosić się z jakimś problemem a nie "odróbcie za mnie zadanie..." Nie ma tak łatwo. Chyba że podasz bardzo konretny i dobry powód dlaczego nie możesz tego sam napisać. Swoją drogą to bardzo podstawowy program i można go napisać mając jedynie...
Witam! Jak zaprogramować port LPT w Turbo Pascal, aby włączał i wyłączał urządzenia przez Mikro Sterownik LPT firmy PORT-80H. Chodzi konkretnie o sterowanie przekaźnikami. Szukałem tego na forum, ale nie potrafiłem znaleźć. Pozdrawiam! Remek P.S. Proszę o nie sugerowanie programowania w C lub pochodnym oraz korzystania z Google.
Może jeszcze jakieś pomysły nie koniecznie w Turbo Pascalu, może być Asembler, Delphi, C++ ??? pozdrawiam
Witam! nurtuje mnie ta instrukcja podana w temacie do czego ona służy w turbo pascalu ?
Tak na szybko : program wisielec; uses crt; var s,m:string; l:string[1]; i,z,licznik:integer; poprawna,koniec : boolean; begin; licznik:=0; repeat clrscr; textcolor(green); gotoxy(33,4);writeln('╔...
Dlaczego sam nie skompilujesz tego programu w Pascalu?? Wystarczy: (foto obczaj)
Przecież jest.
Turbo Pascal? Dos? Niemożliwe. Języka nie trzeba zmieniać, wystarczy środowisko (np Delphi)
maciek-slon - tak komputer ma sam wybierac poprawne odpowiedzi
Witam mam program w turbo pascalu, chodzi o baze danych( na 4 rekordach) sklepu koputerowego, ale coś tu pochrzaniłem;/ jak ktoś się w tym połapie to proszę o poprawienie, pozdrawiam. program sklepkomp; uses crt; const: v=100 type art=record; naz:string; cena:integer; ilosc:byte; kategoria:string; end; var plik: file of art;...
Witam. Używam Turbo Pascala v. 7.0 i mam problem z założeniem własnego modułu. W mirę możliwości prosiłbym o przykłady i wskazówki na co mam zwrócić szczególną uwagę. Z góry dziękuję za wszelką pomoc.
Portem sterujesz wpisując bajt do rejestru bazowego (najczęściej $378), pojawi się on na liniach danych. Do pozostałych pinów masz dostęp przy pomocy rejestru o adresie bazowym+2 ($37A), sygnały te są dwukierunkowe, typu otwarty kolektor. Do wpisywania użyj instrukcji Port, np PortB[$378]:=$15 powoduje wysłanie na linie danych stanu binarnego 00010101b,...
witam, mam napisać programik identyfikujący klawiaturę użyć rozkazu F2h (w turbo Pascalu) może znajdzie sie ktoś kto pomoże??
Dokładniej w Turbo Pascalu Jeżeli dobrze pamiętam nie każda EGA miga
pytania turbo pascalu zadanie turbo pascalu programy turbo pascalu
volvo silnika ferguson newcamd sharing regulator napięcia espace
VW 2.5 TDI ANJ – schemat dokręcania głowicy, kolejność i momenty śrub IC502 TL431 AMS1117 78Lxx oraz RM901 TSOP – oznaczenia 3 nóżek, pinouty, identyfikacja