turbo pascalu

Jak oddzielić niebo i ziemię w Turbo Pascalu?

A jak to sprawdzic ktory jest w srodku ??? toc to zwykla geometria :!: poniewaz twoj trójkat (patrzac po lini ktora nazwales podstawą) jest skierowany w dół zrób taki prosty myk : przesuń sie na środek "podstawy" czyli (250, 300) i zejdz 1 jednostke w dol (ze wzgledu na orientacje trojkata) czyli punkt (250,299) powinien byc w srodku

[Turbo Pascal] Jak odczytać kolor piksela z pliku BMP w Turbo Pascalu?

Witam. Oto nieco pelniejsza odpowiedz: Wczytywanie BMP - tu bedzie maly problem. Najlepiej byloby, gdybys poszukal w necie opisu naglowka pliku BMP, bo musialbys z tegoz naglowka wyciagnac pewne informacje na temat obrazka - chociazby szerokosc i wysokosc. Pozniej kolejny problem - obraz w pliku bmp zapisywany jest "do gory nogami", tzn. pierwsza pozioma...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

[Turbo Pascal] Jak w Turbo Pascalu stworzyć program uruchamiający się przy starcie systemu?

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...

[Turbo Pascal] Jak w Turbo Pascalu dodać lub odjąć liczby w tablicy dwuwymiarowej?

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...

Jak poprawić program totolotka w Turbo Pascalu na zaliczenie?

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 :)

Jak napisać procedurę do wyśrodkowania tekstu w Turbo Pascalu?

Procedure Center(text : string); const kol = 80; wier = 25; begin GoToXY( Round((kol - Length(text))/2), Round(wier/2) ); Write(text); end;

Obliczanie pierwiastka metodą newtona w turbo pascalu, potęgowanie??

Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.

Sortowanie liczb w Turbo Pascalu trzema metodami - jak to zrobić?

www.google.pl wpisz np algorytmy sortowania i dostaniesz odpowiedz na swoje pytanie

Jak użyć instrukcji CASE w Turbo Pascalu dla przedziałów liczbowych?

To nie są dwa warunki, tylko przedział (jak napisałeś na początku) case można traktować jak argumenty warunku in

[Turbo Pascal] Błąd w kodzie szukającym liczb pierwszych w Turbo Pascalu - jak go znaleźć?

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...

Jak zaimplementować algorytm Nevile'a w Turbo Pascalu? Debugowanie kodu

To może zamiast for k:=0 to 5 do for i:=0 to 5 do zrób for k:=0 to 5 do for i:=k to 5 do

Jak działa program zamieniający liczbę na słowa w Turbo Pascalu?

Witam Program działa na zasadzie rekurencji. Procedura LiczbaSlownie wywoływana jest tyle razy ile cyfr ma liczba. Dla liczby np. 123 będzie to nastepująco 1. wywołana jest procedure w programie głównym z parametrem 123. 2. Jeśli liczba jest wieksza od 9 to wywolywana jest ta sama funkcja ale już z parametrem 123 div 10 czyli 12. a) Jeśli liczba jest...

Jak napisać program losujący liczby w zakresie 100 w Turbo Pascalu?

Random(100);

Formatowanie danych w Turbo Pascalu do pliku TXT dla Action Script

write(plik, 'ciąg')

[Pascal] Jak odczytać metadane EXIF z pliku .jpg w Turbo Pascalu?

Poszukaj sobie opisu formatu JPEG i tam będzie rozpisane co gdzie jest. Utworzysz sobie odpowiedni typ danych i wczytasz do nich nagłówek, a potem to już z górki. Można byłoby znaleźć jakąś gotową biblotekę ale pewnie nie o to chodziło nauczycielowi.

Kod w Turbo Pascalu do obliczania obwodu i pola trójkąta równobocznego

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.

Rs232. Potrzebny kod źródłowy w turbo pascalu. Wysyłanie i odczytywanie znaku.

Może to: ftp://garbo.uwasa.fi/pc/turbopas/tpv24.z... PS. Niech kolega nie oszukuje, że szukał. http://www.google.pl/search?hl=pl&q=%22t...

