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;...
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. 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.
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
różnicówka przewody satel serwer internet palmtop
kostka przedniej lampy suzuki swift
Epson L356 – wymiana płyty głównej, konfiguracja, Adjustment Program, Head ID Kabina prysznicowa walk-in bez brodzika – odpływ liniowy, hydroizolacja, szkło ESG, trendy 2024