turbo pascal

[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?

initgraph(gd,gm,'katalog w którym są BGI');

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

[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] 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 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!

[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 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 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] Jak odczytać kolor piksela z pliku BMP w Turbo Pascalu?

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.

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.

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

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

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

Potęga w Turbo Pascal. Jak najprościej napisać funkcję?

Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))

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

Jak zmienić kolor tła w Turbo Pascal bez błędu?

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.

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

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

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

Jak zapisać i odczytać tablice z plików w Turbo Pascal?

Ten fragment Twojego kodu assign(imi,'d:\imiona.dat'); rewrite(imi); for a:=1 to 10 do begin writeln('Podaj ',a,'. imie:'); readln(tim[a]); end; write('Imiona: '); for a:=1 to 10 do write(' ',tim[a]); readln; close(imi); pobiera dane (imiona) z klawiatury do...

Turbo Pascal - wybieranie liczb podzielnych przez 2 z tablicy

Witam. Można wykorzystać zmienną logiczną. program tablica; uses crt; var t:array[1..10] of integer; i:integer; tak:boolean; begin clrscr; tak:=false; 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 if t[i]...

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

Brakuje średnika na końcu w trzeciej linijce od dołu

Turbo Pascal błąd napisanego programu, nie widzę przyczyny

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

[Turbo Pascal] Wczytywanie danych liczbowych z pliku TXT.

jeśli znasz rozmiary macierzy, to m razy wykonujesz read(plik,zmienna) i readln(plik) aby przejść do następnej linii (albo już niekoniecznie, nie pamiętam). Czytasz w podwójnej pętli 1-n,1-m, odczytane wartości przypisujesz pod wskazany przez pętle indeks (miejsce) w tablicy. To, jak będzie wyglądać to w dokumencie to w zasadzie kwestia stworzenia specyfikacji....

[Pascal] Jak zapisać dane do pliku txt w Turbo Pascal?

Zawsze jeszcze są Google :) i trochę więcej samodzielności. uses dos, crt; var plik: text; begin assign(plik, 'plik.txt'); rewrite(plik); write(plik, 'to zostanie zapisane do pliku'); end. Pozdr! Ta odpowiedź jest bardzo niestaranna. Brakuje zamknięcia pliku close(plik); Ponadto za każdym razem plik będzie "nadpisywany"...

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

Gdzie znaleźć Turbo Pascal 7.0 i podstawowe zadania do ćwiczeń?

Prosze bardzo ;) Tu znajdziesz Turbo Pascala v7.0 http://www.programowanie.host.sk/pascal-... a tutaj: http://www.programowanie.host.sk/pascal-... przyklady ;)

[Turbo Pascal] Jak stworzyć wzór gwiazdek z pętlą WHILE?

A może w ten sposób ? program gwiazdki; uses crt; var z,k,w:byte; begin clrscr; writeln('Podaj liczbe. '); readln(k); w:=1; while w<=k do begin z:=0; while z<=k-w dobegin write('*'); inc(z); end; writeln; inc(w); end; w:=1; while w<=k do begin z:=0; while z<=k-w do begin write('...

Powrót do menu po wykonaniu obliczeń w Turbo Pascal - jak to zrobić?

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

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

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]

[szukam] Turbo Pascal – gdzie aktualnie pobrać legalną wersję do Windows?

wszystko!!!

Gdzie znaleźć Turbo Pascal do nauki programowania na zaliczenie z informatyki?

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

Turbo Pascal na Windows XP – jak wprowadzić apostrof z klawiatury?

Dziwne pytanie, tak samo jak w Windowsie ' Klawisz koło entera (cudzysłów/apostrof)

Co lepsze Turbo Pascal 7.0 czy Free Pascal (FPC 2.0)

Nawias zmienić linijkę wcześniej.

[Turbo Pascal] Program Permutacje. Zapis danych do pliku.

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

[Turbo Pascal] Kod rysujący prostokąt - Error 200 w kompilatorze