Jak napisać program w Turbo Pascalu do znalezienia najmniejszej z trzech liczb?

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,...

Jak wysłać wartość &hFF na port &h378 w Turbo Pascalu?

Jest tablica port czy ports, do ktorej mozesz pisac jak i z niej czytac. np port[$80] := 10; A jesli nie odpowiada CI taka opcja, to uzyj wstawe asemblerowych i instrukcji out i in.

Jak zrobić zrzut ekranu wykresu w Turbo Pascal i zapisać jako JPEG?

W Turbo Pascalu 7 nie będzie działać Prt Scr

Jak skompilować aby uruchamiał sie jak zwykły program?

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

Błąd Runtime error 216 przy inicjalizacji trybu graficznego 13h w Free Pascal 2.6.4

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ń.

Jak w Turbo Pascal użyć komend AT do wysyłania SMS przez modem Nokia 6210?

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...

[RS232] Jak napisać program do przechwytywania danych przez RS232?

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...

Program - aproksymacja metodą najmniejszych kwadratów. Turbo Pascal.

mowisz i masz (w pascalu i metoda najmnijeszych kwadratow):

AtMega16a nie reaguje po zmianie prędkości zegara - jak odblokować?

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...

Jak zwiększyć rozmiar tablicy dynamicznej rekordów w Pascalu?

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...

[Turbo Pascal] Jak odczytać kod ASCII znaku z ekranu w trybie tekstowym?

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...

Jak zaprogramować AT89c2051 używając prog2051.pas i hnb.pas?

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.

[Turbo Pascal] Jak przeszukiwać tablice i obsługiwać klawisze w Turbo Pascal?

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...

Jak połączyć uKontroler 2313/89s52 z PC przez UART RS232 w Turbo Pascal?

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...

Gdzie znaleźć kod prostego kalkulatora w Turbo Pascalu?

Chłopie to najprostszy program jaki można napisać. uses crt; var l1,l2,decyzja:integer; 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); end; procedure odejmij; begin writeln(l1,'-',l2,'=',l1-l2); end; begin clrscr; writeln('Podaj 1...

[Turbo Pascal] Jak posortować wylosowane liczby w Turbo Pascal?

Może zamiast write wpisz wszędzie writeln

[Turbo Pascal] Jak zainicjalizować bibliotekę Graph w Turbo Pascal 7?

lepton: wystarczy zajrzec do helpa pascala pod InitGraph tam jest ladny przykladzik podany :)

[Turbo Pascal] Turbo Pascal kalkulator: jak uniknąć błędów przy operacjach i typach zmiennych?

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...

[Turbo pascal] Jak używać Turbo Pascal do programowania na Gameboy Advance?

Tak ja także bym prosił o jakieś informacje ponieważ szukam od dłuższego czasu i nic nie wymyśliłem.

[Turbo Pascal] Jak napisać animację napisu INFORMATYKA w Turbo Pascalu?

http://4programmers.net tam wszystko zostalo opisane w dziale artykuly dla turbo pascala.

[Turbo Pascal] Jak napisać program obliczający silnię w Turbo Pascalu?

Możesz zrobić na dwa sposoby rekurencyjnie albo w pętli, oba wg wzoruk książkowego.

[Turbo Pascal] Jak dodać licznik błędów w grze wisielec w Turbo Pascal?

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('╔...

Turbo Pascal 7.0 - wykres x,y - błąd TYPE MISMATCH przy zmiennej real

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.

Ekran w pamięci. Gdzie to dokładnie się znajduje?

Po pierwsze nikt tu nie wspominał że chce pisać programy działające na każdym możliwym sprzęcie. Pisząc program w DOSie spokojnie można zapisywać dane bezpośrednio do pamięci ekranu. Tak przecież kiedyś było pisanych większość programów. Zgoda że nie zadziała to na karcie Hercules, bo w niej adres ekranu jest inny, ale w tym przypadku kogo to obchodzi?...

Programowanie mikrokontrolerów PIC w Turbo Pascalu - czy to możliwe?

wie ktoś może czy można programować pic w turbo pascalu?????

Sterowanie pinami LPT w Turbo Pascalu - jak to zrobić?

A co mam zrobić, jeżeli w WinXP nie ma bezpośredniego dostępu do portu. W tym przypadku nawet wstawki z assemblera nie działają.

[Turbo Pascal] Błąd 113 przy zapisie listy do pliku w Turbo Pascal - jak naprawić?

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ę.

[Turbo Pascal] Jak naprawić błąd 89 w Turbo Pascal przy obliczaniu ceny paczki kwiatów?

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);...

