jak wiesz jak sie zamienia liczby binarne na dziesietne to nie powinno byc problemu, wejscie wczytujesz do tablicy 1-wymiarowej, znak po znaku, potem w petli lecisz od konca (lub od poczatku jak kto woli), i jak w komorce jest 0 to do zmiennej wynik dodajesz 0 (czyli nic nie robisz), jak 1 to 2^n (gdzie...
ale ty przypadkiem nie zrobiłeś tego za pomocą tablic?
W Pascalu robiłem zwykle wymianę jakichś części dużego pliku tak: 1) Tworzyłem plik tymczasowy i czyściłem go 2) Otwierałem plik źródłowy 3) Odczytywałem linijkę/znak pliku źródłowego 3,5) Jeśli nie wymagał zmian to zapisywałem tę samą linijkę w pliku tymczasowym 4) Jeśli wymagał zmian, to zmieniałem...
Niestety nie mam czasu pisać gotowych algorytmów dla ciebie :( wielkosc - max ilosc ludzi wpisanych tu masz przykład sortowania bąbelkowego najprostrzego dla jednej tablicy musisz dodać pytanie wg czego chcesz sortować i wtedy zamiast tablica dajesz naprzykład Nazwisko i sortują nazwiska musisz...
Napisałem program z tablicami, teraz musze zrobic do niego schemat blokowy niestety nie za bardzo ogarniam to. Czy byłby ktos tak miły i pomógłby mi go wykonac? Kod programu ponizej: [syntax=pascal]program Untitled; uses crt; type tab1 = array [1..25] of byte; tab2 = array [1..25] of byte; var...
Mogę deklarować wielkość cin'em, przecież nawet powyżej zamieściłem działający program. Jeden kompilator to przyjmie a inny nie. Poniższy kod: int w, h; cout<<"podaj w"<<endl; cin>>w; c... h"<<endl; cin>>h; i...
Witam, czy może mi ktoś pomóc w narysowaniu schematu blokowego tych 2 programów? Pozdrawiam serdecznie i z góry dziękuję. program 1: Program Zgadywanka; uses crt; var pr,li,a,b,x:integer; c:char; label new,zle; begin new: clrscr; randomize; ...
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...
Jak najszybciej potrzebuje rozwiązanie tych dwuch zadań w języku Turbo Pascal: 1. Napisz program, który czyta liczbę naturalną n, 1<n<=10, w tablicy dwuwymiarowej tworzy tabliczkę mnożenia dla liczb naturalnych z przedziału Wskazówka Trzeba zadeklarować tablicę dla najwiekrzego n, czyli...
Chetnie pomoge, tylko musisz napisac jakis przeklad, bo Twoj opis jest zbyt zawily i nie bardzo go romumiem. Ogolna zasada jest taka (dodam ze dawno nie pisalem w pascalu, pisze w Delphi), wczytujesz jak juz zauwazyles wszystko w tablice, pierwszy plik w dwuwymiarowa (najlepiej dynamiczna), odczyt...
Witam mam problem z napisaniem programu: Napisz program, który będzie zliczał ile razy dany element (mniejszy od 10) pojawił się w tablicy n-elementowej (n<100), np. tablica 4,1,5,1,1,6,7,1,7,6,4,8,3,1,3 spowoduje zwrócenie nastepującego komunikatu: liczba 4 wystąpiła 2 razy liczba 1 wystąpiła...
[syntax=pascal] program tabi; var tab:array[1..600] of integer; a:integer; begin for a:= 1 to 600 do tab[a]:= a; for a:= 1 to 600 do writeln ('element tablicy o indeksie : ',a,' ma wartosc: ',tab[a]); readln; end. [/syntax] ... ma za zadanie przyporządkować np tab[1] := 1 i tab[2]:=2...
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...
A co więcej ma robić jeżeli ma do dyspozycji jedną liczbę? Stwórz dodatkową tablicę dla żądanej ilości liczb. W przedstawionym kodzie to tablica liczby[1..mx]; Wynik zapisuje się w katalogu głównym dysku c: [syntax=pascal] uses crt; const mx=2; var cyfry:array[1..16] of integer; liczby:array[1..mx]of...
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...
Hej potrzebuje pomocy z bazą danych w pascalu. Potrzebuje 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 ...
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...
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...
Ogólnie chcę zrobić tak: 1. Aplikacja sprawdza czy istnieje plik pass.dta - jeśli nie, tworzy go i wstawia do niego podane przez nas hasło i współczynnik kodowania (liczba, o którą przesunięte są litery w szyfsze) - jeśli istnieje idziemy dalej 2. Żąda hasła i sprawdza czy jest zgodne...
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 ?
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...
String jest tak naprawdę tablicą - właśnie array , tyle, że przystosowaną do przechowywania wyrazów. Zatem zapis array utworzy Ci tablicę tablic, czyli taką jakby tablicę dwuwymiarową. Jeżeli tekst do przeszukania ma mieć 255 znaków, to tylko upraszcza sprawę - string może mieć do 255 znaków, więc...
Mam w programie użytych kilka procedur (część programu podałem poniżej), W części opisowej programu dodałem procedury wraz z opisem warunków w woli przejrzystości, a następnie chciałem się do nich odwoływać w dalszej części programu, nie wypisując już warunków, jednak coś jest nie tak, więc co powinienem...
o taką odpowiedź mi chodziło dzięki ;) Tylko najpierw tablice zrobić a czy zadeklarować wszystkie zmienne na samym początku w sekcji var czy do każdego pkt oddzielna deklaracja ... a co z funkcjami za pomocą których mam wstawić indeksy do tablicy ?
Ale co to właściwie ma być? Nie widzę struktur na przechowywanie "bazy danych", a przynajmniej jakiegoś jej streszczenia. Jeżeli chcesz obsługiwać bardzo dużo rekordów (książek, ludzi, wypożyczeń) to musisz użyć (albo napisać) jakiejś bazy danych, co najmniej z indeksowaniem rekordów. Dla małej ilości...
Turbo Pascal nie jest wprawdzie powszechnie używany przy pisaniu profesjonalnych aplikacji, stanowi jednak wspaniałą propozycję dla początkujących programistów. Dzięki Pascalowi możesz zacząć szybko pisać własne programy, ucząc się jednocześnie poprawnego programowania strukturalnego i obiektowego. "Praktyczny...
Witam. Ostatnio się bawię trochę bazami danych w pascalu. Mam daną tablicę 30 elementową 1d typu logicznego (boolean). I mam dwie procedury , które wczytują i zapisują dane. Z zapisem nie ma problemu , ale gdy próbuję wczytać to piszę że nie można wczytać ani zapisać danych tego typu . :/ Tutaj zamieszczam...
Znalazłem coś takiego w swoim zeszycie (przepisywane na szybko z tablicy) I prosiłbym tylko o dopisanie czego tu brakuje bo już nic z tego nie pamiętam... [syntax=pascal]uses crt; procedure pr1; begin writeln('procedure1'); end; procedure pr2; begin writeln('wybierz'); ...
Chciałbym się dowiedzieć jak odwołać się do tablicy ocen w tym rekordzie. Do imienia dane wpisałbym tak readln(dziennik[1].imie) ale jak wpisać dane do tablicy integerów znajdujących się w rekordzie. [syntax=pascal] type uczen = record imie : string; nazwisko : string; klasa : string; ...
Nie trzeba drugiego wymiaru tablicy. Powpisuj w tablice odpowiedzniki słowne JEDNOŚCI, DZIESIĄTEK, SETEK, TYSIĘCY ...: 'zdefiniowanie tablic zawierających wartości słowne odpowiadające 'elementom wartości varSETKI = Array("", "sto ", "dwieście ", "trzysta ", "czterysta ", _ "pięćset ", "sześćset...
funkcje eof eoln seekeoln Ale prezciez to jest bez sensu! Oczywiście należy sprawdzać koniec pliku i tu się nie obejdzie bez funkcji eof, ale zupełnie nie widze sensu stosowania pozostałych (no chyba tylko w formie balastu i komplikacji). Zamiast readln należy użyć read, bo przeciez potrzebny jest...
Precyzyjny pasek wygodnie można zrobić w trybie graficznym, ale nie koniecznie. Dodałbym jeszcze wyświetlanie przewidywanego momentu zakończenia obliczeń (za ile oraz kiedy, uaktualniane co jakiś czas (np. 15 sek.). Co do stylu, wszelkie szczegóły z wewnętrznego życia paska należy wynieść poza główne...
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,...
nameczylem sie troche.. dziala pieknie i nagle boom zapetla sie.. cos jeszcze ztym losowaniem bez powtorzen nie tak.. tylko co?? pomorzcie mi.. ja juz nie wiem:( jak odpowiedz jest dobra to ma wpisywac w tablice i wiecej nie powtarzac(szczegolnie chodzi mi o procedure nauka bo chyba w test bedzie ok)...
Hmm czy tak ciezko przeczytac jakis kurs Pascal'a ?? Dam Ci wskazowke bys uzyl funkcji ReadKey ! No i maly source: uses crt; var znak:char; //zmienna na wcisniety znak begin WriteLn( 'Wcisnij jakis klawisz...'); //wypisanie komunikatu znak:=ReadKey; //zczytanie znaku ...
Korzystając z programu rezi_ar którego kod (z wątku ) wygląda tak: program test; uses Crt; const Data =$378; Status =Data+1; Control =Data+2; {e =-b0 (1) rs= b2 (4) rw=-b1 (2)} Procedure Pause; var i:...
Kto mi powie jak odczytać dane z pliku(txt) dla danych parametrów (czyli np. n=, a=, b= itp.) dla takiego programu: program aproksymacja; uses crt; type tablica=array ); writeln('podaj y
Dziękuję wszytskim za pomoc, temat uważam za zakończony, program napisany za pomocą procedur był dobrze tylko źle były przepisywane tablice p,q,r......,v do tablicy wynikowej C. P.S. Pan który mi ostatnio pomagał ma dużo teori, mówi że ja nie mam podstaw, ale podstawą jest że funkcje obsługują typy...
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;...
Być może problem w tym że windows standardowo korzysta z innej "tablicy kodowej" niż dos - w win98 dla dosa ładowało się osobną tablicę, nawet dla tego działającego w win. Zmian wymagają pliki config.sys i autoexec.bat. Niestety nie jestem w stanie powiedzieć jak powinny wyglądać bo od dawna już się...
Więc schemat postępowania: 0) Przygotowujemy 4 tablice: - dla tysięcy ('tysiąc', 'dwa tysiące', ... , 'dziewięć tysięcy') - dla setek ('sto', 'dwieście', ... , 'dziewięćset') - dla dziesiątek ('dwadziescia', 'trzydziesci', ... , 'dziewięćdziesiąt') - dla jedności ('jeden', 'dwa', ... , 'osiemnaście',...
Poprawiony program: program quiz; type pytanie=record pytanie,a,b... of pytanie; wybrane:array[1..10 ... of pytanie; i,j,pom,prawidlowo:integer...
Witam coś mi nie działa poprawnie ten program :( Wykorzystałem tablice jednowymiarową (można użyć dynamicznej), na początku określamy rozmiar tablicy przypisujemy dane później czytamy obliczamy sume i iloczyn. Proponuje takie rozwiązanie mam nadzieje że nie ma błędu ;) var t:array[1..100]...
Witam wszystkich forumowiczów i proszę was o pomoc w zrobieniu programu, aby działał poprawnie bo ja próbuje ale nie wychodzi, a polecenie brzmi następująco:Zdefiniuj tryb rekordowy zawierający pola: -nazwisko,imię typu string oraz wiek typu integer. Zadeklaruj tablicę, której elementami są oba rekordy.Napisz...
Uses CRT,Dos; Var Imie,data,nazwisko,telefon,miasto,ulica,... of string; a,b,cena,odebrano:array[1..60000... of longint; c,c2:char; iloscosob:byte; t1:byte; plik:text; haslo:longint; adminpass:longint; ...
Jeśli chodzi o zmienną typu integer to są problemy z jej dzieleniem spróbuj użyć np. zmiennej "double;" , można też rozbić liczbę i wpisać w tablicę .Radzę tak jak mówiłem kupić książkę i uczyć się od podstaw - niestety tablice do dla początkującego trudna rzecz - ale do przejścia tyle że wszystko trzeba...
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????
Ostatnio chciałem napisać program do gry w statki ale zaciąłem się w momencie gdy komputer strzela w statki gracza. Nie umiem napisać tego fragmentu programu aby komputer za każdym kolejnym strzałem nie trafiał w już zestrzeloną cześć statku lub w miejsce które już wcześniej strzelił. W niektórych fragmentach...
Wektor = tablica jednowymiarowa zmienny wymiar = tablica dynamiczna
Witam!! Mam do napisania prostą grę w Pascalu polegającą na zbieraniu opadających symboli '(at)' za pomocą platformy w konsoli . Chciałbym zapytać o kilka rzeczy: Jak zrobić aby poruszać się platformą i jednocześnie opadały symbole. Dlaczego, gdy wciskam strzałki program wykonuje pętlę dwukrotnie?...
[url=]Link Może lukniesz ten kod i jakoś Ci pomoże, gdy połączysz ze swoją wizją :) Najlepiej to zrobić tak, ze masz tablice dynamiczna, kazdy element to jest czesc weza, pierwszy element to glowa, potem kolejne czesci i koniec. Później robisz tak: lecisz od konca tej tablicy i dajesz ostatniemu...
Jak zrobić by ten trójkąt wyswietlany zapisał się do pliku.Na zajęciach miałem takie w miare proste programy z tymi plikami.Tutaj nie potrafie zrobić tego zapisu w formie funkcji. Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu . Nieregulaminowy załącznik usunąłem.
Ogólnie nie wiem jaka ma być idea tego programu ale sadze iż ten sprosta twoim oczekiwaniom. Jednym z błędów którego nie potrafię poprawić jest tablica z indexami dlatego zawsze tworzy się 10 elementowa tablica na indexy a nie 2-3 tyle ile wpiszesz że chcesz liczb. Jeżeli nie o to chodziło to napisz...
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.
W zasadzie w PHP to nie ma stricte pojęcia tablic wielowymiarowych, jak np w Pascalu, lecz tablicy tablic - jak w C. Stąd takie podejście, że tworzy się tablicę, w tablicy, czyli dla 2x2 będzie tak:[syntax=php]$tablica = array(array(1,2),array(3,4));[/syntax]Mi... trochę przesadził z kodem chyba - nie...
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...
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..
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...
Problem jest następujący. Programik zainstalował się bez żadnego problemu, Zaznacze jeszcze ze mam XP pro z SP1. uruchamia ise bez problemu, choć troche spowalnia reszte kompa, ale to wydaje mi się normalne. Problme mam taki, że: jeżeli napisze sobie kilka linii kodu i chce się cofnąć kursorami w górę...
Jeśli chcesz programować to przede wszystkim musisz poznać dany język programowania. Zobacz co pokazały Google na temat "pascal tutorial": Poczytaj troche a potem dopiero bierz się za pisanie programów. A jeśli chodzi o algorytm to bedzie brdzo prosty: 1. deklarujesz tablice oraz licznik częstości: ...
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...
W pętli repeat na końcu dopisz wyrzucenie danych z tablicy na ekran typu printf / writeln czy jak to się robi w języku w którym piszesz. czyli: repeat ...(jeden krok sortowania babelkowego) writeln(wypisz tutaj dane z tablicy) until ... Jeżeli ma to być robione wolno krok po kroku, to dodatkowo...
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...
Trzeba było dokładniej przeanalizować kod. Podam kod losowania bez sprawdzania ilości trafnych. Dorób sobie. Możesz też zmienić losowanie na tryb podany przez lanky'ego. [syntax=pascal] uses Crt; type xx=array[1..80]of integer; var i,nr_los,n,ile_los:integer; wylosowane:array[1..10]of integer; ...
To co podałem było napisane w 'pseudo kodzie' tablice p oraz o należało by najpierw zadeklarować zgodnie z zasadami Pascala var p : array procedure sprawdzanie; begin for i:=p1 to p2 do begin if (i >= o1) and (i<=o2) then begin crash; ...
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....
Napisałem krótki program który wpisuje mi tablicę typu rekordowego do pliku. Niestety do pliku nie zapisują mi się 3 pozycje tylko jedna, ostatnia. Jak zrobić żeby w pliku po 3 przejściach pętli mieć zapisane 3 informacje? Dodano po 4 Trzeba usunąć -1 przy funkcji Filesize.
Bo te pętle wpisz po wykonaniu procedury Licz, bo widocznie w miejscu, w którym to wpisałeś jeszcze nic w tablicy nie zostało zmienione. [syntax=pascal]VAR x,y: INTEGER; BEGIN Licz(Tabliczka); FOR x:=1 TO n DO BEGIN FOR y:=1 TO n DO BEGIN write(Tabliczka[x,y],' '); END; writeln; END; readln; END.[/syntax]
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...
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] ... Wyswietlic je? Nigdzie nie widze wyswietlania czegokolwiek...
Faktycznie ciężko się porozumieć. Może tak? function pascal(n,k:integer):inte... if (k=0) or (k =n) then pascal := 1 else pascal := pascal(n-1, k-1) + pascal(n-1,k); end; dalej normalnie ... maxrow=20;...
Witam wszystkich. Mam mały problem z napisaniem programu w Turbo Pascalu, program ma zawierać tablicę jednowymiarową do 1000, użytkownik decyduje czy chce wprowadzić następną liczbę czy też skończyć wprowadzanie, na końcu program bąbelkowo sortuje te liczby. Udało mi się napisać program który ma wszystko...
C# posiada sporo metod przydatnych przy sortowaniu. Na upartego możesz też zrobić w pętli for porównywanie elementów z maxem tak: [syntax=csharp]max = t [0]; // Pierwszy element tablicy for (int i = 0; i < t.Length; i++) { if (t[i] > max) max = t[i]; ...
hmmm.... no faktycznie. nadal ni w zab nie rozumiem czemu inaczej wydana instrukcje wyswietlenia tablicy daje cos innego (inna kolejnosc tych liczb) mimo ze przypisywanie wartosci elementom wygladalo tak samo. myslalam ze Dodano po 33 dobra, chyba mnie olsnilo i chwycilam wreszcie :D [syntax=fortran] do...
Kompilator pod linuxa i Delphi pod windowsa niemają czegoś takiego jak predefiniowana tablica PORT.. trzeba używać wstawek asma, co pod linuxem niedziała (u mnie), emj: skompilować a uruchomić to 2 różne rzeczy...
a coś takiego: function ReadKeyTeraz:char; var tmp:char; begin tmp:=#0; { domyślny znak } while keypressed do tmp:=ReadKey; {oprużnienie buforu z pamięcią ostatniego znaku } ReadKeyTeraz:=tmp; { zwrucenie znaku } end; ?? Twój problem jest na tyle ciekawy ponieważ żeby sprawdzić czy jakiś klawisz...
Tak jak i nazwa wskazuje z angielskiego tłumaczone na polski najczęściej jako wskażnik. Służy do prostych i wygodnych manipulacji na danych - wyobraż sobie duuuużą tablicę i musisz się do niej dobrać w wielu miejscach w programie. To po co kopiować taką tablicę, skoro można przekazać informację w zmiennej...
{ Czy ktoś potrafi zmodyfikować i uruchomić poniższy program tak aby zamienił wczytana liczbę na tekst ?? Liczę na pomoc, w sobote mam drugi termin!! Program Słownie; uses crt; var {Deklaruj© tablice, oraz zmiennĄ "liczba" kt˘ra zostanie zapisana w postaci...
Pytanie zadane trochę mało precyzyjnie, bo sortujemy pliki czy tablice, jeśli pliki to jak wielkie?co do bąbelków to dobre są, ale w szampanie. Możn wykorzystać jakąś armatę SQL np. Sortowanie w pamięci jest znacznie prostrze, jeśli chodzi o pliki, to nie zawsze cały musi zmieścić się w pamięci,...
1. "i" jest licznikiem, nie losowaną liczbą (jest nią "k") z którą po losowaniu nic się nie dzieje. można by w wypadku ponownego wylosowania wartości którą już mamy w tablicy kombinować ze sprawdzaniem kolejnej, czyli k+1, ale tu znowu trzeba sprawdzać czy już takiej nie było, jeśli była to k+2 i tak...
randseed=X; for I=low(tablica) to high(tablica) do taclica[I]=Random(zakres);
Jest tak: Pewien nauczyciel chciał zadać uczniom robote ale byl troche leniwy (to podobno jest modne wsrod informatykow). Znalazl kod w podreczniku i nakazal uczniom: "Napisac program ktory wypisuje losowo liczby od 1 do 20 a nastepnie upozadkowac je malejaco." Leniwi uczniowie przepisali z tegoz...
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)
program pary; var osoby[1..16,1..4] of byte; {osoby[nr_osoby, znani 1..3, sparowany 4} ilosc_osob:integer; {Funkcja sprawdza czy dwie osoby znają się nawzajem} function Sprawdz(o1,o2:integer):b... i:integer; z1,z2:boolean; begin ...
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>> wp... liczbe X -> jeżeli tablica [x]=1 wróć -> tablica[x]=1 <<KONIEC...
Napisalem cos takiego..moglibyscie sprawdzic czy nie ma jakis bledow..tzn program sie kompiluje i dziala ale moze da sie cos poprawic:)z gory dzieki..pozdrawiam uses crt; var bylo: array [0..99] of boolean; a, b: byte; i,e,wynik: integer; c:char; procedure nauka; begin e:=0; randomize; for...
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.
Znalazłem w tablicach jeszcze jedno rozwinięcie w szereg ważne dla każdego x>0: Ln(x)=2*\sum{\frac{1}{2n+1}*(\frac{x-1}{... dla n=0 do ∞ {Oblicza logarytm naturalny z dokładnością eps z ograniczeniem na ilość wyrazów ciągu maxit (by uniknąć zawieszenia się jeżeli ...
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:=tab... Pom=False; writeln ('posortowane wedlug nipa '); for...
Napisać program wykonujący przynajmniej jedno z działań (dodawanie, odejmowanie, mnożenie lub dzielenie) na liczbach w systemie dwójkowym. Użyj do reprezentacji liczb binarnych tablic długości 10. Użytkownik podaje liczby po uruchomieniu programu (liczby maksymalnie 10-cyfrowe). Program wypisuje te liczby...
Tak jak napisales ten program jest latwy. Ale nie wiem co sobie trzeba w nim przypominac. Skoro jesli nie pamietasz wzoru na wyznaczenie prostej wystarczy toworzyc tablice. Wczytanie 6 zmiennych - obliczenie parametrow a i b (pierwsze 4 parametry) funkcji postaci y=ax+b. Podstawienie do funkcji...
5 zl lol. Npisalbym za darmo, ale to nie podoba sie moderatorom, Tobie nie podoba sie to, ze nie dostales calosci. Staralem sie zachowac zloty sroedk i poprostu podpoweidziec Ci gdzies szukac, ale nawet ie wiem czy szukales. A problem naprawde nie jest trudny. !Kazda! ksizazka o !podstawach! programowania...
Po tym fragmencie masz tablicę rekordów. Sortowanie zrobisz sobie wg dowolnego algorytmu sortowania, ale porównując konkretne pole rekordu (n.p. Hotele[i].Nazwa < Hotele[j].Nazwa). Natomiast jako zmienną pomocniczą i podczas przenoszenia musisz wykorzystać zmienną typu rekord (n.p. var ZmPom: THotel;...
program sortowanie; uses crt; var tab:array po pierwsze primo to kod pisz w znacznikach CODE. po drugie primo to strasznie pogmatwany ten twój kod. domyślam się, że chcesz zrobić sortowanie w kolejności rosnącej. Program Sortowanie; uses crt; var T:array[1..20] of...
min=t[0]; max=t[0] licznik=0 // licznik prównan for i=1..n-1 licznik++ if t[i]<min min=t[i] else licznik++ if t[i]>max max=t[i] proste liniowe szukanie, licznik przybiera wartości między N a 2N +/- (raczej więcej...
Mam jeszcze trzecie rozwiązane. We wcześniej przygotowanej tablicy mam już „odwrócone” liczby. A teraz wszystko co robię to: odwrotki MCKMI : ostatnie pytanie świadczy o tym, że nie przemyślałeś tego, co wcześniej napisali koledzy.
prostym Ifem... if ((date2.miesiac) > (date1.miesiac)) then writeln('data2 jest wieksza') else writeln('data 1 jest wieksza); powinno być sprawdzenie ifem czy miesiace nie sa rowne, jesli sa to if porownujacy dni -->if jak wyzej. i masz juz gotowy program. Date najlepiej bedzie ci jako...
określ formę danych wejściowych, czy to jet plik, czy jakaś tablica, string, czy może dane w prowadzane z klawiatury. zadanie jest w zasadzie proste. odejmujesz odpowiednie elementy godzin (początek od końca), a jeśli wychodzi wartość ujemna, to musisz bardziej znaczący element zmniejszyć o 1. a...
Widzę że to chyba kontynuacja innego tematu. Najpierw odpowiem na konkretne punkty, tzn. jak bym to kodował, a potem dorzucę parę uwag. 1. Musisz mieć podaną listę wierzchołków, powinna być skończona i albo możliwa do przeliczenia (jeżeli np. używa się zawsze tablicy 2x1000 i ustala się że po ostatnim...
napisz program ,który wczytuje n liczb całkowitych do tablicy i przesuwa w niej liczby o n elementów w prawo.
