pytania turbo pascalu

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

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

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

Może zamiast write wpisz wszędzie writeln

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

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

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

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

[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] 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 stworzyć chat w Turbo Pascal z ciągłym pisaniem bez zamykania programu?

Zrób tak : uses Dos, crt; var tekst: string; imie: string; S: string; begin clrscr; while true do begin writeln('Wpisz tekst, ktory chcesz wyslac {Enter - aby zakonczyc} '); readln(tekst); if tekst = '' then break; writeln('Podaj imie'); readln(imie); SwapVectors; S:='net send 192.168.0.102 (tekst)...

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

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 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] 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 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, 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)

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

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

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

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.

[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: Jak dokończyć program obliczający pole trójkąta?

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

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

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

Jak oddzielić niebo i ziemię w Turbo Pascalu?

Po pierwsze primo: wypelniasz stojac poza prostokatem (patrz wartosc FloodFill(275,574,red); :!: :!: :!: Po secundo: skorzystaj z Rectangle(int,int,int,int) o czym mozesz poczytac tu :http://yarpo.republika.pl/kurs2/lekcje/... albo: procedure prostokat(x1:integer; y1:integer; x2:integer; y2:integer);...

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

wszystko!!!

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

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

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

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

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

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.

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

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

Round - zaokrąglenie

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]

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

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

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.

Formatowanie danych w Turbo Pascalu do pliku TXT dla Action Script

write(plik, 'ciąg')

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.

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

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

Nawias zmienić linijkę wcześniej.

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

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

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

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

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

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

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 napisać program losujący liczby w zakresie 100 w Turbo Pascalu?

Random(100);

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

Po podmianie tych plików mam na ekranie dokładnie to samo co ty. I wygląda na to, że wszystko 'śmiga' pod TP 7.0. Ale wracając do oryginalnego pytania. Po co chcesz odczytywać znak znajdujący się na ekranie ? Co ma na celu odczytanie tego znaku / znaków ? Co do 'kolorów' : program kolorki; uses CRT; begin ClrScr; textcolor(15); writeln('def...

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

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

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

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

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.

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

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

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

Poszukuję dyskietki do książki "Jak rozgryźć Turbo Pascala" M.Buk

Na stronie Helionu: https://helion.pl/ksiazki/jak-rozgryzc-t... można pobrać przykłady - to chyba jest zawartość dyskietki.

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

Który pin LPT jest zegarowy i jak wysyłać dane z Turbo Pascala?

Jak wyslac dana na port z poziomu TurboPascala juz sam wiesz. Nie ma tu zadnego pinu zegarowego. Musisz sam o to zadbac programowo. Oprocz rejestru bazowego np. $378 ktory jest rejestrem odpowiedzialnym za nozki D0-D7 w trybie NORMAL sa jeszcze dwa rejestry odpowiedzialne za reszte nozek. Jesli chcesz uzyskac sygnal "Strobe" czyli informujacy ze jest...

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

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

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

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.

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.

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;

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

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

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

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

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

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

To jest formatowanie liczb rzeczywistych (innych zapewne tez). Ma wyswietlic liczbe (2 liczby znaczace przed przecinkiem i 2 liczby znaczace po przecinku). Tylko tyle pamietam. Jesli usuniesz to formatowanie bedzie wyswietla cala liczbe rzeczywista.

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

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

Turbo Pascal: prosty kalkulator graficzny do działań do 25

Mam pytanie, czy posiadacie program w turbo Pascalu w trybie graficznym, żeby liczył mnożenie, dzielenie, dodawanie i odejmowanie w zakresie do 25, najprostszy jaki może być. Pozdrawiam :)

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

Gdzie znaleźć kod prostego kalkulatora w Turbo Pascalu?

Lepos ale po zamianie rzymskich na arabskie to mam uzyc kalkulator zwykly czy jaki? Tak. Masz zamienić rzymskie na arabskie, następnie wziąć kalkulator zwykły (choć polecam taki rozbudowany z funkcjami statystycznymi i wykresami), obliczyć wynik i wpisać do programu, który zamieni wynik na rzymskie (czyt.: nie rozumiem pytania)

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

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 - Program nie kompiluje się, a wiem, że jest ok.

Kolega pewno używa Turbo Pascala tam te znaki wyglądają tak samo ale nie można ich zamieniać. Sprawdzałem to przed chwilą.

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

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.

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

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

To zalezy o co pytasz - w poprzednim poscie zapytales o dwie rzeczy. Odpowiedzialem Ci na dwie rzecz - jesli masz problem z dopasowaniem odpowiedzi do pytania to powiedz.

Turbo Pascal - komunikacja z mikrokontrolerem przez USB, sterowanie LED

Witam. Chciałbym napisać program który komunikował się z mikrokontrolerem(lub przekażnikami) i uruchamiał np oświetlenie led. I tu nasuwa się moje pytanie: czy da się komunikować albo wysyłac jakieś bity w pascalu przez port usb??