Turbo pascal - Jak ugryźć początek programu tablica z funkcja randomize?

W Pascalu funkcja Random(x) losuje liczby całkowite z przedziału Zepsułeś całą niespodziankę :)

Stary komputer - jak to ugryźć? Może nie dosłownie ;-)

Zastosowanie jak najbardziej słuszne. Komputer ma wręcz nie ograniczone możliwości programowania nawet taki jak 386 i 486. Mozna je oprogramować pod Turbo Pascalem lub C. Sam sie kiedyś bawiłem w takie coś - komp sie uruchamiała z dyskietki startowej (niepamiętam już czy dosowej czy win9X) a wraz z nim programik rejestrujący stany LPT i załączający...

Jak uruchomić program kalkulator napisany w Turbo Pascalu?

Witam :) Napisałem kalkulator w Turbo Pascal, ca dalej muszę zrobić by powstał program .. ?

Jak zmienić priorytet Turbo Pascal 7.0 przy 100% obciążeniu CPU?

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.

Jak dostosować skalę wykresu słupkowego w Turbo Pascalu?

Przelicz skale, Nie wiem w jakim trybie pracujesz, powiedzmy, że 400 pikseli to maksymalna wysokość słupka jaką możesz wyświetlić. Teraz robisz tak: 1.Znajdź maksymalną wartość słupków (czyli przejdź przez wszystkie dane i znajdź maksymalną) 2.oblicz z typem double jaka powinna być skala, żeby najwyższy słupek zajmował cały ekran: double skala:=400/maksymalnyslupek;...

[Turbo Pascal] Jak stworzyć chat w Turbo Pascal z ciągłym pisaniem bez zamykania programu?

while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!

Woltomierz wirtualny. Program w C lub w Turbo Pascalu.

Mam prosbe, ma ktos może program w C badz w turbo pascalu "woltomierz wirtualny"

[Turbo Pascal] Jak napisać program w Turbo Pascalu do konwersji kwoty na słowa?

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

Jak zainicjować 'skip', 'con' i 'repchar' w Turbo Pascalu?

Wszystkie wymienione przez Ciebie słowa/funkcje/procedury nie istnieją w standardowych bibliotekach Turbo Pascal-a. Na 99% jest to "produkcja" autora/autorów w/w książki. Biblioteka zawierająca te funkcje powinna znajdować się na załączonym do książki nośniku.

[Turbo Pascal] Tworzenie paska postępu w Turbo Pascalu dla obliczeń w czasie rzeczywistym

No to chyba ten mój pomysł będzie najodpowiedniejszy, możesz zadać dowolną dokładność wyświetlania zmienną ilosc_elementów_paska.

Jak zapisać wyniki do pliku .dat w Turbo Pascalu?

Odpowiedź do powyższego postu: Jeśli wyniki z turbo pascala zapiszę w pliku .dat lub .xls to każdy szanujący się program do wykresów otworzy mi te pliki. Chodziło mi tylko o mozliwość zapisu. Jeśli istnieje,to problem rozwiązany.

Jak zaimplementować obliczenia z dwóch plików w Turbo Pascalu?

to jest fragment kodu nie wiem czy poprawny program Interp03; {$MODE DELPHI} uses Windows; type wektor=array[1..50] of real var wek_x,wek_y :wektor; var x:Real; var i,ilosc_danych,wynik :Integer; var plik1,plik2,plik3 : Text; function linia1(var a,b,c,d,e:Real):Real; begin if a<>c then linia1:=b+((d-b)/(c-a))*(e-a); end; begin Assign(plik1,'E:\Zad1\Dane1.txt');...

