Pascal FAQ

---

Pascal FAQ , czyli zbiór najbardziej nurtujących pytań wraz z odpowiedziami na temat Pascala. Choć jeszcze pytań nie jest wcale tak dużo, niemniej i tak znajduje się tu wiele informacji odnośnie programowania w Pascalu. Można pytać o wszystko: kompilatory Pascala (Turbo Pascal, Free Pascal Compiler), algorytmy, niuanse implementacyjne, błędy programistyczne, instrukcje Pascala etc.
Zachęcam bardzo do dzielenia się wiedzą!


N - nowe pytanie  

1. Skąd można pobrać kompilator pascala? (9)
2. Jak pozbyć się błędu "Run-Time Error 200"? (9)
3. Czym różni się Pascal od Turbo Pascala? (7)
4. Dlaczego mój program za każdym razem wybiera te same liczby losowe? (4)
5. Co zrobić, aby program wyświetlał wartości Real z n miejscami po przecinku? (1)
6. Jak pobrac lub ustawic date systemowa? (1)
7. Czy można zwiększyć czcionkę w trybie tekstowym? (1)
8. Jak pozbyć się migającego kursora? (2)
9. Jak uzyskać plik *.exe napisanego programu? (12)
10. Jak wydrukować coś używając pascalowego programu? (2)
11. Jak usunąć dowolny plik? (4)
12. Jak pobrać listę plików w bieżącym katalogu? (1)
13. Jak uruchomić inny program z mojego? (2)
14. Czy mozna z pliku exe uzyskac jego zrodlo..? (5)
15. Czy w Pascalu mozna deklarowac dynamiczne struktury danych? (4)
16. Czy pisząc programy w Turbo Pascalu można użyć np. Asemblera? (2)
17. Czy mogę w Pascalu obsługiwać np. myszkę lub cd-rom? (3)
18. Co oznacza przekazywanie parametrow przez wartosc i przez zmienna? (2)
19. Jaki kompilator pascala jest najlepszy? (4)
20. Co to za błąd Run-Time Error 200? (5)
21. Jak obliczyć pierwiastek n-tego stopnia z danej liczby? (14)
22. Jakie są wzory do przeliczania współrzednych z 2D do 3D? (1)
23. Co oznacza błąd "String constant exceeds line. Jakie są najczęstrze powody występowania błędu (1)
24. jak użyć rozkaz trim w trakcie kompilacji pojawia się błąd 3 unknow identifier (brak odpowiedzi)
25. JAKIE ZASADY OBOWIĄZUJĄ PRZY KONSTRUOWANIU SCHEMATU BLOKOWEGO DLA PROBLEMU Z PĘTLĄ W PĘTLI? (3)
26. JAK OGRNICZA SIE DOPUSZCZALNĄ DŁUGOŚĆ NAPISU? (1)
27. jakie jest słowo kluczowe do zmieniania koloru (6)
28. Co oznacza error setting exception i tutaj numery od 00 do 11? (brak odpowiedzi)
29. Jak zrobić grafike, czym wstawić? (6)
30. gdzie jest ten turbo pascal??? (4)
31. Co to jest error while linking (21)
32. jak wyłączyć komputer z poziomu pascala (3)
33. Jak zrobic obsluge klawiatury bez readkey tylko keypressed bym nie musial zatrzymywac programu by nacisnac klawisz i enter tylko odrazu by skanowal klawisz. POZD! (2)
34. Co to jest rekurencja 'ogonowa'? Czym rozni sie od 'zwyklej' rekurencji? Prosze o jakis przykladowy program, ktory obrazuje oba te pojecia.. (1)
35. Co to jest podwójne buforowanie i na czym polega ? Proszę o prosty przykład w Pascalu w trybie 13H (1)
36. Jak w trybie tekstowym zrobic sciane nie do przejscia z dowolnych znaków,dla poruszajacego za pomoca klawiszy znaku np."*" (10)
37. W turbo pascalu mozna robic jedynie pliki dosowe, a da sie zrobic programy okienkowe?? (5)
38. Jak zamienić wartos z string na np. integer Odpowienik strtoint z delphi. (2)
39. Jak w pascalu odsłużyć błędy (4)
40. Jakie są wzory na przeliczanie kilometrów na godzinę i metrów na sekunde do Tp (3)
41. nie wiem jak napisac taki program program porosi o wpisanie liczby n, program wypisuje liczby od 1-n tak żeby pazyste były czerwone a niepzyste niebieskie (2)
42. Jak napisać możliwie jak najszybszą procedurę asemblerowską, która mogłaby wrzucać bezpośrednio na ekran lub na stronę pamięci sprite'a? Prosiłbym jeżeli jest to możliwe o NAJSZYBSZĄ procedurę tego zadania w sposób SOLID i TRANSPARENT (wtajemniczoni powinni wiedzieć o co chodzi). (brak odpowiedzi)
43. skad sciagnac pascala? (12)
44. Zróbmy grę!!! :) Tak! Ludzie! Czy ktoś z was, kto ogląda tę stronę, zna się chociaż zaawansowanie na Pascalu i tak nisko-zaawansowanie na Assemblerze? Jeśli tak, to chciałbym, aby rozważyliście moją propozycję. To mogą być też zarówno programiści jak i graficy, "dźwiękowcy", no i pomysłodawcy ciekawych planów gier. Proponuję grę typu RTS (strategia) - na pewno widzieliście Age of Empires, Tzar, Warlords Battlecry albo może inne tytuły. Nie marzyliście o stworzeniu małej gierki? (9)
45. Jak należy zainstalować moduł graficzny do Turbo Pascala (Borlanda)? I jak ja zainicjować w programie? Prosze o szczegoly :) (6)
46. Jak zainstalować turbopascala? (2)
47. Jakiej instrukcji badz procedury uzyc aby program napisany w tp jendoczesnie gral muzyczke (marsz turecki) i wyswietlal animacje (napisana za pomoca modulu graph? (1)
48. Skąd wziąć Borland Pascala 7.01? (2)
49. Jak stwozyc w Pascalu program aby obliczał pole i obwód prostokąta?! Moze ktoś napisał juz taki programik?! prosze o szybką odpowiedz! (3)
50. Ja rozwiązać problem z klawiaturą (pomiszane niektóre klawisze) w Turbo Pascalu 7.0? (3)
51. Jak obliczać proceny w pascalu ?? (4)
52. Jak wydrukować kod z turbo pascala??? (3)
53. Aby skopiowac kod pod tp nalezy pamietac ze konfiguracja klawiszy ctrl+c oraz ctrl+v nie dziala. odpowiednio występuje to konfiguracja shft+del oraz shft+ins. (1)
54. Czy ktos moglby opisac krok po kroku jak dziala program Gaussa. Z gory dzięki (brak odpowiedzi)
55. Co zrobić aby w TP7 były polskie litery np:ą ę ż itd ? (2)
56. O co chodzi w błedzie type mismatch???? (10)
57. Czy da sie w pascalu napisać program rezydentny, który chodziłby w środowisku windows, a nie pokazywał sie w pasku startu ani nie wyświetlał konsoli PS: sprawdzałem keepa ale chyba nie chodzi pod windowsem ---> (być moze sie myle) (prosze o przykład źródła jakiegos prostego) (1)
58. Jak napisać program dla malarza który oblicza ile potrzeba farby na pomalowanie całej powieszchni pomieszczenia odejmując okna i drzwi jeżeli na 5m kwadratowych potrzeba 1l farby (1)
59. Co to sa tryby 13H, 12H i inne? do czego sie ich uzywa? (2)
60. Co zrobić aby okno programy TP wyświetlało się na całym ekranie. Nie potrafię tego opanować Mój system operacyjny to Win XP (3)
61. Czy wersja TP na palmtopa?Jeśli tak to skąd ją wziąść? (1)
62. Czy da się zrobić tablicę, która będzie się składać z dowolnej liczby elementów? Liczba elementów tablicy będzie zależna od tego ile wyrazów znajdzie w importowanym pliku tekstowym. Może mieć np. 3 elementy bądź 100 000. Jeśli się da to jak to zrobić? (5)
63. Siemka potzrebuje kogoś do pomocy w zadaniach związanychz turbo pascalem !!! Prosiłbym o kontak jak by ktos miał chcec pomóc mi zrobic.!!! gg:7114269 (brak odpowiedzi)
64. Napisałem w tp obrazek i chce żeby się przemiszczał. jak to zrobić, i jeszcze jak sie ustawia zdarzenia losowe? (1)
65. co oznacza pojęcie zmienna w turbo pascalu (3)
66. Witam czy w pascalu da sie zrobic tak aby program czytal znaki z klawiatury lecz zeby to czytanie nie zatrzymywalo programu?? (2)
67. Jak w pascalu zrobic cos takiego żeby np. od liczb 1-100 odejmowało 19% a od 101 do 200 - 20% ? (4)
68. Co zrobic gdy po odpaleniu pascala procek pracuje bez przerwy na 100% i muli całego kompa(procek Sempron 2800+ 64bit. 768MB RAM. Radeonik 9600 Pro) (2)
69. jak napisac program obliczajacy wartosci wyrazen matematycznych zawierajacych min. nawiasy,+,-,^,sin,arcsin,ln, zmienna x, stale e,pi. prosze o wszelki wskazowki jak sie do tego zabrać. z gory dziekuje (2)
70. CZy mogę skonfigurować układ klawiatury w edytorze Turbo Pascala? (1)
71. jak napisac program z podwojna pentla "for" aby wynikiem tego programu byl pojawiajacy sie prostokat zlozony ze znakow "x" ?? (3)
72. Czego dotyczy ERROR 39: Ordinal Expression Expected i kiedy występuje? (2)
73. Chciałbym zrobic dekoder w stylu: wpisujesz tekst naciskasz enter program zamienia wszystkia "a" w tekście na "b" program wypisuje wynik p.s. czy można ściągnąć source gier tu przedstawionych? proszę o odpowiedz na email (2)
74. Jak wyznaczyc przeciecie dwóch dowolnych funkcji liniowych?? (1)
75. mialem napisac program wypisujacy wszstkie liczby naturalnie mniejsze od liczby podanej przez uzytkownika co ja robie zle??? BEGIN clrscr; writeln('Podaj jak±¶ liczbê'); read(liczba); IF (liczba=10) OR (liczba=20) THEN BEGIN licznik:=0; REPEAT licznik:=licznik+1; writeln('Poda³e¶ liczbê 10 lub 20'); UNTIL licznik=10; writeln; END; Halt; END. (2)
76. jak zrobić w turbo pascalu prostokąt (2)
77. Jakieś pentle w turbo pascal na koniec zadania? (brak odpowiedzi)
78. jak narysowac trojkat z gwiazdek?? tak ze w pierwszej linijce jest 1 gwiazdka w drugiej 2 a w trzeciej 3? * ** *** cos takiego.. (2)
79. Jak napisać program podający słownie, w której setce leży podana liczba. Zakres od 1 do 1000. (4)
80. jak powinien wygladać program porządkujący w kolejności od najmniejszej cztery dowolne liczby? (3)
81. Mam problem z progrmem odszukującym liczby dokonałe. Jak go napisać? (1)
82. Jestem początkującym użytkownikiem pascala..... Szybko sie idzie nauczyć jego obslugi?? (2)
83. jak zrobić pasek postępu ze znaczka ASCII, taki jak w XP przy logowaniu. Pomocy! (2)
84. W jaki sposób napisać program szyfrujący z binarnego do dziesiątkowego a z dziesiątkowego na litery, gdzie 0001 to 1 a jeden w alfabecie to A itd. (1)
85. mam maly problem z gra. (4)
86. Program do tablicy wybiera losowo 1000 liczb całk., zapisuje tak wybrane liczby do pliku txt, następnie je porządkuje od min do max i zapisuje do drugiego pliku txt. Jak zagnieździć procedury zapisu do pliku txt tablicy nieuporządkowanej, a następnie po uporządkowaniu do drugiego pliku txt tablicy uporządkowanej ? (2)
87. elo,czy za pomocą komendy assign otworzyc plik z serwera i na nim operowac? Np. zamiast sciezki na dysku wpisac adres pliku na serwerze. (2)
88. Jak napisać * Program wyświetlający słownie podaną liczbę; (4)
89. Jak napisać * Program gromadzący podstawowe informacje o pracownikach, np. imię, nazwisko, data urodzenia, miejsce urodzenia, płeć i numer telefonu. Powinna być możliwość wyszukiwania, usuwania i modyfikowania pracowników; (2)
90. Jak napisac program aproksymacji wielomianowej? (brak odpowiedzi)
91. gdzie można ściagnąć turbo pascala? (brak odpowiedzi)
92. W jaki sposób w TP liczbę arabską zamienić na liczbę rzymską? (brak odpowiedzi)
93. Chciałbym aby program prosił o podanie np.funkdji typu 2*x+3, a następnie podany ciąg zamieniał na argument funkcji. Czy ktoś zna algorytm na pochodną. A może ktoś ma jakis program iteracyjny związany z optymalizacją funkcji? (1)
94. Interpolacja funkcji metodą Lagrange'a...Czy ktoś wie jak napisać program w Pascalu? (brak odpowiedzi)
95. witam potrzebuje zegar ze wskazówkami a zarazem cyfrowy prosze o pomoc to jest zadanie na ocene roczna moje gg 7365119 (3)
96. jak w turbo pascalu można zapisać zmienną a do potęgi n? (1)
97. pisze taka grę. zadaje różne pytania. jak ktoś odpowie źle to program ma wracać do pierwszego pytania. jak to zrobić? PILNE (4)
98. dlaczego po kompilacji modułu rozszerzenie nie zmienia się z pas na tpu? (2)
99. jak zczytac cala linie z pliku znak (char) po znaku do tablicy? (1)
100. Mam prosbe. czy moglby ktos napisac dla mnie program w pascalu: kilka pytan jesli odpowie sie dobrze idziesz w lewo, zle- idziesz w prawo itd. takie bladzenie i wracanie na start. naprawde bardzo prosze. mail: q161@wp.pl (brak odpowiedzi)
101. jak wykonać zegar cyfrowy w Turbo Pascalu 5.5? pilne bardzo! (1)
102. jak utworzyć postać ruszającą się w trybie 13h? (2)
103. Mam problem z free pascal i nie wiem jak go rozwiązac albowiem podczas kazdego compilowania i zapisywania pliku wyskakuje mi błąd i pisze "error while linking " jak sie tego pozbyc? help (1)
104. mam wielki problem z kompilatorem kiedy wlaczam turbo pascala jest w malym okienku wtedy dziala ale kiedy naciskam alt+enter aby powiekszyc zacina sie kompilator tak samo dzieje sie kiedy kompiluje program w trybie 13h prosze o pomoc jezyk znam dobrze;[ (1)
105. jak napisac program za pomoca ktoreg mozna narysowac domek (1)
106. Jak obliczyć przekątną prostokąta w Pascalu?? (1)
107. Wiatm! Programowałem wcześniej w JavaScript, teraz w TP. Mój kompilator nie ma bibioletki Graph. Czy mógłbymi Ktoś przysłać tę bibilotekę. Mój mail: mmlynczak@o2.pl Pozdrawiam! (2)
108. Mam napisać program na zaliczenie semestru, który podana kwotę wypisuje słownie np. 123,65 sto dwadzieścia trzy zł sześćdziesiąt pięć groszy. Bardzo PILNE!!!!! (1)
109. ile jest kilometrów z Warszawy do Hiszpanii jadąc samochodem? (2)
110. Dlaczego znaki wyświetlane w kompilatorze nie odpowiadają znakom na klawiaturze, i jak to zmienić? (brak odpowiedzi)
111. jak napisać program żeby program wyświetlał hasło a po trzykrotnym wpisaniu błednego wpisania hasła pokaże sie na całej stronie napis nie ty baranie prosze o gotowca (4)
112. 1. czy w TP da sie losowac liczby w ustanowionym przedziale (2)
113. Mam problem z uruchamianiem programu z modułem GRAPH -instrukcje takie jak setBKcolor(3) nie powodują zmiany tła itp nie diziałają również inne np dotyczące wypełniania tłem - korzystam z Free Pascala -winXP (1)
114. w programie P_7_2 jest pokazana animacja obiektu. Ale w programie z rozszerzeniem pas występuje mi taki problem: "file not found". Co mam zrobić żeby program chodził z poziomu Turbo Pascala? program można pobrać z przykładów do książki : ftp://ftp.helion.pl/przyklady/2d3dtp.zip (brak odpowiedzi)
115. hej mam zrobic lekcje o rysowaniu figur geometrycznych w turbo pascalu.Chcialam wyprobowac np.napisanie programu,który rysuje koło np.tak: program kolo; uses Graph, Crt; var tryb, karta : Integer; begin karta:=0; tryb:=0; InitGraph(tryb, karta, 'C:\tp\Bgi') SetColor(14); Circle(250, 250, 100); repeat until keypressed; CloseGraph; end. Ciągle mi wyświetla error 15:plik nieznaleziony,sprawdzałam ścieżkę zgadza się,nie mam pojęcia czemu to nie działa, proszę pilnie o pomoc. (1)
116. Czy ktoś zna rolę poszczególnych pinów w portach usb i ps2 i wie jak sterować kartą dzwiękową? (1)
117. czy mogą pojawiać sie błedy w wyswietlaniu grafiki BTP tylko dlatego ze mój system to Xp?? czy musze miec dosa? (brak odpowiedzi)
118. jak stworzyć program grający jakąś kolęde w Turbo Pascalu?? bradzo PILNE!!!! (1)
119. JAK STWORZYC PROGRAM GRAJACY JAKAS KOLEDE W TURBO PASCALU?? BARDZO PILNE!!!! (1)
120. Skąd moge ściągnać do Turbo Pascala 7.0 moduł CRT??? (1)
121. Coć na temat animacji ???? (brak odpowiedzi)
122. Jak działa funkcja Round?? (2)
123. jaki jest wzor na kodowanie w pascalu (ascii)? jak to zrobic... (1)
124. co zrobić gdy chcę wstawić animowany obiekt(drugi bufor ekranu) do istniejącego wcześniej tła? (1)
125. Czemu nikt tu nie pilnuje tego dzialu? same offtopy _._ (1)
126. jak wyświetlić listę plików (3)
127. Jak zrobić w Turbo Pascalu, żeby po naciśnięciu np. Esc coś się stało. Chodzi mi o to, że wiem, jak to zrobić, kiedy naciskamy jakąś literę lub cyfrę, ale ze SPACJĄ jest problem. Słyszałem, że jest coś takiego jak ID klawisza np. chr i coś tam. Czy może mi ktoś podać wszystkie tego typu klawisze? (5)
128. Co znaczy komunikat w Tubo Pascalu "File not found(system.TPU)" (brak odpowiedzi)
129. Co znaczy komunikat w Tubo Pascalu "File not found(system.TPU)" (3)
130. jak można "upiększyć" program napisany w turbo pascal? chodzi mi głownie o tło, czcionke..no i jak jest z tym GotoXY.. (1)
131. Jak zrobić żeby losowo wybrane liczby nie powtarzały się? np. jak chce wylosować 5 liczb z 10 to żeby nie było 2 piątek itp. ?? (3)
132. Jak, wywołując w TP moduł DOS, uruchomić np. plik muzyczny (C:\muzyka.mp3)? (3)
133. Jak jest z zagnieżdżaniem tablic? Wiem, że zmienna wygląda tak:"a:array[1..20] of array[1..20] of char;" - przykładowo. Jak przypisać tablicy 1,1 znak #? (1)
134. Skąd można pobrać TURBO pascal..Prosze pomóżcie bo na piątek musz eoddać prace a nie mam programu.moje gg:8640341 albo jumanji16@wp.pl (brak odpowiedzi)
135. Czy ktoś przypadkiem nie chce odsprzedać Turbo Pascal'a 7.0? Oczywiście orginała z ksiąźką i płytą. Prosze o kontakt grub_y@wp.pl (brak odpowiedzi)
136. Czy ktoś przypadkiem nie chce odsprzedać Turbo Pascal'a 7.0? Oczywiście orginała z ksiąźką i płytą. Prosze o kontakt grub_y@wp.pl (brak odpowiedzi)
137. zadeklarowałem zmienne we free pascalu komendą var i wyskoczył błąd syntax error "identifier" expected but "VAR" found pomóżcie prosze (2)
138. Co oznacza "identifier expected" (brak odpowiedzi)
139. Jak dokładnie działa polecenie exec? Proszę o przykład. (brak odpowiedzi)
140. Proszę mi podać, jak działa polecenie "exec". Proszę o przykład kodu i bardzo dokładne opisanie go.Chciałbym użyć tego polecenia do uruchomienia innego pliku (1)
141. WITAM MAM PROGRAM DO OBSŁUGI PRZYCISKÓW PRZEZ MYSZKĘ ALE JAK KOMPILUJĘ TO WYSYKAKUJE MI "SYNTAX ERROR W MIEJSCU (x&lt275) PROSZĘ O POMOC!!!! PONIŻEJ ZAMIESZCZAM KOD.PROGRAM JEST PISANY W TP7. KOD uses crt,dos,graph; Var x,y,przyciski:word; Procedure OPCJA1; Begin Sound(50); End; Procedure OPCJA2; Begin Sound(100); End; Procedure OPCJA3; Begin Sound(150); End; Begin VgaOn; SetFillStyle(SolidFill,Green); Bar(215,220,275,250); Bar(285,220,345,250); Bar(355,220,415,250); OuttextXY(218,232,'Opcja 1'); OuttextXY(288,232,'Opcja 2'); OuttextXY(358,232,'Opcja 3'); UstawMyche(1,1,635,475); PokazMyche; Repeat PobierzMyche(X,Y,PRZYCISKI); If (PRZYCISKI=1) Then Begin If (X>215) AND (y>220) AND (x&lt275) AND (y&lt250) Then OPCJA1; If (X>285) AND (y>220) AND (x&lt345) AND (y&lt250) Then OPCJA2; If (X>355) AND (y>220) AND (x&lt415) AND (y&lt250) Then OPCJA3; End; Until Keypressed; Nosound; CloseGraph; End. (2)
142. jak wsadzić jpg do pascala???? help me!! proszę o szybką odpowiedz (2)
143. Ile w pascalu jest znakow x i y?? (2)
144. Jak zrobiś animacje 3d, np trójkąta ?? (1)
145. Proszę o napisanie mi programu w pascal ma wyglądfać tak: w środku ma byc okrąg na zewnątrz ma sie obracac dookoła inne kolo a na zewnątrz innego kola ma sie obracać jeszcze inne kolo taka jakby animacja prosze o pomoc PILNE gg 5529093 (brak odpowiedzi)
146. Cześć. Jak napisać program który za pomocą lini napisze moje iniciały M.A ?? (1)
147. cześć mm pytanie, czy jest możliwość powiekszenia liter w trybie graficznym za pomoca jakiejs procedury albo funkcji, bardzo byłbym wdzieczny (brak odpowiedzi)
148. Cholera skad mam wziasc ten program!!!!!!!!!!:?????????????????????? (1)
149. moze ktos napisać te programy; 1zad: Napisać program sprawdzający liczbę małych liter "a" w tekscie 2zad: Napisać program sprawdzający czy dany tekst jest "palindromem" 3zad: Napisać program pozwalający wykonać dodawanie bardzo dużych liczb ( liczba cyfr >9) Z GÓRY DZIĘKUJE!! (2)
150. Animacja koła , koło ma sie przesuwać w lewo potem do góry i w prawo :PP Prosze o pomoc (1)
151. Działania na datach, np. obliczanie ile miesięcy i dni minęło od określonej daty do dzisiaj (z uwaględnieniem lat przestępnych) - czy data stanowi odrębny typ zmiennej? czy trzeba korzystać z jakichś modułów? Dałem córce zadanie, a teraz sam nie potrafię nic na ten temat znaleźć... (1)
152. jak napisać program, który wczytuje i wypisuje tablicę jednowymiarowa złożona z liczb a następnie dzieli średnia liczb przez trzecia wprowadzoną liczbę? z góry dziękuje (1)
153. jak napisać program, który wczytuje i wypisuje tablicę jednowymiarowa złożona z liczb a następnie dzieli średnia liczb przez trzecia wprowadzoną liczbę? z góry dziękuje (1)
154. Napisałem program ktory wypisuje liczby pierwsze od zera do podanej granicy. Problem polega na tym, ze jesli liczb jest duzo to nie przenosza sie do nastepnej linijki tylko wyswietlaja dalej jakby poza ekranem tak, ze ich nie widac. Jak temu zaradzic? (1)
155. Jak spowodować, by po otwarciu programu okno główne rozciągało się na cały ekran monitora? (brak odpowiedzi)
156. Jak napisac program w Pascalu pingujacy dany adres (np wp.pl) co jakis czas i zapisujacy te informacje do pliku txt ? Pilne PS. wiem ze trzeba uruchomic ""C:/WINDOWS/system32/ping.exe" wp.pl" Tylko jak zrobic zeby program kopiowal tresc drugiego programu ??? (brak odpowiedzi)
157. Czego uzyc zeby program zaczekal okolo 8 sek zanim uzyje funkcji read? Jest to przydatne np przy pingowaniu jakiegos serwera, poniewaz informacje sa wypisywane po koleji. (1)
158. Jak zrobic aby mój program nie uruchamiał sie w dosie tylko w okienku i jak zrobic grafikę np:żeby nie była czarna tylko w okienku się program uruchamiał (1)
159. Jak użyć w turbo Pascalu modułu gif? (1)
160. jak przypisać funkcji keypressed wartosc false?? (2)
161. Czy można w jakiś sposób usunąć migający kursor? (1)
162. Jak w kodzie zaznaczyc, aby program od razu po uruchomieniu przechodził w tryb pełnego ekranu (fullscreen)? Nie interesuje mnie zaznaczanie "Pełny ekran" we właściwościach. (1)
163. Czy da się ukryś pisany tekst znakami ***? np. wpisuje w programie hasło i zamias liter hasła wyświetlają się znaczki ***... bardzo proszę o pomoc (1)
164. Witam. Mam problem z TP7 Przy przełączaniu Alt+Tab między aplikacjami po powrocie do aplikacji TPX.EXE i TURBO.EXE oraz podczas przerwy w wykonywaniu programu kombinacją Ctr+Pause/Break monitor wariuje. Efekt ten jest taki sam jak w przypadku gdy program, który wykorzystuje moduły Crt i Graph inicjuje tryb graficzny ale go nie zamyka poprzez CloseGraph. Dzieje się to tylko na laptopie Olivetti LX 4/C, procesor: Intel i486DX2 50MHz; ram: 20MB; dysk twardy: 115MB system operacyjny: Windows 3.1. (2)
165. Mam pytanko od niedawna bawię się w pascalu i nie wiem czy da się w czasie jednego programu włączyć drugi jakąś komendą... np. mam program x i np. gdy nacisnę y klawisz włączy się program z... można tak? (2)
166. Skad wziać graph.tpu??????????? (1)
167. Jak mam zrobić docelowe przyciśnięcie jakiegoś przycisku?? np. na ciskam + to wykonuje działanie wcześniej podanych liczb, wiem ze trzeba if uzyć ale nie bardzo wiem jak?? (1)
168. Witam. Czy można napisać program który składa się z 2 procedur - jedna z parametrem, druga bez parametru oraz jednej funkcji.Główny blok programu ma najpierw uruchomic obie procedury jedna pod drugą a następnie napisać wartość funkcji. (1)
169. jak powiększyć okno w Turbo pascal??? (2)
170. A ja mam poważny problem. Piszę pracę na zaliczenie modułu. I bardzo mi potrzebny program, który pokazywał by na ekranie tak jak by jadący samochód. A dokładnie mówiąc narysować coś przypominającego samochód (2 kółka i jakiś prostokącik), a obok drzewa które by sie przesuwały. Wszytko ma wyglądać jak by ów samochodzik sie poruszał (a poruszały sie np drzewka obok). Proszę o pomoc bo z pascala orłem nie jestem a bez tego będę miał poważny problem (2)
171. POMOCY!! Program akceptuje nieograniczny number liczb i musi pokazac ile liczb bylo wyswietlonych,ich sume,srednia arytmetyczna,najwiekszy i najmniejszy numer wporowadzony (1)
172. Hey!! program musi pokazywac siatke numerow (10 na 10) sekwencja numerow: 0123456789 1234567890 2345678901 3456789012 itd (1)
173. jak zrobić w turbo pascalu prostokąt z x-ów z wypełnieniem a,b na zmiane po wierszu do tego mają być wprowadzane dowolne wartości długości boków? prosze o szybką pomoc!! (1)
174. Jak zmienić ikonę do swojego programu? (brak odpowiedzi)
175. Jestem poczatkujacy w turbo pascalu więc proszę o wyrozumiałość. Mam problem z procedurą window Pisze maly program uzywajac podprogramow (PROCEDURE). W jednym z podprogramow zrobilem ladne graficznie menu tytulowe uzywajac procedury window(x1,y1,x2,y2) aby ustawić kilka kolorów tła i tutaj zaczyna się problem. Podprogram z menu wyswietla się ładnie ale następne podprogramy cały czas używaja ustawień procedury window z podprogramu z menu. Nie pomaga ustawienie procedury window na lewy gorny i prawy dolny rog ekranu z opcja clrscr; Podprogramy uporczywie wyswietlaja sie w oknie procedury window. Czy istnieje jakis sposob na anulowanie procedury window aby kolejne podprogramy nie korzystaly z niej? Mam nadzieje ze wyjasnilem problem w miare jasny sposob Z gory dziekuje za kazda odpowiedz (1)
176. Gra dla dwoch graczy: Gracz1 wprowadza 5 numerow pomiedzy 1 do 50 - wiem array [1..50] of integer - te numery sa schowane dla gracza 2. ta czesc umiem zroobic ale teraz gracz 2 ma 5 prob zeby odgadnac te numery. np. proba1: 26 Nie. 26 nie jest tym numerem. proba2: 44 Tak. 44 jest tym numerem. i tak do proby 5 na koncu program musi podsumowac ten wynik. np. 1 zle 4 dorbre - jestes beznaziejny:-P Blagam niech mi ktos odpowie (1)
177. Jak zrobic prosty slownik z array (polsko - anglielski)?? (1)
178. pyt 176 "Gra dla dwoch graczy: Gracz1 wprowadza 5 numerow pomiedzy" gracz 2 wprowadzil swoje odp. i program musi podsumowac wszystkie jego odp. np. "uzyskales 1 z 5 poprawnych odp." PROSZE O POMOC (1)
179. Jak zablokować kalwiature żeby nie odczytywała tego co się naciśnie prócz pokreślonego klawisza, oraz jak otwierzać inne pliki za pomocą programu. (2)
180. Jak zablokować kalwiature żeby nie odczytywała tego co się naciśnie prócz pokreślonego klawisza, oraz jak otwierzać inne pliki za pomocą programu. (brak odpowiedzi)
181. dlaczego kompilator pascala nie obsługuje grafiki... np. nie daje sie odpalić przykładowych programów z działu grafika? (2)
182. jaką instrukcje trzeba wypisać w paskalu aby uzyskać zaokrąglenie części całkowitej? (1)
183. JAK ZROBIC ARRAY Z LIMITAMI USTALONYMI PRZEZ GRACZ ??????????????????????????????????? pROSZE O POMOC!!!!!!!!!!!!!!!!!:] (1)
184. co zrobić gdy wyskakuje mi Error 200: Division by zero?? (4)
185. jak obliczyc pierwiaastek z delty w turbo pascalu?? (1)
186. jak zrobic gre - 2D array ?????????? (1)
187. 2D ARRAYS JAK SIE TO ROBI???????????????????????? gdy mam np. newlist: array [1..3,1..2] of char; nie wychodzi mi ?? ?? ?? (1)
188. Witam! Mam napisać grę Wisielec(program losuje jedno z haseł, a zadanie gracza jest jego odgadnięcie). Szkielet i podprogramy już napisałem ale utknąłem. Czy Ktoś mógłby napisać instrukcję (lub chociaż podać jakąś wskazówkę) sprawdzającą, czy podana litera występuje w wylosowanym wyrazie. Jeśli jest trafione, to program powinien to zaznaczyć tak: _ A _ A (hasło:DAMA, podana litera:A). Bardzo proszę o pomoc-jest naprawdę pilnie potrzebna!Dzięki! GG1:11095327; mail:kaiwohcor@poczta.onet.pl (1)
189. Co zrobić żeby pascal wyświatlał wynik po zakonczeniu obliczania ? (4)
190. 16-bitowy podsystem MS-DOS Turbo Pascal NTVDM CPU: napotkano nieprawidłową instrukcje CS:c000 IP: dfdf OP:ff ff ff ff ff Wybierz przycisk zakończ abo zakończyć działanie aplikacji takie coś wyskakuje mi jak chce uruchomic program z grafiką nie wiem co mam z tym zrobić ? Może ktoś pomoże ? (2)
191. co jest po "USES" (1)
192. mam zrobić sygnalizator świateł taki jak na drodze.sam sygnalizator już mam tylko jak zrobić żeby zmieniały sie na nim światła z góry na dół? z góry dziękuje za pomoc (1)
193. Jak procedure napisac zeby program poakzywal tablice random ''of char'' ale rowniez trzeba uzywac integer????? ??????????????????????????????????? PROSZE O POMOC I Z GORY DZIEKUJE:-) (1)
194. co zrobić jeśli w Turbo Pascalu nie działa myszka ani klawiatura (brak odpowiedzi)
195. Mógłby ktoś podać jakieś wskazówki, jak napisać program pozwalający tworzyć słownik polsko-angielski w oparciu o dynamiczne struktury danych? Z góry dziękuję za pomoc. (1)
196. Jak działa funkcja CASE i jak się jej używa? (brak odpowiedzi)
197. Co trzeba wpisać by program sprawdzał jaki klawisz sie nacisnęło (chodzi o od f1 do f12, strzałki,page up, page down, home i end) (1)
198. ??????Jak zrobic 'Record' z baza danych??????? program ma baze dznych np. na dysku A:// (brak odpowiedzi)
199. Witam! Byłbym bardzo wdzięczny, gdyby ktoś powiedział mi jak ma dokładnie wyglądać pętla umożliwiająca sprawdzanie, czy podana litera występuje w wylosowanym wyrazie? (procedurę losowania już mam, chodzi tylko o sprawdzanie występowania litery). Bardzo proszę o jak najszybszą pomoc. Dziękuję! (1)
200. jak napisać program, który wczytuje imię i nazwisko??? (1)
201. jak zrobic RECORD w pascalu dane maja byc zapisane na dyku (nieszczesne File of...) Porgram musi: 1 / osoba mogla wprowadzic dane o studentach np. imie, nazwisko itp. 2 / zeby mozna bylo szukac danych np poprzez wporwadzenie nazwiska >>>>>>>>>>>>>>>>>>>>>>> mam problem z zapisaniem danych na dysku, tworzy plik dane.dat ale nie moze ich zapisac podobno trzeba zrobic cos z "uphold" - tylko co to znaczy?????? PROSZE O POMOC (1)
202. Jaka biblioteka do obsługi myszy będzie ją płynnie wyświetlała z innymi obiektami. (1)
203. Mam dobrze napisany program ale gdy go chce uruchomić pokazuje się Graghics not initialized(use initgraph),co zrobić? (1)
204. POMOCY mam do napisania probna prace re: jak zrobic dwuwymiarowa table ktora bedzie pokazywac wyniki glosowania (brak odpowiedzi)
205. Czy ktos moze sprawdzic ta procedure: x,y:integer; Begin y:= 1; x:= 1; while y<= choicesnum do begin x:= 1; while x<= voternum do begin list2[y,x]:= 0; x:= x +1; end; { end of the inner loop } x:= 1; y:= y+1; writeln(list2[y,x]); end; { end of the loop} end. KONIEC POWINNA POKAZYWAC 2D TABELE ALE ZAMIAST TEGE MAM: JEDENASCIE ZER (RZADEK DO DOLU) I NA SAMYM KONCU NUUMER 9410.o co chodzi ????? Z gory dziekuje:) End; (brak odpowiedzi)
206. Pyt 205 OK wlasnie dodalam write(list2[y,x]) i mam poziome ale dalej mam (brak odpowiedzi)
207. Pyt 205 OK wlasnie dodalam write(list2[y,x]) i mam poziome ale dalej mam (1)
208. pyt 205 - 207. ta proedura musi jeszcze brac numery z poprzeniej tabeli ktora ma inna procedure list1[c,r], ktora generuje tabele 2 na 5 (1)
209. pyt. Jak narysować odcinek na podstawie współrzędnych punktów początku i końca ? (1)
210. pyt. Jak narysować odcinek na podstawie współrzędnych punktów początku i końca ? (brak odpowiedzi)
211. Jak napisać program w którym punkt będzię się odbijać od boków ekranu ? (brak odpowiedzi)
212. Jak napisać program w którym punkt będzię się odbijać od boków ekranu ? (brak odpowiedzi)
213. Jak napisać program w którym punkt będzię się odbijać od boków ekranu ? (brak odpowiedzi)
214. Jak napisać program w którym punkt będzię się odbijać od boków ekranu ? (brak odpowiedzi)
215. Jak napisać program w którym punkt będzię się odbijać od boków ekranu ? (1)
216. Jak zrobić koperte ktora ma byc kwadratem wymiar podaje uzytkownik? (1)
217. Jak powiększyc okno w Turbo Pascalu 7.0? (1)
218. Jezeli mam procedure w innej porceduze to czy 2D tabela danych (z procedury nr 1 ) bedzie zapamietana ?? - chodzi mi o to ze mam tabele - proc 1 - do ktorej wprowadza sie dane np. wybor nr 1 - 4;wybor nr 2 - 5 itd do 5 (powtarzane 12 razy );. Procedura 2 ma za zadanie policzyc numer glosow 1. bylabym wdzieczna za kod :) (brak odpowiedzi)
219. jak losowo wybrac n liczb (n<=100) z przedzialu od 0 do 1000 i znalezc najmniejsza z wyswietlonych (1)
220. TO JEST FAQ - 80% zadawanych pytan bylo zaanych wczesniej (brak odpowiedzi)
221. Jak zadeklarowac abstrakcyjną strukturę danych, będącą kolejką dwukierunkową?? (1)
222. potrzebuję program imitujący działanie bankomatu , wpłata, wypłata ,stan konta ( za pomocą procedury case ).dzięki !!!!!!!!! krusz15@wp.pl (2)
223. w wyniku moje programu poakzuje sie 1,50000000000000E . Jak to usunac?? (1)
224. jak zrobic baze danych ktora ma zaznaczać w bazie danych osoby o tym samaym nazwisku i miejscu urodzenia???? prosze o PLINA ODPOWIEDZ:D (brak odpowiedzi)
225. W jaki sposób mógłbym dodać muzykę do programu napisanego w Free Pascalu?? Ściągnąłem biblioteki ze tej strony ale nie działają(lub nie potrafie ich dodać :/) Proszę o pomoc... (1)
226. Jak zrobić listę list? Proszę o w miarę dokładny zapis, żebym mógł to załapać. Dziękuję! (2)
227. Prosze o pomoc w napisaniu programu bo jestem zielony a potrzebuje do szkoly. Z gory bardzo dziekuje! A oto tresc: Dany jest plik dane.dat. W plikuumieszczone jest 100 losowych liczb, kazda w innym wierszu. Program ma za zadanie wypisac do pliku wynik1.dat wszystkie liczby pierwsze z pliku dane.dat a nastepnie posortowac liczby od najmniejszej do najwiekszej i umiescic je w pliku wynik2.dat. (2)
228. Jak zrobić flage Olimpijska w pascalu tak zeby kółka przeplatały sie ??? piszcie na meila krzysiek435@wp.pl PILNE!!!!! (2)
229. Czy jest możliwość otwarcia pliku ze ścieżki, którą podaje użytkownik w trakcie działania programu? jeśli tak, to proszę o przykład, jak to zapisać... (1)
230. Jak otworzyć plik tekstowy (z możliwością działania na nim) o nazwie podawanej przez użytkownika. Bo musi przecież być stworzona zmienna plikowa o takiej nazwie i typu Text? (brak odpowiedzi)
231. Czy listę trzeba usunąć przed zakończeniem programu? (brak odpowiedzi)
232. Jak powinien wyglądać program sprawdzający ile jest zapisanych wierszy w pliku.txt? (1)
233. sposoby kodowania liczb i ich przykłady. (brak odpowiedzi)
234. mam na pisac 2 programy na zaliczenie prosze o szybka odp.oto one: -napisac program rozwiazujacy układ 3 rownań liniowych z 3 niewiadomymi -metoda wyznaczniki. -napisac program ktory zaszyfruje szyfrem cezara text pisany zklawiatury i zapisze go do pliku o nmazwie szyfr ,a nastepnie odszyfruje ten text i wydrukuje na ekranie zaszyfrowany i odszyfrowany. jak możecie to pszslijcie mi te 2 programiki na meila: jonolot.karol.krasnosielc@interia.pl (brak odpowiedzi)
235. [Error] Unit1.pas(1): 'UNIT' expected but 'PROGRAM' found Co zrobic zeby tego nie bbylo pomocy!! (brak odpowiedzi)
236. Mógłby mi ktoś przystępnie wytłumaczyć jak tworzy się listę list (tylko w oparciu o struktury dynamiczne, bez tablic)? Z góry dziękuję! (brak odpowiedzi)
237. CZY KTOS WIE JAK ZROBIC TO IDIOTYCZNA AFRYKANSKA (bez obrazy dla Afryki ) GRE WARI dla 2 graczy ?????PRosze o pomoc !!!!!!!!!!!!!!!!!!!!! (brak odpowiedzi)
238. Jak zapisać listę słów do pliku binarnego, tak aby później mogła być wczytywana do programu? (brak odpowiedzi)
239. Jak można wyczyścić bufor wczytywania z klawiatury? Np, gdy program czeka na wciśnięcie dowolnego klawisza, ale tak aby nie przeszkadzało to innej instrukcji która czyta wciśnięty klawisz? (programowy odpowiednik opcji Flush) (brak odpowiedzi)
240. CZY KTOS WIE JAK ZROBIC TO IDIOTYCZNA AFRYKANSKA (bez obrazy dla Afryki ) GRE WARI dla 2 graczy ?????PRosze o pomoc !!!!!!!!!!!!!!!!!!!!! (brak odpowiedzi) N (brak odpowiedzi)
241. Witam jak napisac program ktory bedzie liczyl ilosc pikseli poszczegolnych kolorow w pliku bmp moj gg 4674489 (brak odpowiedzi)
242. Czy w (brak odpowiedzi)
243. tablica dwuwymiarowa wypelniona losowo liczbami pierwszymi. JAK TO ZROBIĆ (brak odpowiedzi)
244. Proszę o pomoc w napisaniu programu który wczytuje plik i go potem usów. Moje gg 9177497. Prosze o pomoc. (1)
245. Mam pytanko czy ma ktos moze jakis dobry program do pascala tzn do przerabiania normalnych liter na program pisac na gg 288955 prosze !! (1)
246. jakie znaczenie w TP ma znaczek "hasz" tzn."#" ? (1)
247. Co i gdzie mam umieścić w tym programie, aby zaliczył podczas podawania loginu, tylko niektóre przezemnie wpisane słowa? Najlepiej jak by mi ktoś na gg pomógł: 9533935. PROGRAM hasla; VAR login: string; haslo: string; BEGIN writeln ('Witamy w programie wykonania dan_0803!'); writeln ('Prosze poda&#8224; sw˘j login ze strony www.lsfan.vot.pl'); readln (login); writeln ('Login potwierdzony, prosimy o podanie hasˆa.') readln (haslo); writeln ('Toľsamo˜&#8224; potwierdzona! Witamy ',login,'!'); writeln ('Hasˆo do odcink˘w "Lilo i Stitch" z naszego downloadu brzmi: SuperAli'); writeln ('˝yczymy miˆego oglĄdania :) i polecamy si&copy; na przyszˆo˜&#8224;'); readln; END. (1)
248. WAZNE - używam programu DEV-PASKAL i nie chcą się w nim kompilować, ani uruchamiać napisane programy. Proszę o pomoc.Po wybraniu kompiluj i uruchom nic się nie dzieje. Darek DARCCO@WP.PL. Dzięki. (1)
249. Zaimplementuj moduł, zawierający podprogramy rozwiązywania równań liniowych, rozwiązywania równań kwadratowych, rozwiązywania układu równań liniowych. Napisz program testujący działanie tego modułu. (brak odpowiedzi)
250. mając w zmiennych cyfry wywala mi ze chce aby tam stał begin... ludzie pomocy! ;( (1)
251. witam mam pytanie czy w Pascalu da sie zmienić czcionkę wydruku chodzi mi o wielkość pozdrawiam (brak odpowiedzi)
252. Witam :) mam problem z napisaniem pewnej gry... Bardzo typowej w internecie gry - łucznik w lewym dolnym rogu ekranu, tarcza w losowo ustawionym miejscu (to już napisałem :D) teraz zostaje mi tylko "za pomocą odpowiednich klawiszy sterujących ustawić siłę i kąt wystrzału strzały, trafienie w środek tarczy kończy grę..." czy moglibyście mi pomóc w dokończeniu programu (potrzebnego na zaliczenie do szkoły) lub chociażby nakierować albo odesłać do jakiegoś gotowca ? bonie wiem jak mam tą krzywą balistyczną wyznaczyć (czy tam parabole czy rzut ukośny) Będę wdzięczny za pomoc :) A jakby co wrzucam meila - Chmiel.Superman@interia.pl pozdrawiam (brak odpowiedzi)
253. Jak wyświetlać obraz BMP w SVGA??? (brak odpowiedzi)
254. mam problem przepisałem taki oto program do pascala program Zaba; uses Graph; var karta,tryb:integer; n_kat,i,x,y,r,los:longInt; skok: real; begin karta:=detect; initGraph(karta,tryb,''); n_kat := 3; skok := 1 / 2; r := 200; for i := 1 to 10000 do begin putPixel(x + 320, y + 240, yellow); los := random(n_kat) + 1; x:=round(x+(r*cos(los*2*pi/n_kat)-x)*skok); y:=round(y+(r*sin(los*2*pi/n_kat)-y)*skok); end; readLn; closeGraph; end. gdy kompiluje niema zadnego bledu lecz dgy chcem go uruchomic nic się nie dzieje niewiem dlaczego prosze o szybkom odpowiedz z góry dzięki. (brak odpowiedzi)
255. mam problem czy mógłby mi ktoś zrobić w TP grafikę koła olimpijskie o odpowiednich kolorach bo ja nic z pacsacla nie umiem. Potrzebne szybko (brak odpowiedzi)
256. mam problem czy mógłby mi ktoś zrobić w TP grafikę koła olimpijskie o odpowiednich kolorach bo ja nic z pacsacla nie umiem. wysłali byście mi to na e-maila cristiano602@wp.pl Potrzebne szybko (brak odpowiedzi)
257. Co zrobić, gdy mam nowy komputer, a w Turbo Pascalu7.0 wyskakuje: File not found (SYSTEM.TPU)? Please, help me! (1)
258. witam mam pytanko jak skopjować gotowy tekst do free pascala?? mam zrobiony program jest zapisany w notatniku i che go skopjować do pascala:D (1)
259. Witam.. mam pytanie. Muszę napisać słownik polsko-angielski. Program ten powinien gromadzić polskie słowa oraz ich angielskie tłumaczenia (oczywiście nie cały słownik) w tablicy (lub tablicach) oraz umożliwiać wprowadzanie nowego słowa do słownika jeżeli jeszcze się w nim nie znajduję.. jak to zrobić?? (1)
260. Hey !POMOCY! musze napisac gre WARI - gdy mam 1 tablice [1..12,1..48] UTKNELAM kiedy gracz_1 wprowadza ktore pole ma oproznic - jest rowne 0, poczatkowe bylo 4 - a kolejne 4 pole zwiekszaja sie o 1 - no wiec 5 - I WTEDY zaczyna sie PROBLEM dalej w procedurze nie zmieniaja sie wartosci wiec zamiast 1,6,6,... on robi 0,5,5,... PROSZE O POMOC - to moja praca na zaliczenie - (1)
261. tak zmienne sa globalne Procedure due_ (var table:arrayAB; a1,a2,cupA,cupB,ma,mb,za,zb:integer;empty_A,empty_B:integer); var x,y:integer; N,q1,q2,r:integer; begin ma:= 24; cupA:= 0; mb:= 24; cupB:= 0; a2:= 4; za:=4; zb:=4; n:= 1; while n<= 2 do begin repeat writeLN(name_A,' Which cup is to be emptied ?'); ReadLN(empty_A); za:= 0; until (empty_A>=1) and (empty_A<=6); a1:= empty_A; q1:= empty_A; for x:= 1 to a2 do begin a1:=a1+1; table[a1,a2]:= a2+1; write(' ',a1, ' - ',table[a1,a2]); if (a1>=7) or (a1<=12) then begin a2:= a2; if (a2= 2) or (a2 = 3) then begin cupA:= cupA+a2; end; end; ma:= ma-1; end; table[empty_A,a2]:= 0; writeln; writeln('ma - ',ma); writeln('!!!!!!!!!!!!!!!!!!!!!'); repeat writeLN(name_B,' Which cup is to be emptied ?'); ReadLN(empty_B); until (empty_B>=7) and (empty_B<=12); a1:= empty_B; q2:= empty_B; for y:=1 to a2 do begin a1:= a1+1; if a1>= 12 then begin a1:= 1; end; {of if ...} table[a1,a2]:= a2+1; write(' ',a1, ' - ',table[a1,a2]); if (a1>=1) or (a1<=6) then begin if (a2= 2) or (a2 = 3) then begin cupB:= cupB+a2; end; end; mb:= mb-1; table[q2,a2]:= zb; end; writeln; writeln('mb - ',mb); n:= n+1; end; end;{of procedure} (brak odpowiedzi)
262. Pomocy! Uzytkownik podaje date w postaci np. 1 stycznia, program zwraca jaki to dzien tygodnia, nastepnie uzytkownik pisze liczbe np. 40 a data zmienia sie o 40 dni do przodu i wyswietla dzien tygodnia np. wtorek. pomocy! (brak odpowiedzi)
263. Pomocy! Uzytkownik podaje date w postaci np. 1 stycznia, program zwraca jaki to dzien tygodnia, nastepnie uzytkownik pisze liczbe np. 40 a data zmienia sie o 40 dni do przodu i wyswietla dzien tygodnia np. wtorek. pomocy! (brak odpowiedzi)
264. Pascal mi sie tnie, co zrobic?????? przytrzymam spacje a dopiero za moment idzie do przodu? wczesniej sie tak nie dzialo, co mam zrobic? (brak odpowiedzi)
265. Jak pozbyć się buforowania? (brak odpowiedzi)
266. PROSZE O POMOC TA PRACA JEST NA ZALICZENIE !!!! tak zmienne sa globalne Procedure due_ (var table:arrayAB; a1,a2,cupA,cupB,ma,mb,za,zb:integer;empty_A,empty_B:integer); var x,y:integer; N,q1,q2,r:integer; begin ma:= 24; cupA:= 0; mb:= 24; cupB:= 0; a2:= 4; za:=4; zb:=4; n:= 1; while n<= 2 do begin repeat writeLN(name_A,' Which cup is to be emptied ?'); ReadLN(empty_A); za:= 0; until (empty_A>=1) and (empty_A<=6); a1:= empty_A; q1:= empty_A; for x:= 1 to a2 do begin a1:=a1+1; table[a1,a2]:= a2+1; write(' ',a1, ' - ',table[a1,a2]); if (a1>=7) or (a1<=12) then begin a2:= a2; if (a2= 2) or (a2 = 3) then begin cupA:= cupA+a2; end; end; ma:= ma-1; end; table[empty_A,a2]:= 0; writeln; writeln('ma - ',ma); writeln('!!!!!!!!!!!!!!!!!!!!!'); repeat writeLN(name_B,' Which cup is to be emptied ?'); ReadLN(empty_B); until (empty_B>=7) and (empty_B<=12); a1:= empty_B; q2:= empty_B; for y:=1 to a2 do begin a1:= a1+1; if a1>= 12 then begin a1:= 1; end; {of if ...} table[a1,a2]:= a2+1; write(' ',a1, ' - ',table[a1,a2]); if (a1>=1) or (a1<=6) then begin if (a2= 2) or (a2 = 3) then begin cupB:= cupB+a2; end; end; mb:= mb-1; table[q2,a2]:= zb; end; writeln; writeln('mb - ',mb); n:= n+1; end; end;{of procedure} (brak odpowiedzi)
267. animacja rzutu ukośnego (1) N

Zadaj własne pytanie...

Twoje pytanie:
 


Podpis: 

Wpisz wynik: trzy dodać pięć równa się (pisane cyfra)