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 :)
Jeśli mowa o Pascalu dla DOS to jest się ograniczonym przez ustawienie w systemie, bardzo często stosowane w pliku autoexec.bat (http://www.dzyszla.aplus.pl/porada-3.ht... - zerknij na kompletny plik). Niestety od Windows 2k i w linii NT DOS był tylko emulowany i tu obowiązują trochę inne zasady. Generalnie najprościej chyba byłoby napisać własną funkcję...
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.
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ń.
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...
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.
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.
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...
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)
To jeszcze powiedz ile masz na to czasu i jakie umiejętności...
Witam mam program w turbo pascalu, chodzi o baze danych( na 4 rekordach) sklepu koputerowego, ale coś tu pochrzaniłem;/ jak ktoś się w tym połapie to proszę o poprawienie, pozdrawiam. program sklepkomp; uses crt; const: v=100 type art=record; naz:string; cena:integer; ilosc:byte; kategoria:string; end; var plik: file of art;...
Witam. Używam Turbo Pascala v. 7.0 i mam problem z założeniem własnego modułu. W mirę możliwości prosiłbym o przykłady i wskazówki na co mam zwrócić szczególną uwagę. Z góry dziękuję za wszelką pomoc.
Przejrzyj to - znalazlem ten kod w pascalu jako przyklad przy programie do obslugi portu. Wyglada na to, ze tam sa przykladowe procedury obslugi portu napisane w asemblerze.
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
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
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);...
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ę.
while 1=1 do zmień i zobacz dawno pascal'a nie używałem Pozdrawiam!
Napisałem program który wysyła z jednego komputera ciąg znaków. .... Program czyta z portu COM1 nadchodzące dane To jak jest z tym programem? Wysyła dane czy też je odbiera? Ponadto: czy program ustawia parametry transmisji na porcie szeregowym? Czy na drugim komputerze port szeregowy jest ustawiony w taki sam sposób? Czy kabel transmisyjny jest odpowiedni?...
Skoro Kurs 90 (dla tych co nie kojarzą to niemiecki system sprzedaży biletów kolejowych który w Polsce żyje od bodajże 1994 roku non stop choć ostatnio dorobił się już pełnej graficznej nakładki) można tyle lat trzymać przy życiu to pewnie jeszcze jakieś stare Subiekty4 czy inny specjalizowany soft może się trafić. Ostatnio miałem taki do pewnego sprzętu...
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.
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...
// 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;...
[...] 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;...
Twoja funkcja licząca potęgę, przyjmuje wartości integer, a chcesz koniecznie uruchomić ją z wartością real.
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);...
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...
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...
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;...
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...
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)
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
Round - zaokrąglenie
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...
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]...
[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'...
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);...
wszystko!!!
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.
typ pointer to jest w Pascalu odpowiedni w C to będzie void * , jest to najbardziej ogólny typ wskaźnika który można potem rzutować na dowolny typ struktury.
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....
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;
Jeżeli chcemy obliczyć y=a^b,to musimy przekształcić: y=exp(b*ln(a))
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
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...
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...
Random(100);
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...
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.
Nawias zmienić linijkę wcześniej.
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...
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"...
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 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.
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);...
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;)
Prosze bardzo ;) Tu znajdziesz Turbo Pascala v7.0 http://www.programowanie.host.sk/pascal-... a tutaj: http://www.programowanie.host.sk/pascal-... przyklady ;)
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.
Witam czcigodnych forumowiczów !!! Przedstawiam konstrukcję plotera do styropianu. Co tu dużo mówić ...wszystko jest widoczne na zdjęciach.Postawiłem sobie zadanie aby zbudować ploter jak najtańszym kosztem.Ploter współpracuje z oprogramowaniem mojego pomysłu napisanym w turbo pascalu (działa pod win 95 win 98 i xp 32 bit).Program czyta dwukolorowe...
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.
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ć,...
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ęć.
A po co w Pascalu jak można w C++ ? Przynajmniej można zrobić bardzo ciekawy kalkulator, albo w Delphi, prościej i łatwiej :D
A co ma robic ten program i jak chcesz go przerzucic? W Delphi masz programowanie zdarzeniowe, a w pascalu tradycyjnym strukturalne? Ogolnie sporo fkcji jest dostepnych tez w Deplhi, a jak nie, to pomoga fkcje API. Powiedz dokaldniej na czym polega problem.
pytania turbo pascalu zadanie turbo pascalu programy turbo pascalu
dioda transil laptop antena telkom sterownik pieca buderus schemat
termet instrukcja serwisowa termet instrukcja serwisowa
Mercedes W245 B200 – brak prawego światła mijania, żarówka H7, moduł SAM, bezpiecznik F6 Położenie pinów i zamienniki BD7920KS