Turbo Pascal: Jak dokończyć program obliczający pole trójkąta?

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...

Sterowanie przekaźnikami przez Mikro Sterownik LPT w Turbo Pascalu

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.

Program w turbo pascalu. Wyświetlanie tekstu w podanym miejscu.

To może umieść swój kod to podpowiemy co zmienić...

Program w Turbo Pascalu - test wyboru, wyświetlenie oceny.

Witam. Potrzebuję na informatykę następujący program w Pascalu. Zadanie: 1. Musi to być test wyboru (a, b, c, d) gdy wybierzemy jedną odpowiedź to pytanie znika i pojawia się następne. 2. Licznik wyświetlający, który jest aktualnie numer pytania i ile zostało zaznaczonych poprawnych odpowiedzi. 3. Gdy dojdziemy do końca pytań to program wystawia ocenę....

Mam do napisania program w turbo pascalu. Czy ktoś mi pomoże

temat z kosza:p http://www.elektroda.pl/rtvforum/viewtop... cały działajacy program uses crt; var i,m,n,p:integer; begin clrscr; write('Podaj m: '); readln(m); write('Podaj n: '); readln(n); write('Podaj p: '); readln(p); for i:=m to n do if (i*i) mod p=0 then writeln(i); readkey; end.

Jak zmierzyć ping i przypisać go do zmiennej w Turbo Pascalu?

Po raz kolejny wróciłem do Pascala i znów mam problemy, a mianowicie taki ze nie wiem czy w Pascalu mozna zmierzyc ping i przypisac go jako zmienna. Wiem ze w cmd istnieje proste polecenie i takie same chciałbym zastosowac w moim programie w Pascalu. Za pomoc z góry dziekuje.

Jak zmienić znaki trybu tekstowego DOS w Turbo Pascalu?

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...

Turbo Pascal - Sumowanie elementów tablicy dwuwymiarowej

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.

Jak napisać program w Turbo Pascalu do wykrywania typu procesora?

Może jeszcze jakieś pomysły nie koniecznie w Turbo Pascalu, może być Asembler, Delphi, C++ ??? pozdrawiam

[Turbo Pascal] Wyświetlanie tekstu za pomocą znaków

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...

[Pascal] Jak naprawić błąd wczytywania BMP w Turbo Pascalu?

Chablak wykorzystałem twój moduł jednak mam dalszy problem z programem. Gdy skopiowałem twój program który tutaj wkleiłeś do Pascala i uruchomiłem obrazek wyświetlił się i po naciśnięciu dowolnego klawisza wyłącza się, jednak gdy wkleiłem ten sam kod do programu który umieściłem wcześniej, program wyświetla pierwszy obrazek i zawiesza się(obrazek zostaje...

Turbo Pascal, program ma wypisywać liczbe pierwsze.

// w tym miejscu stoję, wymyśliłem pewien algorytm ,że liczba pierwsza to taka która (a mod 2) będzie <> 0 oraz ,że liczba a nie jest podzielna przez żadną z liczb aż do a-1.. Pomyślałem ,żeby zwiększać i=i+1 i znowu sprawdzić czy a mod i=0 Ten pomysł jest dobry, sprawdź taki kod (spróbuj to dokładnie zrozumieć): readln(n); a:=2;...

[Turbo Pascal] Oblicznie pola figur geometrycznych.

[...] begin repeat writeln('Pole jakiej figury chcesz policzyc?'); writeln('1-kwadratu'); writeln('2-prostokata'); writeln('3-kola'); writeln('4-trojkata'); writeln('0-koniec zabawy'); writeln('Wpisz numer figury i kliknij Enter:'); readln (decyzja); if decyzja=1 then kwad;...

Zastosowanie constructor i destructor w Turbo Pascalu - do czego służą?

Witam! nurtuje mnie ta instrukcja podana w temacie do czego ona służy w turbo pascalu ?

Jak zapisać wszystkie wyniki do pliku tekstowego w Turbo Pascalu?

otwórz plik przed pętlą, zamknij za pętlą.

Jak stworzyć bazę danych w Turbo Pascalu? Jakie narzędzia są potrzebne?

dzięki za pomoc:) ciemna chyba aż tak nie jestem wiec jak napisze to pokaże:) a tak na przyszłość to może mam niski poziom pascala ale przynajmniej nie pisze wypożyczanie przez 'rz':O ale loozik, wielkie dzięki

