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...
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...
[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...
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...
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...
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.
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).
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.
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;
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! 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,...
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'...
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....
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ść...
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; ║...
Dokładnie tak samo, tylko trzeba podać index do tablicy oceny. [syntax=pascal]readln(dziennik[x].oceny[...
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]
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 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);...
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]...
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...
...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...
Suma jest bardzo, bardzo prosta : [syntax=pascal]suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end;[/syntax]
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...
[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.
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....
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...
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}...
Jeżeli chodziło o wypisanie losowego stringa z tablicy to spróbuj jakoś w ten deseń: writeln(sentencje[random(96&...
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 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ą,...
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
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&...
randseed=X; for I=low(tablica) to high(tablica) do taclica[I]=Random(zakres);
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...
Tablica jednowymiarowa? Użyj random() aby losował pozycje liczb z tej tablicy.
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ś.
W Pascalowym helpie jest gotowy Quick Sort. Oczywiście myślę tu o Turbo Pascalu z Borlanda.
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;...
schemat blokowy juz mam , brakuje mi poprawenej tablicy wartosciowej
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.
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.
ale ty przypadkiem nie zrobiłeś tego za pomocą tablic?
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
Nie bardzo wiem, z czym masz problem - z rozszerzaniem tablicy czy jej indeksowaniem?
a gdzie zaczyna się wczytywanie pliku do tablicy?
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...
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, 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
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.
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)?
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...
Polecam użycia tablicy obiektów.
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...
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...
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;...
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...
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...
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]...
Dzięki teraz wszystko działa
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ś...
Tablica dynamiczna rekordów, tak samo jak to się robi z listami w pascalu.
Chodzi o już wyświetloną na ekranie zmienną ?!? Czy o zmienną znajdującą się w tablicy ?
Przy takim type (rekordowym) jak masz teraz, to sortowanie będzie olbrzymim problemem. Nie bardzo można posortować części rekordu. Nie bardzo rozumiem czemu ? własnie do kodu dopisałem Teraz kwestia interpretacji tego zadania; czy za "typ rekordowy" uznamy: Nie wiem o co chodziło nauczycielowi :/ profesor na to zionie żywym ogniem jak zobaczy. :p Kiedy...
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; }
a moze troche jasniej... no i przydaly by sie te tablice
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...
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" ;-)
To co mam wpisać żeby znalazł index supstringa muszę moje zdanie zmienić w tablice jednowymiarową?
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 ok a podpowiesz gdzie wstawić ten fragment kodu (teraz moje zadanie zdecydowałam się rozwiązać przy pomocy tablicy jednowymiarowej)
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?
witam, jak w pascalu policzyc ile jest roznych elementow w tablicy jednowymiarowej (wektorze)? np tab Temat zamykam. - arnoldziq
Przeciez ci dodaje chyba ze chcesz zeby wyniki dodawania znalazly sie w tablicy wtedy w petli tablica[i]:=tablica[i ...
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.
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ą.
Co to jest 2i może 2*i?
hmm tamten problem rozwiązałem po przez dodanie granicy długości znaków. ale tutaj jest problem [syntax=pascal]// zapis pliku assign(plik, 'f:/plik.dat'); rewrite(plik); write(plik,student[x]); [/syntax] odczyt pliku [syntax=pascal]begin reset(plik) ; read(plik,student[x]); end;[/syntax] kod tworzy plik na dysku o nazwie plik.dat z zawartoscia 292kb....
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]...
Witam. Ma ktoś moze jakieś informacje zwiazane z tablicami Pascala i C++???
orginał programik daje takie liczby 1, 1, 9 3, 3, 7 4, 2, 4 teraz muszę dopisać fragment kodu by wyświetlił same liczby parzyste, nieparzyste i np. przekątna (1, czy 2) o liczbie 3 po ukosie reszta ma być zapisana np. zerami z parzystymi i nie wiem ze sie robiło takie cosik if (i mod 2 )=1 nieparzyste if (i mod 2 )=0 parzyste then writeln; tylko gdzie...
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.
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
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 ...
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.
Potrzebuję napisać sobie takiego programa, który zamieniłąby wyrażenia wpisane z klawki na odwrotną notację polską, mają tam być same stałe, bez x'ów i innych (np, 2,4). Ma być to roboione na tablicach, a nie na listach. Potrzebuję tego programa do piątku, a ja się na pascalu nie znam. Dokładniej to potrzebuje tego kolega do szkoły. Ja tam nawet nie...
No fajnie tylko jak zrobić żeby ten program dodawał liczby od 1..50 wykorzystując tablice???
Witam Postaram się go poszukać. Liczę że gdzieś mam kopię nagraną na płytę. Dodam tylko że wtedy stworzyłem kod oraz narzędzie pod Delphi (Pascal obiektowy) które ułatwiło mi wygenerowanie tablic ze znakami ASCII. Pewnie można to zrobić prościej, ale wtedy miałem taki pomysł.
[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...
Prawidłowo to powinieneś losować tablice w której znajdują się liczby i jak jakiś element tablicy wylosujesz to: 1) Zapisujesz tą liczbę do wylosowanych 2) wstawiasz w to miejsce ostatnią liczbę z tablicy 3) Obcinasz tablice o jeden // tym sposobem zrobisz losowanie bez powtórzeń i możesz wszystko losować co znajduje się w tablicy nawet stringi:)
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
Niestety o record-ach nie słyszałem. A jak się robi tablice w tablicach? Najprostszym przykładem.
Jak pisałem wcześniej C i jeszcze Pascal.
Albo zrobic zeby czekal po wykonaniu odpowiedniej liczby petli na jakis klawisz, i dopiero wtedy pojdzie dalej.... program lottomat; uses CRT; var i,j,k,n,s,x,OK:integer; A:array[1..100,1..6] of integer; {......tablice......} B:array[1..49] of integer; {... tablica statystyk...} enter: char; begin...
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?
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ć...
Mam pytanie Obliczam w pascalu funkcję: sin(30) i wynik wychodzi -0.99 natomiast w tablicah matematycznych sin30 to 0.5 Wiem że pascal podaje wynik w radianach, ale pytanie jak zrobić żeby po zastosowaniu powyższej funkcji podawał wynik taki jaki jest w tablicach matematycznych????
tablica pascal zwracać tablica pascal turbo pascal tablica
błąd klimatronika cordoba pompa paliwa chińskie testery akumulatorów
Jak zainstalować dwa systemy na dekoderze Zgemma? Protokół pomiaru instalacji elektrycznej - przykładowy wzór