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ść...
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).
http://turbopascal.helion.pl/r-14.htm minuta w Googlach
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...
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...
Zadeklaruj wg potrzeb. Ładniej będzie na pewno podzielić to na procedury i używać zmiennych lokalnych, gdzie tylko możliwe i opłacalne (np. nie ma sensu na siłę robić lokalnych kopii tablic). Przypisanie indeksu do tablicy? tablica - to wszystko, żadna filozofia.
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.
Dokładnie tak samo, tylko trzeba podać index do tablicy oceny. [syntax=pascal]readln(dziennik[x].oceny[...
[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...
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;
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'...
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.
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...
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.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...
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...
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...
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 tak na szybkiego wiec błędy mogą być ;) Czytam tablice wierszami!! var tablica:array[1..100,1..100]... integer; i,j,x,y:byte; s,r:integer; begin // - komentarze randomize; s:=0; writeln('Podaj rozmiar tablicy: '); write('Ilosc wierszy: '); readln(x); write('Ilosc kolumn: '); readln(y);...
Tablica jednowymiarowa? Użyj random() aby losował pozycje liczb z tej tablicy.
ale ty przypadkiem nie zrobiłeś tego za pomocą tablic?
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...
...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...
a gdzie zaczyna się wczytywanie pliku do tablicy?
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]...
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! Na początek wstawiam kod: [syntax=pascal]Var tablica:array[1..10] of integer=(20,6,28,496,656,86,37,379,65,24... a:integer; b:integer; d:integer; j:integer; w:integer; begin j:=1; d:=2; for a:=1 to 10 do begin w:=(j+d)*d; if w=a then writeln('liczba ',a,' jest doskonala!') else j:=j+d; d:=d*2; end; readln; end. [/syntax] j to liczba 1, d to 2,...
Suma jest bardzo, bardzo prosta : [syntax=pascal]suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end;[/syntax]
Nie jest powiedziane, że w tablicy występują tylko cyfry 0..9, ale nie ma to znaczenia. Przedstawiam krótki kod. Aby nie wpisywać na ekran tablicy 100 elementowej ale pokazać działanie kodu, ograniczyłem wielkość tablicy.[syntax=pascal] uses CRT; const num=15; var t:array[1..num]of integer; p:array[0..9]of integer; i,pp:integer; begin clrscr; writeln;writeln;writeln('zawartosc...
[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...
Zmienna globalna, inicjujesz na początku programu.
Z początku chciałem Ci podać tylko wskazówki, ale postanowiłem załączyć kod. Oznaczaj zmienne tak aby coś znaczyły, a,b,c,d nic nie znaczą, analiza programu jest utrudniona. Nie używaj liter z ogomkiem i kreską, nie ta tablica kodowa. uses crt; var i,ile_lat,wplata,procent:integer; y,ww:real; stan_gotowki:array[1..100]of real; function...
Jeżeli chodziło o wypisanie losowego stringa z tablicy to spróbuj jakoś w ten deseń: writeln(sentencje[random(96&...
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 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; ║...
schemat blokowy juz mam , brakuje mi poprawenej tablicy wartosciowej
Witam, Potrzebuje pomocy w Pascalu. A mianowicie za dużo doczynienia z Tym programem nigdy nie miałem, a wiec potrzebuje najprostszy program w Statki. Tablica dwuwymiarowa 10x10 mam mieć 5 pojedynczych statków i 10 strzałów. Bardzo proszę o pomoc. :)
Wektor = tablica jednowymiarowa zmienny wymiar = tablica dynamiczna
Polecam użycia tablicy obiektów.
Nie wiem jak rozszerzyć te tablice początków o indeksy, których wartości nie posiada z drugiej :/ Tak, żeby marki się nie powtarzały i tablica początków wskazywała na 1 z nich z tablicy marek.
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;...
Przemyśl może taki kod : program rec; uses crt; type osoba = record imie : string[15]; nazwisko : string[15]; ocena :integer; end; var plik : file of osoba; plik2 : file of osoba; uczen : osoba; a : char; begin clrscr; assign(plik,'dane.txt'); assign(plik2,'best.txt'); {$I-} rewrite(plik);rewrite(plik2&...
Witam otóż mam problem z napisaniem programu w pascalu jego treść brzmi: Napisz program, który pobiera od użytkownika określoną przez niego liczbę rekordów danych osobowych (typu rekordowego) i umieszcza w pamięci (typ tablicowy). Następnie dane te powinny zostać posortowane wg jakiegoś klucza (np. wiek) i wyświetlić z tablicy całą, już posortowaną,...
Mam napisać program turbo pascalu w którym użytkownicy podają nazwe 2 produktów; jak zrobić żeby nazwy te wyświetlały się pod wykresem(należy do tego użyć tablic)?
Chodzi o już wyświetloną na ekranie zmienną ?!? Czy o zmienną znajdującą się w tablicy ?
a moze troche jasniej... no i przydaly by sie te tablice
Co to jest 2i może 2*i?
To co mam wpisać żeby znalazł index supstringa muszę moje zdanie zmienić w tablice jednowymiarową?
randseed=X; for I=low(tablica) to high(tablica) do taclica[I]=Random(zakres);
no ok a podpowiesz gdzie wstawić ten fragment kodu (teraz moje zadanie zdecydowałam się rozwiązać przy pomocy tablicy jednowymiarowej)
Deklaracja tablicy type tab=array[1..10] of byte; var tablica:tab; Zapis do tablicy np: Readln(tablica[1]); Wypis z tablicy np Writeln(tablica[1]);
No za link to wielkie dzięki, ale tu właśnie chodzi o to żeby tego nie robic tzn. nie przeglądac wykładów choć to by pewnie mi na duzy plus wyszło, ale mi chodzi o te tablice w nich są zawarte wszystkie operatory, typy, znaki ASCII itp. rzeczy potrzebne do kodowania w pascalu. W tych tablicach informatycznych z Heliona są zawarte wszystkie rzeczy w...
Jak już wcześniej napisałem, musisz stworzyć jeszcze jedną tablicę, w której będą wpisywane wylosowane miejsca strzałów. Przy nowym losowym strzale porównujesz go z tą tablicą.
Skoro kod: [syntax=pascal]minimum:=tablica[1]; For i:=1 to N do begin if tablica[i] < minimum then minimum := tablica[i];[/syntax]...znajduje minimum, to utwórz z niego funkcję: [syntax=pascal] function Minimum(const tab: array of integer; const minindex,maxindex: Integer): Integer; var i: Integer; beign minimum:=tab[minindex]; For i:=minindex to...
Niezupełnie, to jest przecież stary dobry nieużywany już Pascal. Tablicą dynamiczną nazywano tablicę utworzoną poprzez New. Jej rozmiar teoretycznie może się zmieniać, ale jeżeli jest użyta stała to zmienia się tylko na etapie kompilacji. Czyli zwykła tablica wskaźnikowa o rozmiarze N elementów (moim zdaniem). W Pascalu Borlanda miało to nawet pewien...
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.
Zastanawiam się, w jaki sposób program może Ci cokolwiek wyświetlać, skoro nie można go skompilować? Zauważ, że deklarujesz typ kostka jako tablicę sześcioelementową o indeksach od 1 do 6, która może zawierać tylko liczby 1, 2, 3, 4, 5, 6. W kodzie w dwóch miejscach próbujesz podstawić do tej tablicy wartości 7 i 11 [syntax=pascal]4: t2[2]:=7; 8: t2[3]:=11[/syntax]...
jak mam porownac te liczby? if wylMML[i]=wylMML[i] then wylMML[i]:=1+random(42); jak zrobie tak, to zawsze bedzie warunek spelniony bo sprawdza np wylMML[1] i wylMML[1], zawsze bedzie tak samo... a jeszcze przychodzi mi do glowy takie cos: zrobic IF w petli i cos takiego: if wylMML[i]=wylMML[i] then wylMML[i+1]:=1+random(42); tylko, ze chyba cos nie...
Ciekawie kolega to rozegrał. Na pebie napisałem mu ten pierwszy kod i pseudokod do sumy a widzę tu dostał prawie gotowca. Teraz zapewne wróci na peba z nim, żeby ktoś mu znowu poprawił. [url=http://peb.pl/programowanie/1005699... chętnych link
Nie chodziło mi o zmianę wskaźnika jako takiego, to było tylko określenie jako "wskaźnik = wskaźnik pozycji w tablicy, indeks" ;-)
Pierwsze co widzę to nigdzie nie jest porównywany element 1 tablicy. Powiedziałbym nigdzie nie jest uwzględniany. Wszelkie porównania są robione dla ostatniego elementu z tablicy. A tu co miałeś na myśli - nie mam zielonego pojęcia, ale na 100% nie to co napisałeś.
Co to za shit ?? 1. readln(tablica) smierdzi samo w sobie skoro tablica jest typem array[1..10]... Gdzie jest indeksowanie? [syntax=pascal] for x:=1 to 5 do begin write('Podaj imie numer ',x,': '); readln(tablica[x]); end; [/syntax] 2. Wyswietlic je? Nigdzie nie widze wyswietlania czegokolwiek z tablicy... [syntax=pascal] for x:=1 to 5 do writeln('Imie...
Jezeli to jest pascal pod dosa to tablice dla n i x sa za duze. Pod dosem masz dostep normalnie do 64kB danych. PS.Podawaj kod bledu jaki wyrzuca kompilator i w ktorej dokladnie linijce...
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...
Kup sobie książkę: Turbo Pascal. Tomasza M. Sadowskiego. Tam znajdziesz wszystko co potrzebujesz i jeszcze więcej. Tak jak ci napisałem Tomasz M Sadowski Ćwiczenia Praktyczne. Turbo Pascal http://helion.pl/ksiazki/pktp4.htm
Ciężko jest napisac w dwóch liniach program, którego pragniesz, ale przetestuj ten który Ci podsyłam. Kiedyś takie cóś pisałem, ale ten napisany jest z głowy, bo nie mam tamtego. Prawdopodobie będzie wymagał poprawienia kilku błędów syntaktycznych i uzupełnienia procedury wypełniającej tablice. Wojtek
W Pascalowym helpie jest gotowy Quick Sort. Oczywiście myślę tu o Turbo Pascalu z Borlanda.
Chr i Ord to konwersja pomiędzy znakiem a kodem ASCII wyrażonym liczbowo. Masz tam F1 na klawiaturze będąc w narzędziu programistycznym... Czemu nie możesz z NumLocka (w domyśle rozumiem: z klawiatury numerycznej)? Może masz ją po prostu wyłączoną. Odpowiednikiem spacji w kodzie ASCII jest wartość 32. Widziałeś kiedyś, jak wygląda tablica kodów ASCII?
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;...
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 ...
Mam takie zadanie napisac w pascalu ale ja niewiem jak jestem początlującyi niezabardzo jeszcze znam sie w tym weście mi ludzie pomórzcie proszę : 1. Napisz program z elementami typu znakowego dla tablicy jednowymiarowej złożonej z 4 wlementów. 2.Oblicz częstość występowania wybranej litery w tekscie.
Znaczy to musi byc tak: Jak mam tablice, to liczby nie moga sie powtarzac w danej kolumnie i danym wiersz. A gdzie indziej w tablicy moze wystapic taka sama. Zaluzmy dla t komurce musi byc rozna liczba, dla t[2,i] i:=... musza byc rozne liczby, tak samo dla t[j,1] musza byc rozne liczby. Ale moze sie powtorzyc w t[1,1] , t[2,2] , t[3,8] itd. W oglole...
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. Postanowiłem napisać program na znalezienie najkrótszego hasla w tablicy: [syntax=text] Type Tablica=Array[1..8] of string ;[/syntax] Napisałem taki oto algorytm: [syntax=text]var a,b:string ; z,x,y:integer ; begin x:=30 ; b:=' ' ; for y:=1 to 8 do begin a:=tab[y] ; z:=length(a) ; if (z<x) and (z>0) then x:=z ; if length(a)<x then b:=b+a...
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...
Przeciez ci dodaje chyba ze chcesz zeby wyniki dodawania znalazly sie w tablicy wtedy w petli tablica[i]:=tablica[i ...
program tablice; uses CRT; var T :array[1..3,1..3] of integer; i,j :integer; begin for i:=1 to 3 do for j:=1 to 3 do T[i,j]:=random(10)+1... begin for i:=1 to 3 do begin for j:=1 to 3 do write(' ',T[i,j]:2); writeln; end; readln; end; end. zrobiłem taki prosty programik mam teraz...
Tablica dynamiczna rekordów, tak samo jak to się robi z listami w pascalu.
Moj problem polega na tym ze ,,nauczyciel'' zlecil mi zrobienie quiz'u poprzez procedury... Dodano po 26 A ja dosyc nie mam pojecia jak to wszystko ze soba powiazac.
W pascalu nie programuję, ale o co mi chodzi to dwie rzeczy. Raz, do wyników wystarczy tablica. [syntax=pascal]type lotek = packed record wyniki: packed array of byte; end; var wyniki_losowan : array[1..1000] of lotek;[/syntax] lub nawet [syntax=pascal]var wyniki_losowan : packed array[1..1000,1..6] of byte;[/syntax] Dwa, sortowanie ifami tak jak to...
Polecenie: Utworzyć plik binarny składający się z 25000 losowych rekordów typu tosoba. Imiona i nazwiska mają być także przydzielane losowo do rekordu z zewnętrznej listy co najmniej 100 imion i 100 nazwisk (np. z pliku tekstowego). rekord typu tosoba = record id: longint; Imie: string[20]; Nazwisko: string[40]; Pesel: string[11]; Płeć: typ dowolny...
A w czym dokładnie piszesz (jakie środowisko/kompilator)? W nowszych można by się posługiwać np. parametrami w postaci funkcji porównujących i zamieniających miejscami (czyli przekazujesz referencje do funkcji, a sama funkcja sortująca sobie po prostu wykorzystuje nie zwracając uwagę na typ - nawet jej tablicy nie musisz dawać). Można by się też posługiwać...
Dzięki teraz wszystko działa
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.
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; }
No fajnie tylko jak zrobić żeby ten program dodawał liczby od 1..50 wykorzystując tablice???
Imie: John Nazwisko: Kiepski Tel: 111222333 to musisz napisac program zapisujący tablicę lub rekord do pliku. Pozdrawiam. to musiałbym przerobić aktualny program czy napisać nowy który by zapisał tablice do pliku?
Witam. Szukam jakiegoś prostego algorytmu liczącego obwody tablicy dwuwymiarowej. Samo liczenie obwodó nie jest problemem, jedyne co mnie niepokoi to duża ilość pętli, które decydują czy jest jeszcze jeden obód czy już nie ma. Problemetyczne sa sytuacje, gdy ostatnim obwodem jest jeden element lub kilka elementów leżących w jednej linii. Gdyby ktoś...
witam, jak w pascalu policzyc ile jest roznych elementow w tablicy jednowymiarowej (wektorze)? np tab Temat zamykam. - arnoldziq
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.
W tym framgemcie w czesci if(tablica[i] < 0) przypisujesz pod k wartosc, ale w czesci else tego nie robisz a masz tam tablica_real[i]:=exp(tablica[i+1]*ln(k))... Jesli nie wejdziesz do tego ifa to jaka jest wartosc w k? Pewnie jakas bledna. Moze to stanowi problem bo z samej analizy kodu wyglada on ok (nie probowalam kompilowac i uruchamiac). [syntax=pascal]...
A po co tak kombinować ? Nie lepiej wczytywać po kolei zmienne i wtedy porównywać ? [syntax=pascal]writeln('Podaj kolejny element: '); readln(x[i]); if (x[i] > max ) max:= x[i]; if (x[i] < min ) min:= x[i];[/syntax] Warto pamiętać, aby na początku max i min miały wartość pierwszego elementu wczytanego do tablicy. A po co grupowanie na jakieś 2...
Dobra już sobie jakoś poradzę sama, wiem że powinnam posiedzieć na nad tym ale w domu też nie za wiele mogę poświęcić na to czasu mając kilku tygodniowe dziecko a muszę pozaliczać najpierw zaległe prace a i tak w tej chwili staram się jeszcze zrobić tablice na tp.
Pomoglibyście mi rozwiązać te zadania, mam problem z tymi tablicami ;/ 1.Wprowadź do jednowymiarowej tablicy 10 liczb rzeczywistych i wyprowadź na ekran największy i najmniejszy z nich. 2.Napisz program wprowadzający dane do tablicy dziesięcioelementowej i wyprowadź najpierw liczby parzyste, potem nieparzyste.
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
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)
Ad 2. Po prostu w ParamStr(1) i ParamStr(2) masz ciągi tekstowe z tych parametrów. Wystarczy tylko przerobić poszczególne literki na cyfrę. Ad 1. Przykład dla obliczenia pierwszej wartości z parametrów (zakładam, że są) i zapisania wyniku do tablicy: [syntax=pascal] var wynik: array[1..n] of integer; l1, l2: Integer; ... l1 := StrToInt(ParamStr(1)[1]);...
Niestety o record-ach nie słyszałem. A jak się robi tablice w tablicach? Najprostszym przykładem.
[syntax=delphi] begin setlength(tab,length(tab)+1); writeln('Podaj ',length(tab),' imie: '); readln(tab[length(tab)].imie); //<---- tu jest problem writeln('Podaj ',length(tab),' nazwisko: '); readln(tab[length(tab)].nazwisko); // <--- tu jest problem writeln; end; //... cala petla zla for i:=i+1 to length(tab) do begin writeln; writeln('Imie...
pascal tablica zwracać tablica pascal turbo pascal tablica
oświetlenie kurnika kolektor toyota corolla mixer pioneer
samochody ciezarowe thomson 55ua9806
Opis kostki ISO do radia Blaupunkt CD30 Jak podłączyć 5-przewodowy silnik indukcyjny pralki?