Obiecałem pomóc... słowo się rzekło... 1) Linię programu c:=(645-(6*a))/2; zastąp linią c:=(645-(6*a)) div 2 ; i koniecznie poczytaj o typach zmiennych liczbowych i dzieleniu całkowitym. 2) Natomiast linię e:=c+(2*a)+((1/2)... zastąp linią e:=c+(2*a)+a div 2); 3) Ponadto...

Turbo Pascal - Pobieranie i wczytywanie pliku *.txt z serwera (ftp)

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.

[Turbo PASCAL] Jak poprawnie zapisać i odczytać hasło z pliku binarnego?

Odkodowuje się dokładnie tak samo, tylko zamiast +7 dajesz -7 :). write('Podaj ciag znakow, do zakodowania : '); readln(ciag_znakow); for x:=1 to length(ciag_znakow) do ciag_znakow[x]:=chr(ord&... + 7 ); {!!!!!!!!!!!!!!!} writeln('Zakodowany ciag znakow :...

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 zrobić zrzut ekranu wykresu w Turbo Pascal i zapisać jako JPEG?

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

Pascal - mini kalkulator - błędne dzielenie liczb, Turbo Pascal 7, Free Pascal 2.4.2

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

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

Turbo Pascal 7 - zamiana z na y i pomieszane znaki klawiatury

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.

Turbo Pascal 7.0 na XP - problem z kursorem i zaznaczaniem tekstu

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

Turbo Pascal 7.0 - jak stworzyć graficzne okno z 5 klawiszami?

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

Nieprawidłowe znaki w Turbo Pascal 7.0 na Windows 98 SE

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

Jak wczytać tablicę 4x4 z pliku txt w Turbo Pascal? BlockRead?

Tablica jest z utworzonego pliku w ktorym normalnie są zapisane liczby jedna obok drugiej odzielone spacjami, w czterech rzędach. nie musi byc to opcja blockread, po prostu chce jakimkolwiek sposobem wczytac tablice z pliku. To czytaj zwykłym readln a potem potnij stringa w miejscu spacji (jakaś pętla i funkcja pos powinna wystarczyć) i przetwórz na...

Turbo Pascal – jak przekonwertować real na integer do użycia w pętli for?

trunc(x) obcina czesc ulamkowa z liczby i zostawia czesc calkowita round(x) zaokragla w gore, gdy czesc ulamkowa jest z przedzialu <0.5; 1), a w dol, gdy jest (1; 0.5)

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

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

Błąd Division by zero w Turbo Pascal przy sprawdzaniu parzystości liczby real

Masz PC szybszy niż 200Mhz ... i starego turbo pscala. Poszukaj w sieci jest patch, albo przesiądź się na freepascala.

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

Turbo Pascal 7.0: Przełączanie stanu logicznego na porcie LPT1 w WinXP

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

Borland Turbo Pascal 7.0 - Brak plików *.exe po kompilacji, jak rozwiązać?

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

Turbo Pascal - błąd Error 15: File not found (GRAPH.TPU) przy kompilacji

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

Jak napisać funkcję zwracającą liczby pierwsze w C i Turbo Pascal 7.0?

http://www.dzyszla.aplus.pl/programy_i_t... = w C

Jak napisać algorytm emulatora minutnika w Turbo Pascal 7.0 na Windows XP?

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

Turbo Pascal 7 – błędy przy zapisie ostatniego rekordu 'koniec' w pliku magazyn.csv

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

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.

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

Turbo Pascal – jak zmienić obsługę portu COM3 ($3E8) na COM5 ($2F0) w kodzie?

Możliwe ze problemem wiąże sie z brakiem ustawienia linii RTS i DTR (żądanie nadawania i gotowość do nadawania) Adres bazowy + 4 (modem control register MCR) Modem nie reaguje bo kontroluje stan tych linii. Proponuje przed nadawaniem ustawić Port[COM5 + 4] := 3;

