eh, masz i nie mecz juz :P PS. oczywiscie da sie w jednej podwojnej petli, ale napisalem lopatologicznie, moze kolega cos postara sie zrozumiec :P program czarna_magia; var i,j :byte; min, max :byte; t :array[1..4,1..4] of byte; suma_kolumn :array[1..4] of integer; srednia :real; begin // inicjalizacja generatora...
Ad. 1. Po prostu Write(g) (możesz też w jednej procedurze podawać kilka parametrów oddzielonych przecinkami i mogą to być zarówno teksty jak i liczby w postaci stałych lub zmiennych. Ad 2. Każde odwołanie do tablicy zapisuje się poprzez nawias kwadratowy ( tablica ), gdzie tablica to zmienna typu array, a numer to wartość z zakresu indeksu (nie koniecznie...
Proszę bardzo :[syntax=pascal]program losowanie; const dolny_zakres = 20; gorny_zakres = 59+1; {sprawdz skad te +1, bo nauczyciel na pewno zapyta} ile_liczb = 20; var x,liczba : integer; begin randomize; for x:=1 to ile_liczb do begin liczba:=random(gorny_zakres-dolny_zakres... write(liczba,','); end; writeln; end. [/syntax]
Witam.Jedno z sumowaniem dla przykładu zrobiłem.Z resztą kolega powinien sobie poradzić bo wzór już będzie i programiki są bardzo proste :D program suma_tablic; uses crt; type tab=array[0..10] of array[0..10] of integer; var a,b,c:tab; i,j:integer; procedure wyswietl(d:tab); var i,j:integer; BEGIN for i:=0...
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...
Kiedyś sporo pisałem w Pascalu i z tego co pamiętam nie ma tam możliwości deklarowania tablic o dynamicznie zmieniających się wymiarach. Pojęcie zmiennej/ tablicy dynamicznej w Pascalu istnieje, ale odnosi się do dynamicznego przydzielania/zwalniania pamięci dla zmiennych, realizowane przez parę procedur new i dispose.
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...
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 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; ║...
Witam Mam pewien problem, wchodze w glowe alenie moge znaleźć rozwiazania. Chodzi o to aby zadeklarować tablicę N elementową a funkcja w której bedzie uzyta ta tablica bedzie ustalała ilo elementowa jest ta funkcja; np. funkcja -> pamiec(30) bedzie tworzyc tablice 30 elementowa i wykonywac jakies tam swoje obliczenia. Bardzo proszę o pomoc w jaki sposób...
program osi; var t:array[1..10] of integer; n:array[3..100000] of longint; x:array[-100000000..100000000 ... of integer; begin end. co tu jest nie tak ?
d to tablica liczb, a do wyświetlenia potrzebny jest tekst. Błąd polega na niezgodności typów - musisz dokonać konwersji liczby na tekst (inttostr).
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....
Ma wartość 0 (sprawdź!) i to jest źródło twoich kłopotów: Tablicę zadeklarowałeś jako: każdego kolejnego pytania: [syntax=pascal] a := a + 1; if (pytanie_no1='b') then tablica[a].pytanie1:='1' else tablica[a].pytanie1:='0' ; [/syntax] 2. W ogóle odpuścić sobie tę zmienną i indeksować tablicę ręcznie: [syntax=pascal] if (pytanie_no1='b') then tablica[1].pytanie1:='1'...
To jeszcze po części zależy od tego, jak chcesz zrealizować interfejsowo kwestię. Tak, na plansze nada się tablica dwuwymiarowa. A właściwie to dwie - po jednej na każdego zawodnika. Gra by musiała składać się z dwóch etapów: 1 - wypełnienia tablicy (ręcznie lub automatycznie), 2 - właściwej gry. Jeśli to mają być tylko pojedyncze statki, to sprawa...
Generalnie to nie ma potrzeby aż tak szerokich opisów. Np dla warunków wystarczy "l1 = 25?" Komunikat proszący o podanie oraz operacje podania liczby można zapisać w jednym bloku wejścia wyjścia, ale jeśli rozbijemy na dwa, to nie jest to jakimś błędem. W całej petli FOR zdecydowanie zapomniałeś o zwiększeniu licznika pętli. Takie funkcje jak wyczyść...
[syntax=pascal] tablica[25]:=0; for l1 := 1 to 24 do begin write('Podaj liczbe nr ',l1,': '); readln(tablica[l1]); tablica[25]:=tablica[25]+tablica[l1]; end; [/syntax] to dla pierwszego przypadku, z drugim już chyba sam se poradzisz ;] Zwróć uwagę jeszcze na to, że w tablicach masz elementy typu byte, jeżeli podasz 24 liczby większe od 10 to wynik "nie...
1. Po co dwa razy deklarujesz dokładnie taki sam typ danych? To niepotrzebne, a w pewnych sytuacjach może powodować błędy. 2. Z treści zadania wynika, że w drugiej tablicy masz mieć nie integer a wskaźniki do integer. Więc dwie deklaracje tablic są potrzebne, ale jednak nieco inne. 3. Po co to New i Dispose. Miała być tablica wskaźników, nigdzie nie...
A wiec mam do zrobienia kilka zadan w TP, jestem poczatkujacym w tej dziedzinie dlatego prosiłbym o pomoc w napisaniu takich programów: 1) Wylosować 20 liczb i posortowac je metodą bąbelkową. 2) Na posortowanej wczesniej tablicy zastosowac wyszukiwanie binarne. 3) Napisz program zamieniający miejscami dwa wskazane wiersze tablicy dwuwymiarowej 4) Napisz...
Musisz zrobić coś takiego, jak na poniższym pseudokodzie pascalopodobnym. Kod nie jest w pełni odporny na błędy, wysypie się, jeśli użytkownik poda nieliczbowe śmieci i jeśli liczba wprowadzonych liczb oddzielonych spacjami będzie mniejsza, niż rozmiar tablicy. Najprawdopodobniej da się napisać to lepiej. [syntax=pascal] tablica : array[0..10] of integer;...
Spróbuj w ten sposób : var druzyna:array[1..8] of string; a,b:byte; tmp_zmienna : string; begin for i:=0 to 255 do begin a:=random(8)+1; b:=random(8)+1; tmp_zmienna:=druzyna[a]; druzyna[a]:=druzyna[b ... druzyna[b]:=tmp_zmienna; end; end;
Teraz dopiero zobaczylem - czemu masz tablica jako nowy typ ? daj ja do sekcji var tablica:array[1..18] of integer;
Hmm.... No tutaj, to mnie trochę zaskoczyłeś :P Posortowanie całej tablicy będzie dość skomplikowane :P Można co prawda potraktować dwuwymiarową tablicę jako tablice jednowymiarową, ale za taki trick, to Ci nauczyciel "łapki poprzetrąca" :P Zobacz kod poniżej, który sortuje każą kolumnę tablicy osobno: [syntax=delphi]program Project1; uses SysUtils;...
Tylko że w takim wypadku cała tablica nie zostanie uzupełniona ( gdy wcześniej tmp=0) ;)
Dokładnie tak samo, tylko trzeba podać index do tablicy oceny. [syntax=pascal]readln(dziennik[x].oceny[...
Co to jest 2i może 2*i?
Zadeklaruj wobec tego tablicę stringów z określonym limitem, np. var e24=array[1..169] of string [4]; 4-y znaki wystarczą na te kody, cała tablica zajmie 845 bajtów. Dawno nie pisałem w TP7, ale, czy nie da się tam zadeklarować: const e24:array[1..169]of string = ('1R0','1R1'....) Da sie tak zadeklarowac w Pascalu...
Witam. mam problem z programem, którego treść brzmi: Tablica 12 elementowa - elementy typu integer a) losowanie generowanie elementów tablicy b) wyświetlanie tablicy c) Funkcja - średnia elementów d) Funkcja - średnia parzystych e) Fumkcja - obliczanie ile jest elementów z przedziału (-5,5) f) normalizacja tablicy g) potęgowanie tablicy ( każda następna...
Procedura sprawdzania jest dość prosta: [syntax=pascal]const n := 10-1; {liczba elementow w tablicy(rozmiar pliku),-1 bo tablica zaczyna sie os zera} var tab[0..n] array of integer; a[o..n] array of integer; x: integer; licznik:integer; begin {------>sprawdzanie ulozenia} {najpierw wypełniasz tablicę tab liczbami, tak jak w twoim kodzie} licznik:=0;...
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...
Witam Czy ktoś potrafi napisać w Turbo Pascalu taki program Dana jest tablica ocen n-osob (n<=10) z 5 przedmiotów Oceny wpisujemy losowo ;całkowite 1,2,3,4,5,6 1.oblicz średnią z ostatniego przedmiotu 2.średnią pierwszego ucznia 3.średnią całej klasy 4.ile ocen jest większych od policzonej średniej klasy Jest potrzebny pilnie na jutro Za pomoc wielkie...
Witam Mam rozwiązanie twojego problemu ale w osobnych plikach. Jest tam dodawanie, odejmowanie, mnożenie i dzilenie we wszystkich kodach (NKB, U1, U2, BDC). Musisz przejrzeć te programy i wybrać odpowiednie procedury.
(at) bomkallo, ale to nie jest przeszukiwanie binarne ;] Jakby tablica miała 100000 elementów, a szukany byłby na 99999 miejscu? (at)zbigniew dodaj system ("pause");
Hahah, faktycznie coś mi się powaliło, zmniejszylem to na razie do 20 w celach próbnych ale wywala mi błąd, że przekroczyłem pamięć raised exception class 'External: SIGSEGV'. Dla tego tak dziwnie to pisze, ponieważ jest mi to potrzebne do projektu, w którym mam pobrać plik a następnie podać jego statystyki, liczba słów, liczba zdań, i histogram. I...
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.
Hej potrzebuję pomocy z bazą danych w Pascalu. Potrzebuję aby program szukał osób po nazwisku i wieku i je wyświetlał(w osobnych procedurach), miał możliwość modyfikowania dane osoby, wypisywanie wybranego elementu i sortowanie względem wieku. Z góry dzięki za pomoc. [syntax=pascal]program baza_danych_osob; const MaxOsob = 100; Plik_Bazy_Danych = 'osoby.txt';...
Tablica dynamiczna rekordów, tak samo jak to się robi z listami w pascalu.
...obslugujacej proste operacje (*, /, +, -) na duzych liczbach przechowywanych w tablicy znakow? Kiedys taka widzialem ale nie moge odszukac, najlepiej gdyby byla w c/c++ lub pascalu. W javie jest typ BigInteger i za pomocą niego można prosto robić operacje na dużych liczbach stałoprzecinkowych. A co do c++ to może sprawdź tutaj: http://www.koders.com/cpp/fid6BFB93B68C0...
No cóż, wyszedłem z założenia, że jeśli się dostaje tego typu temat do realizacji to należy posiadać pewien zasób wiedzy i umiejętności. W tym wypadku wskazana byłaby wiedza : o konstrukcji i działaniu komputera o językach programowania i pisaniu programów o sygnale akustycznym ze szczególnym uwzględnieniem mowy o metodach przetwarzania cyfrowego sygnału...
Spróbuj w ten sposób: [syntax=pascal]program zliczanie; const NUM = 100; {Rozmiar tablicy z liczbami} var tablica: array[1..NUM] of integer; {Tablica z liczbami} licz: array[0..9] of integer; {Tablica licznikow} i, n: integer; begin randomize; for n:=1 to NUM do begin tablica[n]:=random(10); end; for i:=0 to 9 do licz[i] := 0; {Zerowanie licznikow}...
Nie znam składni pascalowej, więc napiszę w pseudokodzie: a = 10000011; b = 10000000; for (i=0;i<8;i++) { if ((a and b) == 0) then tablica[i] = false; else tablica[i] = true; przesuń "b" bitowo w prawo; }
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...
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]...
Zdefiniuj ten typ tablicowy potem go używaj. program rekord; uses crt; type Ttab=array[0..2]of char; var plik2:file of ttab; o:ttab; begin clrscr; assign(plik2,'d:\osoby.txt')... rewrite(plik2); write(plik2,o); close(plik2); readln; end.
Ten fragment Twojego kodu assign(imi,'d:\imiona.dat'); rewrite(imi); for a:=1 to 10 do begin writeln('Podaj ',a,'. imie:'); readln(tim[a]); end; write('Imiona: '); for a:=1 to 10 do write(' ',tim[a]); readln; close(imi); pobiera dane (imiona) z klawiatury do...
Proszę wszystkich o pomoc nie wiem jak napisać program na tablicach aby wypisywał nazwy od najkrótszej do najdłuższej ?? czy ktos moze mi go napisać z góry dziękuje ...
Ze zmiennymi chyba rzeczywiście tak się nie da (nie mam kompilatora pascala żeby sprawdzić), ale spróbuj zadeklarować tablicę stałych: const tab : array [0..13] of Real = (0.01, ..., 200.0); PS. No tak, w trakcie pisania ktoś już odpowiedział ;) Pozdrawiam, Dr.Vee
Tablica jest z utworzonego pliku w ktorym normalnie są zapisane liczby jedna obok drugiej odzielone spacjami, w czterech rzędach. nie musi byc to opcja blockread, po prostu chce jakimkolwiek sposobem wczytac tablice z pliku. To czytaj zwykłym readln a potem potnij stringa w miejscu spacji (jakaś pętla i funkcja pos powinna wystarczyć) i przetwórz na...
Witam. Ma ktoś moze jakieś informacje zwiazane z tablicami Pascala i C++???
Witam. Jak to zapisać w Pascalu? (przykład z C) int tablicaInt[5]={1,2,3,4,5}; Chodzi mi o nadanie wartości początkowej.
Witam, Poniżej końcówka programu: // sortowanie repeat Pom:=False; for i:=1 to x-1 do if tablica[i+1].nip < Tablica[i].nip then begin Pom:=True; pomocnicza:=tablica[i+1]; tablica[i+1]:=tablica[i]; tablica[i]:=pomocnicza; end; until Pom=False; writeln ('posortowane wedlug nipa '); for i:=1 to x do writeln (tablica[i].nip); readln; end. Pozdrawiam
Zmienna globalna, inicjujesz na początku programu.
pascal tablica zwracać tablica pascal tablica pascal pierwsza
sterownik kontroler sieć samsung orion radio obliczać wartość skuteczny
Symbol linii przerywanej i dwóch ukośnych kresek na schemacie – ekranowany kabel, sprzężenie mechaniczne IEC, IEEE Dezaktywacja trybu awaryjnego Peugeot 607 2.2 HDi P1517