Jak w Turbo Pascalu stworzyć quiz z automatycznym wyborem odpowiedzi?

Dobrze zrozumiałem - program SAM ma wybierać prawidłową odpowiedź spośród podanych? Bez żadnej ingerencji użytkownika? Sztuczna inteligencja?

Jak skalować wykres słupkowy w Turbo Pascalu i używać pętli?

Jeśli skale nie muszą być, jak twierdzisz, to nie mogę tego poprawić, bo się nie da. Ma globusie nie znajdziesz ulicy Poziomkowej w Warszawie a na planie Warszawy nie znajdziesz Waszyngtonu.

Jak napisać działający program do obliczania pierwiastka w Turbo Pascalu?

Tu masz rozwiązanie swojego problemu: http://www.elektroda.pl/rtvforum/topic76... http://www.elektroda.pl/rtvforum/topic70... Pozdrawiam. bbxb.

Jak sterować portem LPT w Turbo Pascalu do obsługi robota?

Wityam Ma ktoś program do wlączania i wyłączania urzadzen pod dos'a np.napisany w TP,albo niech ktos poda procedure wlaczenia i wylaczenia jak wyslac 1 i 0 na pin do LPT :)

[POMOCY!!!!!!!!!] Jak napisać program w Turbo Pascalu: listy, stos, kolejka?

bardzo dobra ksiazka polecam :D:D:D:D:D

Kompilacja programu prog2051 w Turbo Pascalu dla programatora AT89C4051 z PE

Dlaczego sam nie skompilujesz tego programu w Pascalu?? Wystarczy: (foto obczaj)

Jak posortować alfabetycznie imiona w Turbo Pascal?

Trzeba by zrobić listę lub tablice ze stringami. Sortowanie może polegać w taki sam sposób jak sortowanie liczb (można porównywać kody ASCII - ich ułożenie rośnie wraz z kolejnymi literami alfabetu). Trzeba by tylko rozważyć sortowanie wg kolejnych liter (pewnie za pomocą rekurencji jakiejś). Zadanie dość typowe na pewno coś znajdziesz Google "sortowanie...

[Turbo Pascal] Liczenie pól trójkąta różnymi metodami.

Sprawdzanie danych można zrobić tak: 1) Dane powinny być liczbami dodatnimi repeat Write('Podaj długość boku, a = '); Readln(a); if a<=0 then Write('Błąd! Długość boku powinna być dodatnia.'); until a>0; Proponuję również ten schemat wprowadzania danych zastosować w całym programie, tzn. poprzedzać wczytywanie komentarzem...

[Turbo Pascal 7.0] Kilka pytań na temat pisania programów

