Podejrzewam, że wyświetla się wszystko, tylko w terminalu mieści Ci się tylko 300 ostatnich wierszy. Zwiększ rozmiar bufora ekranu(Prawym na belkę terminala, właściwości i tam znajdziesz).
Witam Nie wiem czy Ci po trzeba pętli do tego ale to Ty piszesz ten program Możesz zrobić sobie warunek np else http://4programmers.net/Delphi/Else Pozdrawiam i miłej zabawy
[syntax=delphi]var T: array[1..10000] of LongInt; i, max, min, n: LongInt; begin for i:=1 to n do // pętla do n gdzie n nie jest znana ... Read(n); // doiero wewnątrz pętli wczytujemy to n // tu wyliśmy z pętli ale teraz n - to ostatnio wczytana liczba max := 0; min := 0; for i:=1 to n do // pętla do któreś tam wczytanej liczby begin if T[i]> max...
"Psiaka"? Takie zadania na drugą lekcję? To profilowane liceum lub technikum? A remedium: Google: kurs pascal podstawy - i proponuję ostro się brać za czytanie ;) Wiesz choć, jak struktura programu pascala wygląda?
Z tego co pamiętam, chyba najbardziej eleganckim sposobem było: [syntax=pascal]repeat until keypressed;[/syntax] Czyli pusta pętla kończąca się po wykryciu wciśnięcia dowolnego klawisza.
pętla
Nie. Instrukcja warunkowa i pętla to z pewnością nie jest to samo.
Robisz podstawowy błąd przy używaniu read() i readln(). Spróbuj w ten sposób : program kolo; var znak : char; r : real; begin repeat writeln('Podaj promien: '); readln(r); writeln('Pole jest rowne: ',PI*r*r:0:2); Writeln('Chcesz powtorzyc program t / n : '); read(znak); until Upcase(znak)<>'T';...
[syntax=pascal]var text:string; var i,len:integer; begin ReadLn(text); len:=Length(text); for i:=1 to len do begin if text[i]<>text[len+1-i] then begin WriteLn('nie'); break; end; end; if i = len do WriteLn('tak'); end.[/syntax] W sensie tak nie przejdzie? Nie sprawdzałem, tylko pytam. i jest równe len tylko jeśli pętla doszła do końca bez przerwania.
Może i ten program jest " nie profesjonalnie napisany" ale mi chodzi bez zarzutu więc nie rozumiem po co te uwagi... Ktoś chce ci pomóc to jeszcze masz pretensje. Pod nickiem napisałeś sobie "Marzyciel o programowaniu". Jeżeli masz takie podejście do oferowanych uwag, to tylko przy tym marzycielu zostaniesz. Jedyny problem to taki że przed wyświetleniem...
Albo ty nie zrozumiałeś mnie albo ja ciebie. Podaje jedno słowo, które program ma wyszukać w pliku i wypisać je z tłumaczeniem. Jest pętla WHILE i EoF więc raczej przeszukuje cały plik.
niczym... po prostu petla sie kreci od startu programu w nieskonczonosc... Chyba raczej od startu petli...nie programu. Jesli tak to jaki jest sens tej petli: for(;;byCount++) { LookForCommands(byCount, READING_TEMPERATURE); } Ta tez powinna sie krecic w nieskonczonosc, wobec tego dlaczego mamy tutaj inkrementacje co jeden...
bo masz zły warunek w while. To nie pascal i repeat :). Tutaj warunek ma być prawdą, wtedy pętla się powtarza. Kiedy j=0 a myg=5, po pierwszym wykonaniu pętli masz j=1 a mryg=5. Warunek j>mryg to 1>5 czyli fałsz, więc pętla się kończy. Analogicznie w drugą stroną. j=0, mryg = 0, po pierwszym przejściu masz j=1, mryg=0, więc 1>0 czyli prawda, więc pętla...
Instrukcja repeat w języku Pascal służy do wielokrotnego wykonywania grupy instrukcji w niej zapisanych.: No więc pętla repeat to najprościej mówiąc pętla która wykonuje się do momentu aż nie zostanie spełniony warunek wyjścia. repeat {tutaj jakieś instrukcje} until warunek_wyjscia; Warunkiem wyjścia może być w suie jakiekolwiek wyrażenie logiczne....
1. Tworzysz zmianą klasy TStringList. Ładowanie pliku TStringList.LoadFroFile(nazwa_pliku) 2. Liczba linii -> TStringList.count 3. Ilość znaków -> sizeof(TstringList.text) 4. Liczenie spacji -> prosta pętla na przeliczanie występowania znaków w TStringList.text. 5. To samo co wyżej, wywołane dla każdej litery. Ten program można napisać w ok 20 liniach....
Jak dla mnie to nie masz zdefiniowanej bezparametrowej procedury Sort, a ją wołasz. To musi dać błąd kompilacji. Procedura w procedurze jest jak najbardziej poprawna, ale nie analizowałem czy to prawidłowo działa. Jeżeli masz problem z procedurą sortowania to wyrzuć (zakomentuj) jej zawartość. Niech nic nie robi. Zwalcz błąd kompilacji, a potem dopiszesz...
Jeśli chodzi o programowanie to na początek, na dwa tygodnie polecam Pascala. Po dwóch tygodniach początkujący programista będzie już wiedział co to pętla i funkcja, a może nawet będzie w stanie narysować coś na ekranie. Polecam Pascala, gdyż w kursach żadnego innego języka nie jest to wytłumaczone tak prosto. Potem powinien nastąpić przełom - nauka...
Pętla while obejmuje Ci jedną linijkę. Ten program powinien się zawiesić, więc omówione wyniki nie są zgodne z tym kodem programu. Przy okazji bardziej polecałbym sczytywanie po linii, czyli readln Zapisz też kod w znaczniku [ syntax ] tu na Forum.
1) iteracyjnie: Function Silnia(value: Word): LongInt; var i: Word; result: LongInt; begin result := 1; {Jeżeli value = 0 to pętla nie jest wykonywana - 0! = 1} if value > 0 then for i := 1 to value do result := result * i; Silnia := result; end; 2) rekurencyjnie: Function Silnia(value: Word): LongInt; begin Silnia := 1; if value > 1 then Silnia :=...
Chce napisać program, w którym użytkownik poda ciąg liczb, a program je przetworzy. Dodatkowo chce zrobić coś takiego, żę gdy się wpisze 0 to, pętla która zczytuje liczby, ma się zatrzymać. I tu właśnie mam problem. Liczby które zczytuje są zapisywane w tablicy. I nie wiem jak zrobić żeby właśnie po wpisaniu 0 pętla się zatrzymywała. Zrobiłem cos takiego...
begin repeat repeat repeat a:=dane[i]; b:=dane[j]; c:=dane[k]; if (i<>k) and (j<>k) and (i<>j) then sprawdz(a,b,c); k:=k+1; until k=n; j:=j+1; until j=n; i:=i+1; until i=n; Według takiego schematu zrobiłbym całą pętlę programu, korzystając z funkcji, którą...
arnoldziq. Dostałeś pomógł, bo na prawdę mi pomogłeś. Chodzi o funkcję ReadKey oraz KeyPressed. To eliminuje użycie asemblera do odczytu znaków z klawiatury. Reszcie dziękuję za spopularyzowanie tego tematu. Ogólnie to program chodzi paskudnie. Działa bardzo powoli. Spodziewałem się tego. Ale na początek nauki programowania wystarczy. Na razie nie chcę...
Szukasz najczęściej występujące "piątki" w totolotku?? :) Do tego tematu można podejść na kilka sposobów, zależy, jak szybki musi być "algorytm". Ja spróbowałbym tak: na wstępie posortował liczby w pliku rosnąco, ew.wygenerował z nich nowy, posortowany plik. Następnie dwie zagnieżdżone pętle for (albo for i while ) - pierwsza pętla odczytuje kolejne...
program zliczacz; uses crt; var samogloski : set of char; w : string; l, s,d : integer; BEGIN s := 0; { Licznik samogłosek} samogloski := ['E','I','A','O','Y','U']; repeat ClrScr; { Skasowanie ekranu } Write('Podaj słowo (linia pusta= koniec): ') ; readln(w); d:=Length(w);...
jaki algorytm odnośnie sprawdzania uszkodzonych ramek? hmmm poza zliczaniem nadlatujących bitów, sprawdzam jeszcze szerokości impulsów i w zależności od tego kieruję procedurę na odpowiednie tory. if ( PulseWidth < MIN_HALF_BIT ) frame_status = FRAME_RESTART; // gdy zakłócenia (szpilki) - RESTART if ( PulseWidth > MAX_BIT )...
Jak zacząć? :) Sciagnij kompilator i napisz prosty hello world :P A potem poznaj jak działa if, pętla for, naucz się korzystać ze zmiennych, z tablic... z miesiąc albo dwa poćwicz takie elementarne rzeczy, a potem poprobuj sobie jakieś algorytmy implementować np. sortowania...następny miesiąc ćwieczenia :) A potem już możesz sie zabrać za nauke zaawansowanych...
:arrow: hunterhouse Dobrze, ale nie wszystko, nie zgadza się z algorytmem :( W sumie to się zgadza, ale tylko dla 3 próbek, ale te 3 próbki to za mało. aby zapisać sygnał 31 Hz (najniższa częstotliwość filtrowana) przy próbkowaniu 44.1kHz potrzebujesz aż: 44100/31=1423 próbki. Do atmega można chyba podłączyć pamięć zewnętrzną (ale nie wiem, bo nigdy...
To co "pożera procesor" z programów DOSowych w Pascalu to procedura DELAY i inne pętle opóźniające. Sprawdź czy w tym programie są tego typu procedury lub pętle i trzeba je usunąć lub zastąpić windowsowymi metodami oczekiwania. Jeżeli chcesz mieć "żyjące" okienko i coś co wykonuje się długo, to możesz: 1. rozbić go na mniejsze elementy i uruchamiać...
Witam może nie takiej odpowiedzi się spodziewałeś ale nie wiem na jakim jesteś etapie programowania w Pascalu przesyłam ci plik ze źródłem pewnego programu sam go napisałem jakiś czas temu na zaliczenie wiec nie ma obawy o prawa autorskie. :) Jest tam kilka procedur i może wydawać się rozbudowany ale działa poprawnie, a w programie głównym jest zastosowana...
Najprościej będzie zrobić sobie całość w pętli while lub repeat. [syntax=pascal]REPEAT for a:=1 to 5 do writeln('*'); writeln('Czy powtórzyć t/n?'); readln(odp); UNTIL(odp='t');[/syntax]
Round(x) wartość x zaokrąglona do najbliższej liczby Integer. przynajmniej teoretycznie.
Bardzo nieładnie jest to napisane - naucz się używać w kodzie programu klawisza Tab i dodatkowych spacji przy pętlach/warunkach itp. Wydaje mi się że problem tkwi w tym iż w drugiej pętli for zwiększasz wartość zmiennej b, a wczytujesz do tablicy w której podstawiasz zmienną a - więc dla każdego z 10 przypadków zapisujesz w tym samym miejscu. Co do...
Ależ to jest wręcz liniowy program wyłącznie z pętlami. http://www.algorytm.org/kurs-algorytmiki... - na dole strony.
Pomożemy <> napiszemy za Ciebie.
Ujmuj kod w znaczniki [ code ] ! Problem skalowania wykresów to po prostu dostosowanie jego skali do wartości maksymalnej. Dalej z proporcji. Ponadto kolega chyba nie zna jeszcze czegoś takiego, jak pętla - zgadza się?
No to bez kodu nie pomożemy. Jak wygląda Twoja pętla?
Dzięki teraz wszystko działa
A co więcej ma robić jeżeli ma do dyspozycji jedną liczbę? Stwórz dodatkową tablicę dla żądanej ilości liczb. W przedstawionym kodzie to tablica liczby[1..mx]; Wynik zapisuje się w katalogu głównym dysku c: [syntax=pascal] uses crt; const mx=2; var cyfry:array[1..16] of integer; liczby:array[1..mx]of integer; plik:text; x,i,j,k:integer; begin clrscr;...
1. Tablica statyczna - po prostu array 2. Parzyste elementy - reszta z dzielenia (dzielenie modulo = mod ) = 0 3. Algorytm bąbelkowy - znajdziesz opis np w tej paczce: http://www.dzyszla.aplus.pl/download-32.... Nie przejmuj się, że to C. Po prostu przeczytaj punkt 2.3 z pliku sorts1.doc 4. pętla i dodawanie do zmiennej 5. kolejna tablica - P pkt....
Myślę, że będzie trudno napisać algorytm, że jeśli podasz 'dwa' to ma robić 2 4 8, a jeśli 2 to ma robić 2 4 4... Rozumiem, że jak podasz 'trzy' to ma robić 3 9 27, a jak 3 to 3 9 9, czy może 3 6 6?
tylko i wyłącznie dzielenie i odejmowanie. Czyli [0]=liczba/100 (stałoprzecinkowe - pascal - div) [1]=liczba/10-[0]*100 itd. oczywiście do wykonania w pętli.
for i:=1 to x do begin for j:=1 to y do begin write(tablica[i,j]:3)... end; writeln; end; musisz dać 2 beginy i writelna program działa tak(niech x=2,y=2): x=1,y=1 wypisz(t[1,1]); x=1,y=2 wypisz(t[1,2]); (kończy się pętla wewnętrzna bo y=2) więc koniec; przejdź do następnej; koniec; (i powrót do zewnętrznej bo x teraz =2)...
Sugeruję użyć opcji "Szukaj"... [url=http://www.elektroda.pl/rtvforum/to... umożliwiająca wprowadzenie n liczb [url=http://www.elektroda.pl/rtvforum/to... pobieranie danych do tablicy. itd. ... A tutaj praktycznie gotowy kod... [url=http://www.elektroda.pl/rtvforum/vi...
W sumie to nie potrzebny tobie SCL. Program można zrealizować w drabince. Trzeba sobie uzmysłowić że PLC działa jak jedna wielki pętla. Więc zrób sobie licznik n.p na bloczku ADD gdzie do zmiennej co cykl będziesz dodawał wartość 1 oraz warunek na jej zerowania na bloczku porównania CMP. Dalej no to tylko robisz już szeregowo IF więc jeżeli n większe...
Nie bardzo rozumiem czemu ? (..) I za każdym razem liczby wychodzą posortowane. Myślę, ze warto trochę teorii wspomnieć, bo może ja coś pokręciłem i dlatego nie bardzo rozumiem. (..) Kiedy profesor taki własnie sposób na sortowanie nam podał ;) Moje kondolencje. Tak po prostu się nie powinno robić - nie chodzi koniecznie o kwestię działa/nie działa,...
writeln('pole trojkata rownobocznego o boku ', d,' i wysokosci ', h,' wynosi ', wynik:2:2); Wystarczy dodać "ciapki" :P (znaczy apostrofy) kończące stringi - wtedy zadziała jak chcesz. A pętla - weź całość w pętlę repeat .. until: var a, b, c, d, e, f, h, wynik: real; z: integer; begin repeat {tutaj cała treść programu}...
Wiem, wiem ze dzieleniem :) Załóżmy ze mamy liczbę 125 i chcemy ja podzielić w tym programie przez 5. Co robimy? Wczytujemy liczbę(125) dzielnik(5) a następnie tworzymy pętle, jaka to ma być pętla? Jak to ma wyglądać ze program sprawdza czy w 1-dycne mieści się 5-tka jeżeli nie przepisuje kolejna liczbę i tak dalej? Jak program ma to zrobić w bardzo...
Zależy co dokładnie chce się robić jeśli chcesz programować gry pod windowsa to napewno dokładnie naucz się C lub C++ plus directx lub opengl, opengl jest łatwiejszy ale jednak w direct więcej można dokonać, jeśli interesują cię bazy danych to sql lub inne jeśli programowanie w necie To najlepiej PHP teraz modna staje się Java(np. programowanie na komórki)...
tu masz przykład:
Witam Można wczytywać cyfrę znak po znaku w pętli. Należy użyć funkcji readkey. Do odczytania znaku przecinka obliczamy liczbę przed przecinkiem. Po odczytaniu znaku przecinka obliczamy liczbę przed przecinkiem. Jeśli naciśnięto klawisz enter kończymy oblicznie.
pisać pascal pascal litery komendy pascal
grzałka mniejszej jacuzzi pompa serwisowanie telefonów komórkowych
Ciśnienie sprężania Audi A4 B6 1.8T AVJ - utrata mocy i kopcenie Jak sprawdzić strojenie bass-refleksu w kolumnie basowej?