Turbo Pascal – formatowanie liczb w writeln (np. p:2:4) – co oznaczają liczby?

Tak, niekoniecznie.

[TurboPascal] Błąd 146: Odmowa dostępu do pliku przy kompilacji w Turbo Pascal 7.0 na Win7

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

Dev-Pascal - gdzie znaleźć kurs z podstawowymi komendami dla początkujących?

Pascal = język programowania. Turbo Pascal = stare środowisko programowania. Dev Pascal = nowe środowisko programowania. Tak to można [bardzo nieprecyzyjnie] określić.....

DOS i nauka programowania - W czym zacząć programowanie dla DOS?

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.

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

[pascal] [Pascal] Błąd kompilacji przy sumowaniu pięciu cyfr - co robię źle?

A jeszcze tutaj bardzo fajny kurs Pascala: http://turbo-pascal.lubi.pl/index.htm Pozdrawiam.

[Pascal] Dlaczego tablica typu byte w Pascalu ma maksymalnie 64816 elementów?

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

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

[Turbo Pascal] Jak w Turbo Pascal wczytać dane z pliku binarnego i zapisać do innego?

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

[Turbo Pascal] Gdzie znaleźć kompilator Turbo Pascal w wersji okienkowej?

Witam! Nie wiecie gdzie mógł bym znaleźć kompilator do Turbo Pascala w wersji okienkowej, a nie pod DOS-a?? Bo nigdzie nie mogę go znaleźć, a wiem że kolega na studiach pisze właśnie na nim.

[Turbo Pascal] Czym jest zmienna typu Pointer w Turbo Pascal?

Co to jest zmienna typu Pointer...? witam!!! Pytanie jak w temacie. :?: Zamykam. - arnoldziq

[Turbo Pascal] Moduły do obsługi socketów w Turbo Pascal - gdzie szukać?

O jaką wersje kompilatora pascala chodzi?

[Turbo Pascal] Czy schemat blokowy dla programu w Turbo Pascal jest poprawny?

Mógłbyś mi powiedzieć, który dokładnie warunek jest źle zapisany? Zależy mi na tym aby schemat w całości odpowiadał temu co jest zapisane w kodzie programu.

[Turbo Pascal] Turbo Pascal – książki dla początkujących do nauki pisania gier typu tetris, wąż

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

[Turbo Pascal] Jak zmodyfikować program w Turbo Pascal do rysowania piramidki?

