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...
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....
Zamykam bo Elektroda się dopomina
Tablica jednowymiarowa? Użyj random() aby losował pozycje liczb z tej tablicy.
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...
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).
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...
Suma jest bardzo, bardzo prosta : [syntax=pascal]suma:=0; for i:=1 to 5 do begin suma:=suma+ ania[i]; end;[/syntax]
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.
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...
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...
Witam jako poczatkujaca osba , mam problem z zadaniem narazie chodzi o to by w tablicy 5x 5 wpisac w miejsca krzyzyjacych sie kratek liczby losowe od 10 do 20 a w pozozstale losowe od 1 do 10 i ta czesc zrobilem ale teraz potrzebuje obliczyc sume liczb jakie ida po pierwszej przekatnej i tutaj ugrzezłem, nastepnie bede mial obliczyc sume na 2 przekatnej,...
...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...
Zapętliłem się na dobre, nie wiem jak "dołożyć" do tablicy drugi wymiar czyli zapis słowny jedności do następnej tablicy dziesiątek itd. W załączeniu kawałek tego programu
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.
[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: [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}...
Rekord powiniej być tablicą sześciu liczb całkowitych, wtedy posortujesz normalnie jak tablicę. Losowań masz wykonać 1000 a nie 49 jak to robisz. Losowanie bez powtórzeń możesz ułatwić sobie nieco korzystając z tablicy haszującej - poczytaj sobie o tym wynalazku. :)
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]
randseed=X; for I=low(tablica) to high(tablica) do taclica[I]=Random(zakres);
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...
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]...
Wystarczy stworzyć tablicę dla histogramu - będziesz ją indeksowała wylosowaną liczbą zwiększając wartość tej pozycji o 1 (1 wylosowana). Na koniec wystarczy znaleźć największą wartość i wyświetlić na którym jest indeksie - to bedzie najczęściej losowana liczba.
Generalnie jeśli zależy Ci na równomiernym rozkładzie, to oczywiście można to osiągnąć, jednak z wykorzystaniem jednostki zmiennoprzecinkowej, co niestety negatywnie wpłynie na wydajność (sam coś takiego robiłem kiedyś ;) ) Po prostu dzielisz cała długość przez ilość elementów i inkrementujesz liczbę zmiennoprzecinkową wykorzystując do indeksowania...
Witam, wie może ktoś z was czy jest w pascalu jakaś funkcja lub procedura zawarta w standardowych modułach do zmiany znaków z klawiatury na kod ASCII, lub zmiany liczb dziesiętnych na liczby binarne i czy można zdeklarować tablicę którą program by rozpoznawał jako tablicę liczb binarnych ?
Podam kod dla lotka. Bardzo prosto można go przerobić na inne systemy. [syntax=pascal] uses Crt; type xx=array[1..49]of integer; var i,nr_los,n:integer; wylosowane:array[1..6]of integer; liczby:xx; swoje:xx; begin clrscr; randomize; for i:=1 to 49 do begin liczby[i]:=i; swoje[i]:=0;end; writeln('podaj swoje 6 liczb'); for i:=1 to 6 do begin write('podaj...
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! Dopiero zacząłem przygodę z Pascalem i mam problem z pewnym zadaniem. " Napisz program rozkładania dowolnej liczby na liczby pierwsze, który po wczytaniu liczby z klawiatury wyprowadzi komunikat - liczba pierwsza/liczba złożona - stosownie do sytuacji. Wykorzystaj pętlę while". Z góry dziękuję za wszelką chęć pomocy :) Obrazki wstawiamy wg
Działa tak jak chciałem a czy da rade zrobić żeby zrobić taką pętle żeby podać do programu 10 liczb i te liczby będą zapisane w pliku tekstowym w postaci binarnej jeden pod drugim: (plik.txt) np: 10100110 10101100 10101010 01101011 coś takiego pętle już zrobiłem ale zapisuje tylko jedną liczbę binarna w notatniku [syntax=pascal]program postac_binarna;...
Witam, potrzebuje pomocy z programem który ma pobierać od użytkownika liczby do momentu podania liczby całkowitej. Oto mój program.. program onn; uses crt; var a:integer; i:integer; reszta:integer; pomoc:integer; begin clrscr; i:=2; writeln('podaj a'); // wczytywanie a read(a); while (a mod i=0) do // program...
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.
Wstaw do programu taką pętlę: write('W wylosowanych liczbach ',x,' znajduje sie na miejscu: '); for i:=1 to 10 do if liczby[i]=x then write(i,' ');
Witam, mam napisać algorytm który w liczbie zakresie 1-100 wykaże wszystkei liczby podzielne przez 7,8,9. Program ma być zrobiony w pascalu. Wie ktoś jak zrobić taki program?
Trzeba by zrobić listę lub tablice ze stringami. Sortowanie może polegać w taki sam sposób jak sortowanie liczb (można porównywać kody ASCII - ich ułożenie rośnie wraz z kolejnymi literami alfabetu). Trzeba by tylko rozważyć sortowanie wg kolejnych liter (pewnie za pomocą rekurencji jakiejś). Zadanie dość typowe na pewno coś znajdziesz Google "sortowanie...
Witam Musze napisać program w pascal'u , ale programowanie to dla mnie czarna magia. Proszę o jakieś wskazówki dla zupełnego laika, jak sie do tego zabrać. Treść zadania: Do tablicy 4 wiersze x 4 kolumny wprowadzić liczby, wybrać najmniejszą i największą liczbę, obliczyć średnią arytmetyczną dla wszystkich elementów tablicy, obliczyć sumy elementów...
witam, jak w pascalu policzyc ile jest roznych elementow w tablicy jednowymiarowej (wektorze)? np tab Temat zamykam. - arnoldziq
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 ?
Nie moge poradzić sobie ze zrobieniem programu ,Licze na wsza pomoc. zad Dany jest plik dane.dat a w nim ciag liczbowy . W zalozeniu tego ciagu liczby powinny byc na przemian parzyste i nieparzyste. a)napisac procedure sprawdzające czy liczby sa ulozone na przemian b) napisac procedure ktora przepisze z pliku liczby nieparzyste do tablicy a i zad 2...
a moze troche jasniej... no i przydaly by sie te tablice
Witam. Mam takie zadanko: Napisz program, który tworzy tablice skonczonego rozmiaru (liczba podana przez uzytkownika), a nastepnie wypełnia ja wartosciami 0 lub 1, zaleznie od tego czy indeks komórki tablicy jest liczba pierwsza (1) czy nie jest (0). Nastepnie uzytkownik wpisujac liczbe sprawdza (korzystajac z przygotowanej tablicy) czy liczba jest...
Witajcie, miałem do napisania program, który miał odczytać liczby z pliku dane.dat, następnie wybrać z nich tylko liczby pierwsze i zapisać wynik do pliku wynik1.txt, a na sam koniec posortować liczby pierwsze od największej do najmniejszej a wynik zapisać do pliku wynik2.txt. Kodzik mam, i działa on do momentu wybierania liczb pierwszych, niestety...
a co chcesz w tej tablicy wyszukac? np: for i:=1 to w do for j:=1 to w do begin tablica[i,j]:='18'; zmienna:=tablica[i,j]; end; i wyszukujemy w ten sposob w tablicy liczby 18
Jeśli dzielniki mają trafiać do tablicy, to trzeba przygotować tablicę (możesz dla prostoty założyć np. tablicę na 1000 elementów, czyli tablica: array ) i prostą zmienną, która będzie licznikiem. Teraz zamiast wyswietlania pod warunkiem dzielenia (x mod i = 0) wystarczy przypisanie: tablica . Pamiętaj, aby na początku zainicjować zmienną ti wartością...
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.
napiszesz mi to poprawnie tak żeby wyświetlał liczby parzyste d:) bo muszę spadać do pracy ;widzę że będę miał co analizować dzięki pozdrawiam
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" ;-)
nie znam tego języka ale moze generator liczb losowych tak u ciebie dziala, ze zawsze uruchamia sie w podobnym czasie i daje takie same liczby. i sprobuj go zainicjowac a potem kazac uzytkownikowi wcisnac przycisk i dopiero przypisywac do zmiennej.
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)
Mniej więcej tak: 1. Zakładamy tablicę na liczby, które chcemy wygenerować 2. Uruchamiamy generator liczb pseudolosowych w pętli, 3. Zapełniamy tablicę wygenerowanymi liczbami 4. Pętla działa tak długo, osiągniemy założoną ilość wygenerowanych liczb.
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...
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
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 takiej notacji, że każda cyfra jest w osobnej komórce tablicy, problemem jest obsługa wartości ujemnych. Najłatwiej jest operować na kodzie uzupełnienia do dwóch. Wtedy wyliczanie przeniesienia nie jest skomplikowane. Tutaj możesz zastosować algorytm pisemnego odejmowania, przy czym najniższe cyfry trzymać pod niskimi indeksami, aby można było działania...
Jakoś źle działa: http://ideone.com/ZQ5Oc5 U mnie działa, przynajmniej w programie Dev-Pascal, w którym mogę wprowadzać ręcznie jakieś liczby. W tym algorytmie najpierw podaję, ile elementów ma być wprowadzonych do tablicy, a potem wprowadzam liczby. [syntax=pascal]uses crt; var x,i,n,min:integer; tab:array[1..200] of integer; begin writeln('Podaj...
Sorki wszystkim jezyk pascal. Prosilbym o pomoc jesli da rade:(
U Borlanda było coś a la malloc, GetMem. Jednak jeżeli mówi,u o standardzie Pascala. to chyba nic takiego nie było (też nie wszystko pamiętam), więc chyba nie o to chodzi. Zresztą po co wtedy by była ta stała oznaczająca liczbę elementów tablicy? Co do uczenia Pascala, to miał on jedną zaletę, o ile nauczyciel sam ją rozumiał: Pascal uczył dobrego stylu...
No fajnie tylko jak zrobić żeby ten program dodawał liczby od 1..50 wykorzystując tablice???
Napisałem takie coś: [syntax=pascal]program losowanie; uses crt; const N=5; var tablica:array[1..5]of integer; minimum,i:integer; begin clrscr; randomize; writeln('Wylosowane liczby to:'); for i:=1 to N do begin tablica[i] := random(100); write(tablica[i]:4); end; writeln; writeln; minimum:=tablica[1]; For i:=1 to N do begin if tablica[i] < minimum...
Ale jak to sprawdzić? :( Wylosowane liczba jest to nr komórki tablicy. Mam sobie taką tablice: [1][2][3][4][5] 1: nr1 2: nr2 3: nr3 4: nr4 5: nr5 Losuję teraz liczby i przypisuje tą pierwsza tablice przypisuje do wylosowanych liczb [1] - zmieniam na [los1] [2] - na [los2] Tylko jak sprawdzić czy już taka liczba się wylosowała ? :(
Nie, z tego względu, że wczytuje liczbę j do j'tego elementu tablicy...
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ść...
liczba pierwsza pascal pascal liczba pascal tablica
dodge światła xenon skoda klucz produktu office
diagbox lexia interfejs diagbox
Polsat Box, Polsat Box Go – kod 1401, brak uprawnień, autoryzacja dekodera, EVOBOX, Multiroom Electrolux zmywarka – przebicie na masę po odłączeniu silnika i grzałki, diagnostyka