No dobrze ale jak mam wpisać żeby program zapisywał odpowiedzi użytkownika a nie pytania które on dostanie na ekranie? Bo ja zakładam, że te odpowiedzi mogą być za każdym razem inne. Odpowiedź jest dokładnie wciąż ta sama. Skoro odpowiedź jest zapisywana do zmiennej poprzez readln, to tą zmienną należy zapisać do pliku. [syntax=pascal]writeln(f, 'Chciałbym...

Turbo Pascal, tworzenie pliku w określanie lokalizacji!!

To nie możesz po prostu złączyć "c:\"+np ?? Dodano po 53 PS. To nie jest "nie wiadomo gdzie" tylko w katalogu roboczym (jeśli nie podajesz ścieżki)

Turbo Pascal. Program szyfrujący. Wykorzystanie szyfru Cezara.

litery inne niż małe: możesz zrobić tak: program test; uses crt; procedure test_znak; var ch : char; begin repeat writeln('Podaj znak do zakodowania: '); ch := readkey; until (ord(ch) >= ord('a')) and (ord(ch) <= ord('z')); writeln('Podales: ',ch); end; procedure test_liczba;...

Problem instrukcja "case of" turbo pascala

Z tego co pamiętam to byłoby coś takiego: Piszesz żeby wcisnąć przycisk 1, 2 lub3 Writeln('Wybierz: 1,2,3'); Readln(a); case a of 1: procedura1; 2: procedura2; 3: procedura3 end

Baza danych w Turbo Pascalu - błędy w programie sklepu komputerowego

Dlaczego ma być nieprawidłowy? Jak byś zapisał do pliku array?

Tworzenie własnych modułów w Turbo Pascalu 7.0 - przykłady i wskazówki

Wszystko ok tylko bez "procedure" tzn: [syntax=pascal] program testmoduluaaa; uses crt2, aaa; begin writeln('Wpisz cos'); czyt_z_klawiatury; [/syntax]

Dlaczego instrukcja in w ASM C++ nie działa dla portów powyżej 255?

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...

Jak napisać program w Turbo Pascalu do identyfikacji klawiatury rozkazem F2h?

witam, mam napisać programik identyfikujący klawiaturę użyć rozkazu F2h (w turbo Pascalu) może znajdzie sie ktoś kto pomoże??

[Delphi] Symulacja klawiszy w Turbo Pascalu do notatnika z pliku .txt

Turbo Pascal? Dos? Niemożliwe. Języka nie trzeba zmieniać, wystarczy środowisko (np Delphi)

Jak uruchomić Turbo Pascal na Windows 7? Niezgodność z systemem operacyjnym

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...

Jak odczytać dane z pliku tekstowego w Turbo Pascalu dla programu aproksymacja?

Kto mi powie jak odczytać dane z pliku(txt) dla danych parametrów (czyli np. n=, a=, b= itp.) dla takiego programu: program aproksymacja; uses crt; type tablica=array ); writeln('podaj y

Jak zapisać funkcję y=ae^(bx) w Turbo Pascalu? Aproksymacja liniowa

Jak zapisać w Turbo Pascalu funkcje y=ae(bx)' (bx) - potęga?? Chodzi tu o aproksymacje liniową!!! Czy może to być tak że : y=exp(xln(y))???prosze o pomoc!!!

Jak zapisać i odczytać plik tekstowy w Turbo Pascalu? Błąd w procedurze

zrobiłem w ten sposób i pojawia się błąd(zły znak na początku instrukcji) w ostatnim wierszu przy end. co tu może być nie tak?? program aproksymacja; uses crt; type tablica=array end.

Jak zmienić stany pinów STROBE i SELECT na LPT w Turbo Pascalu?

Odwoływać musisz się doportu o ardesie 2 większym. A ze zmianą karzdego pinu z osobna to trochę sie zabawisz, bo istrukcja out zmiena przynajmniej 8 jadnocześnie. A jak to ominąć? Ano trzeba wiedzieć które bity z portu odpowiadają za daną linię i wysyłać do niego takie liczby w których wszystkie pozostałe bity są nie zmienione, a tylko ten interesujący...

[Turbo Pascal] Turbo Pascal Error 36 przy rozpoznawaniu płci – błąd w kodzie, jak naprawić?

Kompiluje w Turbo Pascalu 7.0 O. przenioslo teraz. Cos z lenghtem jest nie tak. ale nie wiem co . Straszne cyrki z tym pascalem dzis miałam.

Jak ustawić jasne tło w trybie tekstowym DOS w Turbo Pascalu 7.0?

Dokładniej w Turbo Pascalu Jeżeli dobrze pamiętam nie każda EGA miga

[Turbo Pascal] Zapis do pliku, szukanie, wyświetlanie danych

Procedura w takiej formie : {procedura wyszukiwania filmu wedlug zadanego klucza} procedure wyszukaj; var p : file of film; f : film; s : string; x : integer; begin write('podaj tytul filmu ktory chcesz znalezc : '); readln(s); assign(p,'filmy.dat'); {otwieramy plik} reset(p); {reset...

Turbo Pascal: Wyświetlanie nazw produktów pod wykresem za pomocą tablic

w turbo pascalu

Jak połączyć ramkę z menu kalkulatora w Turbo Pascal?

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);...