czy da sie ten programik przerobic na inna forme tz chodzi mi o to aby nie byl tak samo napisany ale zeby robil to samo <mam nadzieje ze wiecie o co chodzi> program PIRAMIDKA; uses Crt; {uzycie biblioteki Crt} var wiersze,i,j:integer; {deklaracje zmiennych} znak:char; BEGIN clrscr; write('Wprowadz znak do rysowania...

Czy jest możliwość zaimportowania muzyki do Pascala?

Chodzi koledze o TP/BP czy o Delphi? jeżeli o Turbo/Borland Pascal, to sugeruję sobie wybić podobne pomysły z głowy. Pod Delphi jest setki sposobów, żeby coś takiego zrobić. Wystarczy poszukać.

[Turbo Pascal] Jak narysować schemat blokowy i naprawić program w Turbo Pascal?

1. Co nie chce działać? 2. Jakie były założenia? 3. Jeśli robisz przedziały rozłączne, to radzę stosować instrukcję else w celu ograniczenia ilości sprawdzanych warunków.

[Turbo Pascal] Turbo Pascal – jak narysować trójkąt prostokątny zamiast rombu w konsoli?

Spróbuj z takim kodem : program petla_w_petli; uses crt; var n,i,j,x,y:integer; begin; clrscr; write('podaj bok n= '); readln(n); write('podaj wsp x= '); readln(x); write('podaj wsp y= '); readln(y); clrscr; for i:=1 to n-1 do for j:=1 to n-i do begin gotoxy(j+x+i,i+y); write('*');...

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

[Turbo Pascal] Jak uruchomić tryb graficzny Turbo Pascal na systemach po Windows XP?

Coś mi się kojarzy, że biblioteki BGI z Borland Pascala przestały być kompatybilne od SP2 albo SP3 XP... Poszukaj może alternatywnych bibliotek...

[Turbo Pascal] Turbo Pascal – jak zaimplementować losowe strzały komputera w grze w okręty?

Wystarczy napisać warunek porównujący wylosowane współrzędne z bazą już wcześniej wylosowanych. Jeśli wynik się powtórzy następuje ponowna próba losowania.

[Pascal] Pascal – błąd Can't find unit PORTS przy sterowaniu portem LPT, brak biblioteki

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

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi z użyciem modułu DOS?

Hmmm... no chyba, że chcesz stworzyć idealną kopię programu w Delphi, to odpalasz new->console application, robisz ctrl+c, ctrl+v i cieszysz się, że program kompiluje się pod Delphi... bo prawda jest taka, że większość prócz BGI zostało przeniesione z TP do Delphi, wiec nie powinienes miec wiekszych problemow z kompilacją...

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

errate - w której linii? Nie ma nic więcej w opisie błędu?

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

spróbuj w ten sposób : [syntax=pascal]{$N+} uses crt; var a,w : real; i,j,n,m : integer; function potega(x:real;y:byte):double; var j:byte; pot:double; begin pot:=x; for j:=1 to y-1 do pot:=pot*x; potega:=pot; if y=0 then potega:=1; end; begin clrscr; writeln('Podaj a: '); readln(a); writeln('Podaj stopien pierwiastka: '); readln(n); w := 1; i := 100;...

[Turbo Pascal] Jak przenieść program z Turbo Pascal do Delphi i wyświetlić liczby na ekranie?

Delphi to pascal . Praktycznie wszystkie programy napisane w paskalu są kompilowane i uruchamiane w Delphi . Różnica istnieje w pewnych typach .Np. w pascalu typ ineger był 16 bajtowy natomiast w delphi od wersji 2 jest 32 bajtowy .Tak samo w pascalu real był 6 bjtowy ( odpowiada to w delphi real48) natomiast w delphi jest traktowany jako double . Tak...

Turbo Pascal 7.0 Jak zrobić program aby działał?

i w 1 wierszu chyba średnika nie powinno być

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] Turbo Pascal – jak znaleźć min/max i oddzielić parzyste od nieparzystych w tablicy?

Jeżeli będziesz miał jakieś problemy z kodem, np. coś nie będzie działać, to proszę go tu zamieścić. Na pewno ktoś z kolegów chętnie Ci pomoże.

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

Pisalem, ze jest w innym watku. Do inicjalizowania trybu graficznego uzywasz funkcji initgraph z biblioteki graph bodajze zrob shift+f1 to bedziesz mial help w pascalu i tam poszukaj initgraph, pewnie nawet bedzie przykladowy kod cos pokroju uses graph begin ... initgraph(driver,mode,sciezka dostepu); ... end;

[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] Turbo Pascal – menu bazy danych z CASE, jak zatrzymać program po wyborze opcji?

1) Nie programowałem w Pascalu wieki, ale na pierwszy rzut oka - czy read(liczba); nie zwraca czasem kodu ASCII wpisanego znaku? wówczas w case należałoby liczby ująć w apostrof, '1'. 2) Widzę literówkę przy "procedure". 3) Radzę nauczyć się używać wcięć.

[Turbo Pascal] Turbo Pascal – zapis tekstu do pliku .txt, program zamyka się po wpisaniu treści

Spróbuj tak : program zapisywanie_danych; var plik:file of string; txt,nazwa:string; begin writeln('Tresc:'); read(txt); writeln('Nazwa:'); read(nazwa); assign(plik,nazwa); {$I-} rewrite(plik); {$I+} write(plik,txt); close(plik); readln; end.