Może masz racje że pętla jest bez sensowna ale jak dla mnie program miał wyświetlać 20 liczb z określonego przedziału i wybierać max i min i to też robi więc uważam że dobrze wykonałem zadanie. A wstawiłem te dwie pętle bo uważałem że są potrzebne jak zauważyłeś ja się uczę a nie programuje i nie znam się na tym tak dobrze jak TY... I masz racje pierwsze...
i ja się dołączam: program tablice; var x,y: byte; //współrzędne kom. w tabeli min, max: integer; //wartości max i min tab: array[1..4,1..4] of integer; //tablica suma: array[1..4] of integer; //tablica sum kolumn suma2: integer; //na potrzeby średniej sr: real; //średnia begin randomize; //dzięki temu losowane...
a po co record? wystarczy typ. Ponadto - widzę niezgodność typów tablicy z n i for n:=z to n do - zagrożenie pętlą nieskończoną! uzywasz tej samej zmiennej po obu stronach. nie ja uzywam tylko przerobilem ten program co byl, autor powinien sam popracowac - ja podpowiadam....
Witam, nie bardzo nadazam za twoim rozumowaniem: - masz tablice z praypadkowymi wartosciami - znajdujesz minimum w tej tablicy i co ? ->"Teraz potrzebuję te minimum wpisać do drugiej tablicy(wskaźników) tyle razy(bez powtarzania sie wartosci), aby ona była posortowana od najmniejszego do największego." - co chcesz z tym zrobic ? Czy minimum to najmniejsza...
Witam serdecznie wszystkich użytkowników ;) Mam takowy problem... muszę napisać program, ale nie wiem jak... wiem jak napisać początek, niestety drugiej części napisać już nie potrafię :( oto zadanie: Napisać program o następujących założeniach: 1. Wczytać dane do tablicy dwumiarowej "d1" o rozmiarze ║ program liczby; ║ uses crt; ║...
Po pierwsze, musisz się zdecydować na jedną z metod postępowania z baza danych. Albo pracujesz, na zdefiniowanych tablica, które czytasz i zapisujesz do plików przy starcie i końcu programu, albo operujesz bezpośrednio na plikach. 1 Jak wczytać dane z pliku do tablicy po każdym uruchomieniu programu? Jeżeli zdecydujesz się na tablicowanie danych przy...
program tablica; uses crt; var t:array[1..10] of integer; i:integer; begin clrscr; 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 begin if t[i] mod 2 =0 then writeln(t[i]); end; readln; end; tak wygląda...
Ponizej przedstawiam program ktory sam napisałem w Dev-Pascalu brakuje mi jednak tylko pare elementów. Otóż chodzi mi aby do niego dodac nastepujące elementy: W ostatnim polu pierwszej tablicy ma być zapamiętana suma wszystkich poprzednich wartości w tablicy. W ostatnim polu drugiej tablicy ma być zapamiętany iloczyn dziesiątych części wszystkich poprzednich...
A czy kolega rozumie w ogóle zadanie? Masz znaleźć takie trójki liczb, których suma... czyli sprawdzamy 1+1+1 = 3 - OK 1+1+2 = 4 - :( 1+1+3 = 5 - OK 1+1+... 1+1+19 = 21 - :( 1+2+1 = 4 - :( czyli masz stworzyć de facto tablicę (jesli już chcesz takową) o szerokości 3 i długości wynikającej z kombinacji liczb, a następnie wyznaczać sumę i sprawdzać, czy...
Zastosuj pętlę w pętli, pierwsza pobiera kolejne wartości z pierwszej tablicy, druga "przelatuje" po tablicy drugiej i porównuje wartość. W pierwszej możesz użyć "for" a w drugiej "while".
Jeszcze jedno proste spostrzeżenie, longint czyli 2^31, pierwiastek z tego to 46344, potencjalne podzielniki nie będą większe niż ta liczba i co ważne same będą liczbami pierwszymi, jest ich nie wiele, około trzech czterech tysięcy, może warto zebrać taką tablicę (przyśpieszenie kilkukrotne)
A jest jakaś funkcja która kopiuje takowe elementy? To jest kopia "stała", czy rekord dalej będzie obecny w pierwszej tablicy?
Nic nie jest na tyle doskonałe, aby nie można było tego ulepszyć ;) Mnie się zdaje, czy tu powinny być dwie pętle - znajdowanie czynnika i porównanie go ze wszystkimi elementami tablicy? Ty porównujesz pierwszy czynnik z pierwszym elementem tablicy, drugi z drugiem itd... Raczej pozbawione sensu...
To w takim razie tak, musisz wrócić do rozwiązania z tablicą. Chodzi tu o dwie proste sytuacje: Pierwszą, jeżeli kilkukrotnie kopiujesz i wklejasz ten sam kod po czym modyfikujesz poszczególne kopie. Drugią jest pisanie "identycznego" kodu parokrotnie. Nie tylko masz więcej kodu do ogarnięcia, ale też ryzykujesz przeoczeniem jakiejś zmiany którą powinieneś...
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...
Witam Proszę o pomoc w zadaniu: Muszę w Pascalu napisać program, w którym na początku program pyta o wielkość tablicy ... liczby:(array[1..x, 1..y] of integer; ... a następnie wprowadzam dane do tablicy. I ostatni krok to liczby te muszę do siebie dodać lub odjąć. koniec zadanie pierwszego. Następne zadanie już sobie poradzę analizując to pierwsze....
Defice - masz błąd. Jeśli tablica nie jest zainicjowana, to to pierwsze przypisanie w pętli będzie bzdurne, a poza tym takich przypisań się nie robi w pętli ;) A to poza pętlą to po co? (at)Autor - w internecie znajdziesz multum implementacji algorytmów wyszukiwania najmniejszej/największej wartości. /Dasz dużo to znaczy 18? :lol:/
Jeśli dobrze zrozumiałem, musisz za każdym (poza pierwszym) losowaniem liczby sprawdzać czy nie znajduje się już w tablicy, i w zależności od wyniku tego sprawdzenia powtarzać losowanie lub nie.
Tak jak napisales ten program jest latwy. Ale nie wiem co sobie trzeba w nim przypominac. Skoro jesli nie pamietasz wzoru na wyznaczenie prostej wystarczy toworzyc tablice. Wczytanie 6 zmiennych - obliczenie parametrow a i b (pierwsze 4 parametry) funkcji postaci y=ax+b. Podstawienie do funkcji 5 parametry i porownanie y z 6 parametrem jesli y=6.par...
Po pierwsze jaki język c++, delphi, pascal, asm co my wróżki!!!! Jak w c++ poszukaj info o funkcji random, rand, randomize
czemu w rekordzie masz tablice stringów ? Przemko - to nie tablica stringów, tylko ShortString o określonej długości. (at)tomek98-99 Po pierwsze warunek na brak wyników jest niewłaściwy, gdyż odwołujesz się do ostatniego przypadku, co jest błędem. Radzę przed pętlą utworzyć sobie zmienną iw przypadku znalezienia - zmienić jej stan. Jesli nie doszło...
W pierwszej pętli for i:=1 to n to na jej zakończeniu i ma wartość n czyli indeks ostatniego elementu tablicy (np 100) i gdy jest przypisanie min:=tab(i) to oznacza min:=tab(100). Porównanie pierwsze jest na pewno dla elementu ostatniego, kolejne już nie musi być dla ostatniego - w zależności od wyniku porównania poprzedniego.
Jeśli jest multi select, to należy skorzystać z innej właściwości - Files, bo Filename przechowuje tylko nazwę jednego pliku, stąd też tylko jeden się dodawał. Można to zrobić w pętli i dodawać kolejne pliki. W przykładzie poniższym nie ma ścieżek, co jak pisałem wcześniej będzie problemem przy otwarciu pliku (jeśli nastąpi zmiana katalogu przy Open...
suma:=0; for j:=1 to n do suma:=suma+tab[1,j]; //suma elementów pierwszej kolumny w wierszach od 1 do n writeln(suma);
Potrzebuję informacji jak mogę dodać do tablicy dynamicznej na jej koniec wartość. Posiadam dwa typy rekordowe w postaci: [syntax=delphi]type dla_marki=record id:integer; marka:string; end;[/syntax] oraz [syntax=delphi]type tab_pocz=record id:integer; wartosc:string; indeks:integer;[/syntax] Dla typu 'tab_pocz' ma tworzyć tablicę dynamiczną. Jest to...
Boolean to typ logiczny przechowujący dwie wartości - prawdę lub fałsz. A programik jest dość marnie napisany niestety :( Sama procedura dość enigmatycznie wygląda, a wmieszanie zmiennych globalnych jest naganne. Myślę, że to nie jest dobra baza do nauki. I podpiszę się pod zdaniem poprzednika - przyda się kilka pierwszych lekcji z kursów dla początkujących,...
Witam, w szkole na zaliczenie mam zadanko z Pascala. Nie byłem na wszystkich zajęciach stąd wiedza jest troche ograniczona (niestety taka praca). Zadanie mam takie : program ma przeczytać 10 liczb, policzyć liczby ujemne i dodatnie, a nastepnie wypisać te których jest więcej. Drugie zadanie (nieobowiązkowe) mam takie: macierz dwuwymiarowa 3x4, program...
Oj myślę cały czas bynajmniej staram się gra prawie skończona,jeszcze dodam ze dwa potwory oraz losowanie pierwszych współrzędnych, podzielę sobie tablice na 4 ćwiartki w jednej będzie lądował pacman a w pozostałych potwory. Trochę pokoloruje wszystko i dodam nowe plansze:)
Witam serdecznie, potrzebuję zrobić program w pascalu, który będzie liczył wartości tylko zero-jedynkowe w dodatku LOGICZNIE. Wiem jak funkcjonują poszczególne bramki etc. Ale nie wiem jak zdefiniować by program np liczył and z dwóch liczb binarnych. Czyli po dodaniu dla przykładu 0001 and 0110 poda wynik. Na tej samej zasadzie nand, nor, or i xor....
czyli jesli ponumerowana tablica od 1 do 5 to pole 2,2 ; 2,4 ;4,2;4,4 przekatne juz wyliczone teraz zostalo mi do wybrania minimalnej liczby w nieparzystych wierszach i maksymalnej w parzystych kod to <code> program Project2; {$APPTYPE CONSOLE} uses SysUtils; var tab : array [1..20,1..20] of integer; stosunek,suma1,suma2,i,j,w : integer ; Begin...
Pascal niedoprecyzowany? Można i tak. :-) A z tą tablicą dynamiczną to całkiem dynamiczna była raczej lista albo drzewo. Tam z kolei nie było dobrej kontroli nad rozmiarem, a segment DOSa obowiązywał: "Algotytmy + struktury danych=programy". Nie zapominaj w którym roku to wymyślili. Zanim zbudowano pierwszego PC-ta, PASCAL był już szeroko używany na...
Jeśli z = len(a) i x = z, to len(a) < x? Podstawiając z dwóch pierwszych równań do nierówności otrzymujesz z < z - takie zdanie jest zawsze fałszywe. A tak w ogóle cały tok rozumowania jest niewłaściwy. Zadaniem jest znaleźć z tablicy pozycję najkrótszą (z całej, nie z dotychczasowej), a więc jest to algorytm identyczny jak znajdowanie najmniejszej...
Witam. Potrzebuję programu, a oto jego parametry: - musi zsumować liczby z 5 tablic (pierwsze musi poprosić o wpisanie 5 dowolnych liczb, dopiero potem je zsumuje) - musi "segregować" rosnąco liczby (od najmniejszej do największej) - wynik wygląda następująco: "Suma liczb to: #, a ich kolejność w porządku rosnącym to #" Na razie wymęczyłem tyle: Proszę...
Ech... I kwitnie nam pokolenie studentów-informatyków, co na klawiaturze "AnyKey" szukają... :P Sprawa jest banalna. Masz ciąg znaków (tekst) - załóżmy, że w postaci tablicy znaków (array of char). Ustawiasz się na pierwszy element tablicy, sprawdzasz, czy nie jest taki sam jak pierwsza litera szukanego wyrazu, przechodzisz do następnego elementu tablicy...
ale ja zrzęda jestem, do wszystkiego muszę się przyczepić (szczególnie kiedy na czymś się znam) O!!!! jest pierwszy (w dwu wątkach o tym samym) kawałek kodu który robi to co ma robić, choćiaż ;) to -1 "magiczna liczba" a co jeśli chcemy losować także ujemne liczby? lepiej już BREAK (szkoda że nie zadziała - przy tak napisanych pętelkach dam rozgrzeszenie...
Pascal jest bardzo dydaktycznym językiem (ale strukturalnym, nie obiektowym), niestety na rynku królują języki C-pochodne. W gruncie rzeczy Pascal nie różni się głeboko od C. Nadal ten sam model pamięci (ręczne zarządzanie), może tablice są bezpieczniejsze. Ale statystyka Pascala jest bezlitosna. Pozbawiony standardu, z niemal nie istniejącą kompatybilnością...
Znalazłem jeden wieczor i udało mi się wymusić generowanie "muzyczki". Jest program, tablica częstotliwości tonów (od adr. 0200) i tablica nut (od 0300) ale można je poprzestawiać. Do P3.4 wrzuciłem 0 alby zworką P3.4-P3.5 móc zatrzymać generowanie melodyjki. Timer0 generuje zadaną częstotliwość a Tiimer1 nadaje tempo. T1 ma częstotliwość 256Hz. Format...
Ogólnie przyznam się, że jak przeczytałem w Wikipedii artykuł to o ile rozwiązanie iteracyjne wydaje się dla mnie jasne i raczej dałoby radę to zaimplementować na PLC to wklejonego przez Ciebie rozwiązania rekurencyjnego nie mogę zaczaić. Jeśli chodzi o to iteracyjne to ja bym podszedł do tego w taki sposób że: Stworzył 3 tablice od wzorujące poszczególne...
Niestety nie mam czasu pisać gotowych algorytmów dla ciebie :( wielkosc - max ilosc ludzi wpisanych tu masz przykład sortowania bąbelkowego najprostrzego dla jednej tablicy musisz dodać pytanie wg czego chcesz sortować i wtedy zamiast tablica dajesz naprzykład Nazwisko i sortują nazwiska musisz odrazu sortować resztę czyli przestawić wartości w innych...
Dwie sprawy na pierwszy rzut oka: - po pierwsze, nie wiem, co to jest "ciagbinarny", ale w C/C++ tablice indeksowane sa od 0, nie od 1, jak w Pascalu, czyli powinno być: for(int k=0; k < ciagbinarny->GetTextLen(); k++) - po drugie, nie do końca rozumiem, co chcesz zrobić z "tekstpopogrubieniu" - po trzecie w końcu, iterujesz w...
Minimalna i maksymalna liczba Wejście W pierwszej linii wejścia znajduje się jedna liczba całkowita n (1 <= n <= 10000), która oznacza liczbę uczniów w klasie. W kolejnej linii znajduje się n liczb całkowitych (z przedziału od 1 do 1000), które oznaczają wyniki kolejnych pomiarów. Wyjście Na wyjściu należy wypisać kolejno wzrost najniższego i...
Podam kod który powinien Ci pomóc. Strukturę zredukowałem aby dużo nie pisać. Po pierwszym uruchomieniu program tworzy bazę: c:\samochod.000 i wypełnione jest tylko pole tab[0].ile_samochodow; [syntax=pascal] uses crt; const max=50; Type samochod = array[0..max] of record ile_samochodow:integer; identyfikator:integer; marka:string[20]; model:string[20];...
Skleiłeś jakieś 3 fragmenty kodu i w ogóle nie wiesz, co one robią. Skoro wkleiłeś:[syntax=pascal] for i:=0 to 4 do memo1.lines.add(IntToStr(t[i]));[/syntax... to ile liczb ma się wyświetlać, jak nie 5? Jak podajesz w edicie 4, to tylko 4 pierwsze liczby są losowane od 0 do 99 (a nie 100) - czemu piąta miałaby też być wylosowana? Na piątym miejscu w...
Nie napisałem, że za każdym razem paczka odbierana jest źle. Zdarza się (w 90% przypadków), że paczka odbierana jest jednym wywołaniem OnRxChar z prawidłową wartością count=5. Wtedy wypełnia tablicę din prawidłowo pięcioma bajtami np. 112,4,10,9,19. Jeśli kolejna transmisja jest błędna i program (nie wiem czemu) wywoła dwa razy OnRxChar, nadpisuje tablice...
tJanusz C nielogiczne? Wiesz jeśli wszyscy myślą inaczej niż ja, to zastanawiam się czego nie rozumiem. rTom -co do begin i end w Pascalu, nie trzeba zmieniać przyzwyczajeń z Pascala, preprocesor to strasznie silne narzędzie -poważniejsza sprawa to inne priorytety operatorów -w C nie pisze się i=i+1 ;) tylko i += 1, ta konstrukcja jest ogólniejsza,...
przedastawinie diagramu z algorytmem albo algorytmu ze źródłem-kodem-Wirtha? Tak nazywał się szwajcarski twórca pierwszej składni języka Pascal. Nie zebym sie czepial moze i jestes wyksztalcony ale pytanie brzmialo jak ma wygladac kod w delphi a nie szwajcarski tworca pierwszej skladni jezyka..:|:|:| w trybie konsolowym to wyglada tak (zreszta nie...
Witam Potrzebuje zrobić program który będzie podanych przez ze mnie liczb policzy mi średnia arytmetyczna i harmoniczna. Z ta pierwsza sobie poradziłem ale z tą druga już się mecze od paru dni. :cry: Mozę któryś z kolegów rzucił okiem na mój kod i doradził gdzie mam błąd. //Srednia Harmoniczna sumaH:=1/StrToFloat(ListBox1.Items[0]);/... wczytanie pierwszej...
zrobic tablice stringow i do niej wpisac tekst z pliku na poczatku wyswietlic pierwsze 24 linie zrobic zmienne przechowujace od ktorej linii do ktorej linii wyswietlac, po nacisnieciu np. strzalki w dol zwiekszyc obie zmienne i wyswietlic ponownie tekst, po nacisnieciu strzalki w gore zmniejszyc obie zmienne i wyswietlic ponownie tekst, mozna tez obsluzyc...
bez randomize jest ,żebym miał te same liczby dzięki za pomoc z przekątnymi w końcu skumałem zrobiłem z nieparzystymi - luknij program tablice; uses CRT; var T :array niby ok tylko czemu sprawdza mi tylko 3 wiersz a te 2 pierwsze nie ?? jak dam np. for j:=1 to 3 do if (i mod 2)=0 then T to mi sprawdza 2 wiersz i ewent. zamienia na 0 tak jak powinno...
1. No gdyby był trudniejszy, to bym zaczął marudzić, że kawa mi się rozpuściła i nie widać błędów, a szklana kula potłukła... 2. W nazwach: programów , zmiennych, stałych, procedur, funkcji nie wolno stosować znaków spoza zakresu A-Z,a-z,0-9,_ (ANSI, a więc z podstawowego zakresu tablicy ASCII) a na dodatek pierwszym znakiem musi być litera lub _ 3....
var a,b:integer; tim: array [1..10] of string; tna: array [1..10] of string; imi: TextFile; naz: TextFile; begin clrscr; writeln('Program zapisuje do pliku 10 imion i 10 nazwisk'); writeln; for a:=1 to 10 do begin writeln('Podaj ',a,'. imie:'); readln(tim[a]); end; write('Imiona:...
tablica pascal liczby pierwsze pascal pierwsze pascal tablica
split podłączyć modbus ciepła inteligentny rs485
protel download polecane wałki dociskowe
Lenovo ThinkPad Slim-Tip Charger ADLX45NLC3A Cable Pinout, Wiring, and ID Resistor Details Komunikat "INFO Badge card" w centrali Aritech
