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]
Ze względu na wyrażenie D: array D[i,j]:= 2*i+0.5*j; tablica musi być zadeklarowana var D: array [1..20, 1..20] of real; Potrzebujesz też drugiej tablicy na sumy kolumn tablicy D, np. var SK: array [1..20] of real; Sumę i-tej kolumny wyliczysz w następujący sposób: SK[i] := 0; for j:=1 to 20 do SK[i]...
Witam Mam olbrzymią prośbe dla ludzi, ktorzy mają wieksze pojecie o Turbo Pascalu niż ja - jest ich tu zapewne dużo :D Mam 6 zadanań, właśnie z Pascala przez, ktore nie potrafie przebrnać. Prosze w zwiazku z tym o pomoc kogoś kto zna sie na tym. Oto one: Zad.1 Napisz program w Pascalu, który a) stworzy tablice 10 x 10 liczb b) wypełnij ją losowymi wartościami...
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...
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...
Witam. Piszę mały programik, który po wpisaniu słowa/zdania odwróci je (lama da wynik amal). Sprawa bardzo prosta przy stałej wartości znaków i tablicy, ale... Muszę to jakoś zrobić na zasadzie tablicy dynamicznej jak w c++ czyli tab:array[1..liczbaznakow] of char; ale tak w ten sposób się nie da. Wiem, że są tablice dynamiczne w TP, ale nie umiem ich...
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...
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...
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.
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...
Teraz dopiero zobaczylem - czemu masz tablica jako nowy typ ? daj ja do sekcji var tablica:array[1..18] of integer;
Tylko że w takim wypadku cała tablica nie zostanie uzupełniona ( gdy wcześniej tmp=0) ;)
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...
(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");
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]...
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...
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...
Przyślijcie mi program, który będzie sortował elementy tablicy dowolnym rodzajem sortowania. Pomóżcie mi, proszę. mój adres siber1(at)wp.pl Zamykam. - arnoldziq
Jest tablica port czy ports, do ktorej mozesz pisac jak i z niej czytac. np port[$80] := 10; A jesli nie odpowiada CI taka opcja, to uzyj wstawe asemblerowych i instrukcji out i in.
1. Dokończ procedurę "wypisz" i zobaczysz co się znajduję w Twojej bazie. 2. Czy już przemyślałeś metodę usuwania rekordów z takiej statycznej tablicy rekordów? Usunięcie rekordu ze środka spowoduje powstanie "dziury", z którą trzeba będzie coś zrobić... 3. Nic dziwnego, że dostajesz błąd o niezgodności typów... otwierasz/tworzysz plik tekstowy i próbujesz...
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)?
Wie ktoś dlaczego nie chce mi program działać? program tab1; uses crt; var tab:ARRAY[1..5] of integer; i:integer; begin; clrscr; for i:=1 to 5 do begin writeln('Podaj elementy'); readln(tab[i]); end; begin for i:=1 to 5 do begin writeln('wato˜† tablicy=',tab[i]); end; begin;...
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.
1. Deklaracja zmiennych a - dynamiczna tablica typu j.w n,i - zmienne typu j.w suma, min - zmienne typu j.w 2. Pętla for, od 0 do n-1 wykonuje: a[i] podstaw liczbę losową. Masz już wytłumaczone, wystarczy ubrać w kod. Poczytaj o typach danych w jednym i 2 języku, o budowie pętli i wszystko będzie jasne.
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.
w C to ma być czy w Turbo Pascalu? ...musisz użyć struktur **tablica :P napisz w jakim języku to ma byc to może zrobie to.
a moze troche jasniej... no i przydaly by sie te tablice
Chodzi o już wyświetloną na ekranie zmienną ?!? Czy o zmienną znajdującą się w tablicy ?
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ą.
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...
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...
Nie znam Delphi, ale daawno temu używałem Turbo Pascala i fantastycznej biblioteki TurboVision. Tam był specjalny mechanizm do zapisywania aktualnego stanu okienek do pliku - była to klasa TStreamRec, umożliwiająca, po odpowiednim przygotowaniu oczywiście, zapisywanie obiektów różnych klas i powiązań pomiędzy nimi do pliku. Wtrącam tę informację, bo...
No fajnie tylko jak zrobić żeby ten program dodawał liczby od 1..50 wykorzystując tablice???
jeśli znasz rozmiary macierzy, to m razy wykonujesz read(plik,zmienna) i readln(plik) aby przejść do następnej linii (albo już niekoniecznie, nie pamiętam). Czytasz w podwójnej pętli 1-n,1-m, odczytane wartości przypisujesz pod wskazany przez pętle indeks (miejsce) w tablicy. To, jak będzie wyglądać to w dokumencie to w zasadzie kwestia stworzenia specyfikacji....
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)
Istnieją trzy rozwiązania tego problemu. 1. Uniwersalne - to znaczy takie które będzie w stanie wyświetlić dowolny napis, złożony z dowolnych znaków ('%','*') przenosząc poszczególne pixel-e, z których zbudowane są litery i generowanie ich odpowiedników, za pomocą znaków. Odradzam, jest to dość skomplikowane. Można co prawda znaleźć gotowe kody źródłowe...
Tak się nie pisze programów. Poczytaj o typach 'array' i 'record' w Pascalu. Zamiast robić miliony skoków umieść odejmowane wartości w tablicach (array). Na n-tym miejscu w każdej tablicy wartości odpowiadające n-temu levelowi. Będzie to bardziej czytelne i łatwiejsze w rozbudowie a error powinien zniknąć.
Wskaźnik to nic innego jak zmienna przechowująca adres innej zmiennej (lub tablicy, struktury, obiektu). Stosowana jest po to, o czym pisał frohme.
A sortowanie najprościej to chyba z tablicy klepnąć ( i szybkie sprawdzenie czy już podana liczba była wprowadzona). Klepałem coś takiego na zaliczeniach z turbo... tablica[np 100 elementow] zapisana zerami-> <<PETLA>> wprowadz liczbe X -> jeżeli tablica [x]=1 wróć -> tablica[x]=1 <<KONIEC PETLI>> potem wyświetlenie...
Jak dam %c to w ogóle program sie sypie. Pojawia się pytanie czy zapisać dane do pliku, program nie czeka na wpisanie (t/n) tylko od razu wyświetla napis naciśnij jakiś klawisz by zakończyć działanie programu. Mnie nic nie przekona, programowanie w C to porażka. Pamiętam jak kilka lat temu programowałem w Turbo Pascalu, tam wszystko co zgadzało się...
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.
Zapisz je najlepiej do tablicy i użyj jednej z metod sortowania. Myślę, że proste będzie sortowanie przez wstawianie (w momencie przypisywania).
w Turbo Pascal'u niestety taka sztuczka Ci się nie uda, natomiast jeśli używasz Free Pascal'a to bez problemu możesz deklarować tablice dynamiczne. Druga rzecz to czy ktoś z Was posiada kod dla pascala tworzacy okno w windowsie ala Delphi ?? Albo jakis kurs ukazujacy jak to wykonac ? wpisz w googlach: "kurs winapi" Pozdrawiam.
Jeśli w gre wchodzi tylko pascal to niewarto męczyć sie w assemblerze... mimo że są to tylko 3 linijki.. jeśli są prostrze metody typu port[adres]:=dana; to niema co sie męczyć i wywarzać otwarte drzwi.. w Delphi zabawa ma sie inaczej.. tam niema predefiniowanej tablicy 'port' i trzeba używać wstawek..
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.
Najpierw musisz mieć ten plik z danymi. W tym celu tworzysz więc program, który zapisze twoją tablicę rekordów z danymi osób (co to rekord mam nadzieję wiesz) do pliku binarnego. Następny program korzysta z takiej samej tablicy rekordów i i wczytuje plik binarny do tej tablicy. Potem iteracja (przejście kolejno) po elementach tablicy (rekordach) i obliczenie...
Proszę zapoznać się z tymi tematami : [url=http://www.elektroda.pl/rtvforum/to... Kodowanie metodą zamiany znaków. [url=http://www.elektroda.pl/rtvforum/to... PASCAL] Program do zabezpieczania danych
Mam problem z napisaniem programu odsetki i proszę o pomoc Treść Program oblicza odsetki w systemie rocznym po podaniu kwoty,czasu deponowania i oprocentowania. Kwota końcowa zostaje pomniejszony o 19%. Podatek od odsetek i wynik zostaje wyświetlony na ekranie. Po każdym roku naliczone odsetki przechowywane są w tablicy
program Cezar; {szyfrowanie i deszyfrowanie pojedyńczych liter szyfrem cezara o dowolnym przesunięciu k} uses crt, dos; var k:integer;{klucz} alfj:array[1..25] of char; {tablica alfabetu jawnego} alft:array[1..25] of char; {tablica alfabetu tajnego} a:integer;{wyświetanie...
witam mam do napisania program w Turbo Pascalu który ma pobierać longintegera i wyświetlać kwotę słownie w złotych... ma on być oparty na case'ach, bez tablic dla liczebników, a i jeszcze odmiana liczebników i 'złotych'... nie wiem jak się do tego zabrać, jeżeli ktoś jest dobry w Pascalu to niech pomoże, plz!! zależy mi na czasie :( w poniedzialek zaliczenie...
ja widze ze to ma być bardzo uproszczona baza danych nawet to bardziej podchodzi pod tablice rekordów niż pod baze danych a ponieważ wnioskuje o średnio-niskim poziomie pytajacego toteż bawienie sie zgodnie z moim pierwotnym postem odradzam natomiast jeśli załozymy ze dane w tabeli bedą stałe ustalane w czasie pisania programu wiec spokojne mozemy postąpić...
pascal tablica zwracać tablica pascal borland turbo pascal
c20ne schemat źródła podczerwieni atmega sterowanie wyświetlaczem
laser krzyzowy wytrzymałości dwuteowników
Brak napięcia w stacyjce - przyczyny i diagnostyka Immergas Zeus 25 - Przyczyny błędu E43
