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 WriteLn( 'Wcisniety zostal klawisz: ',znak ); //wypisanie...
Ten program nawet się nie skompiluje - przyrównujesz znak do ciągu tekstowego. To nie zadziała. Musisz albo użyć konstrukcji z in , albo drugą pętlą (funkcją) porównywać znak z góry założonym zestawem - tablicą.
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.
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 ...
Chce napisać program, w którym użytkownik poda ciąg liczb, a program je przetworzy. Dodatkowo chce zrobić coś takiego, żę gdy się wpisze 0 to, pętla która zczytuje liczby, ma się zatrzymać. I tu właśnie mam problem. Liczby które zczytuje są zapisywane w tablicy. I nie wiem jak zrobić żeby właśnie po wpisaniu 0 pętla się zatrzymywała. Zrobiłem cos takiego...
Witam. Ma ktoś moze jakieś informacje zwiazane z tablicami Pascala i C++???
Witam Czemu nie mogę zapisać całej tablicy do pliku binarnego. program rekord; uses crt; var plik2:file of array [0..2] of char; o:array [0..2] of char; begin clrscr; assign(plik2,'d:\osoby.txt')... rewrite(plik2); write(plik2, o); close(plik2); readln; end. W lini write(plik2, o); jet...
Wektor = tablica jednowymiarowa zmienny wymiar = tablica dynamiczna
Siema potrzebuje pomocy w programie. Program wypełnia tablice losowymi literami i sortuje je od od a do z. Problem polega na tym iż nie mam pomysłu jak zrobić to na tablicy dwuwymiarowej i żeby sortowało od z do a. [syntax=pascal] program project1; uses SysUtils; const min=1; max=5; type tElem = char; tTablica = array [min..max] of tElem; var t:tTablica;...
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. :)
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 kurs Turbo Pascala" to książka przeznaczona...
1. Dałeś czytanie linii (z klawiatury) pod pętlą (bezpośrednio po wypisaniu). 2. We write wystarczy wpisać zmienną - nie ma potrzeby niczego dodatkowego. 3. Znacznie wygodniej byłoby Ci przechowywać wynik na stringu niż tablicy.
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 drugiej mozesz zrobic w dwojaki sposob: 1. Albo wczytac...
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...
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ę w win98 nie bawiłem. Może ktoś inny będzie wiedział...
Witam serdecznie... Jeśli był już ten temat poruszany na forum, to bardzo przepraszam, ale czas mnie nagli, a przeglądanie wszystkich postów zajęło by mi chyba cały dzień. Mam problem z zaliczeniem pracy na kursie z informatyki. Dostałem zadanie: ..."Napisz program Lottomat"... Program ma wylosować 100 razy 6 liczb z 49. (Oczywiście liczby w jednym...
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.
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...
Bardzo prosto. Tablica reprezentuje kolejne wagi bitowe w systemie dwójkowym, więc : liczba = tab Gdyby nawet w tablicy były inty zamiast boolean, to powinno iść odwrotnie, tj: liczba = tablica Adamm0 - też dałeś wagi na odwrót.
Możesz zrobić wewnętrzną pętelkę do sześciu sprawdzającą czy wylosowana liczba nie jest identyczna z którąś ze zmiennych (u góry dostałeś kod z tablicą wypełnioną wynikami). No a samo porównanie zmiennych to już chyba rozgryziesz, jeżeli coś jest równe czemuś, to powtórz losowanie, w przeciwnym wypadku wykonaj następny obrót pętli głównej.
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...
przy okazji dodawania do tablicy rekordu, to dodawać element do tablicy boolean i zastępowanie danego indeksu wartością true, albo właśnie kopiowanie. Tylko nie wiem jak się zabrać, żeby to skleić w całość, bo w przypadku zmiany wartości w tablicy boolean, w pętli w procedurze wyświetlania, zmieni mi jej wartość na false ale i tak wyświetli. Nie zabardzo...
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 to mi przywołuje drugie pytanie: czy program ma być zabezpieczony...
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ę programu to mi zaznacza tekst na szaro. Z compilowaniem...
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 kod tej procedury : [syntax=pascal]procedure...
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 proste, a tablicowego już nie, teraz będzie już pan...
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 sobie w głowie wyobrażać i po prostu pojąć co...
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 parametry i porownanie y z 6 parametrem jesli y=6.par...
Przepraszam, jeśli coś powtórzę, ale wątek się szybko rozrósł :) A co do różniczkowania, to taką uproszczoną metodą może być postapienie np tak: 1. Zadajesz czasy zmian parametrów (może to być tablica) 2. Przyjmujesz jakąś jednostkę podstawową (np. minuta, okrążenie) i co minutę wyliczasz w pętli zużycie (w przeciągu tego czasu). Oczywiście sumując...
.identyfikator2); read(oceny,ucz Proszę pamiętać o używaniu znaczników . Opcja Listing kodu . Ostatni raz zwracam uwagę, kolejny post wyląduje w koszu. - arnoldziq
[syntax=delphi]program SKLEP; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Classes, SysUtils { you can add units after this }; Const Max_magazyn = 100; Max_klient = 100; Max_sprzedaz = 100; plik_magazyn = 'magazyn.sdb'; plik_klient = 'klient.sdb'; plik_sprzedaz = 'sprzed.sdb'; type magazyn = record id : word;...
Witaj. Jeśli jest to możliwe to może podasz jakiś przykład. Nie mam pojęcia jak to deklarować w VB.6 cos takiego robiłem w Pascalu. Tu nie mam pojęcia jak zacząć. Może dasz jakiś przykład, jakiekolwiek sortowanie. Dzieki i pozdrawiam.
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 linijkę i dopiero ją zapisywałem w pliku tymczasowym....
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 odrazu sortować resztę czyli przestawić wartości w innych...
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; cout<<"podaj h"<<endl; cin>>h; int tab[h][w]; nie jest dobry. VC++ 2k8 EE wyrzucił 6 błędów przy...
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...
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 l1, l2 : byte; tablica : tab1; tablica2 : tab2; begin clrscr;...
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 10. a w programie korzystać z jej części odpowiednio do wczytanej...
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; li:=random(70+1)+10; pr:=0;a:=10; b:=80; repeat pr:=pr+1; writeln('Podaj...
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...
[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] Program ma za zadanie przyporządkować np tab[1] := 1 i tab[2]:=2 i tak dalej do 600 i wyświetlać komunikat "element tablicy o indeksie...
Dokładnie tak samo, tylko trzeba podać index do tablicy oceny. [syntax=pascal]readln(dziennik[x].oceny[...
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ć...
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ą.
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 integer; plik:text; x,i,j,k:integer; begin clrscr;...
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? i jak się tego pozbyć. Jak mam zrobić podliczanie punktów...
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...
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 wypełniasz tablicę tab liczbami, tak jak w twoim kodzie} licznik:=0;...
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 można go użyć. Jeden błąd w Twoim kodzie: nie możesz...
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 zmienić uses crt; var tablica:array[1..8]...
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 z tym zawartym w pliku pass.dta 3. Wyświetla nam odkodowane dane...
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 wartości 7 i 11 [syntax=pascal]4: t2[2]:=7; 8: t2[3]:=11[/syntax]...
A jeszcze pytanie, bo mam problem z rekurencyjnym merge sortem, do którego potrzebne są dwie tablice. Problemy pojawiają się w przypadku sortowania liczb rzeczywistych... Tzn, program nie kompiluje. [syntax=delphi]procedure Merge_Sort_For_REAL(var Tab:array of REAL; var HELP_Arr_Merge_Sort_REAL:array of real; i_p,i_k : REAL); var i_s,i1,i2,i : REAL;...
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 wystarczą tablice i pliki i o to chyba tu chodzi....
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 ", "siedemset ", "osiemset ", "dziewięćset ") varDZIESIATKI...
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 pojedyńczy znak a nie łańcuch. Napisałem prog co sortuje...
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 obliczenia, łącznie ze zmiennymi (np. tak jak zaproponowałem...
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) a jak zla to nie zapisywac.. program tabliczka_mnozenia;...
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: integer; begin Delay(1); end; Procedure Put_Ins(Ins:byte); begin Port[Data]:=Ins;...
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
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', 'dziewiętnaście') UWAGA - tablice dla dziesiątek...
Poprawiony program: program quiz; type pytanie=record pytanie,a,b,c,d:string[150]; prawidlowa:string[15]; oznaczono:boolean; end; var pytania:array[1..50] of pytanie; wybrane:array[1..10] of pytanie; i,j,pom,prawidlowo:integer; wybrano:string; begin pytania[1].pytanie:='Polecen...
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] of real; i,n:byte; b,k,s:real; begin s:=0;...
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 n to odpowiednia potega wynikajaca z indeksu tablicy)
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 program pozwalający wczytywać kolejne rekordy...
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
Niestety o record-ach nie słyszałem. A jak się robi tablice w tablicach? Najprostszym przykładem.
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; ch:char; liczby:xx; swoje:xx; procedure los(x:integer;xx:integer);...
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.
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 i=1,27 do j=1,3 write(*,*) bez(i,j) end do end...
[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 elementowi wspolrzedne poprzedniego i tak do pierwszego...
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.
czemu w rekordzie masz tablice stringów ?
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'); writeln('1:procedure 1'); writeln('2:procedure 2'); writeln('0:wyjscie'); readln();...
Hej potrzebuję pomocy z bazą danych w Pascalu. Potrzebuję 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 MaxOsob = 100; Plik_Bazy_Danych = 'osoby.txt';...
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...
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 potrzebuje tego kolega do szkoły. Ja tam nawet nie...
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...
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: type nazwa_typu = array [1...4] of char; var...
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...
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????
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; break; end; end; end;
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...
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 : array[0..10] of integer;...
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 wiem, czy przypadkiem taki zapis, jakiego użył,...
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 konkretniej jak ma to wygladać :) [syntax=pascal]...
... w pascalu indeksujemy od 1 do N włącznie ... Bzdura, tak jest tylko i wyłącznie dla typu string a i to jako zaszłość (nie zmieniają dla kompatybilności). W pozostałych przypadkach jak sobie tablicę ustawisz tak i będzie możesz indeksować nawet od -10 do -2. np: [syntax=delphi]tb:array[-10..-2]of Integer;[/syntax] Zupełnie inna sprawa że dla dokładności...
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 w repeat dodaj jeszcze jakąś przerwę funkcja sleep/delay...
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...
Witam Szanownych Forumowiczów. Mam tablicę ledową która wyświetla różne napisy, które ma zaprogramowane. Chciałbym móc zmienić wyświetlaną treść. Jednak dla mnie to zupełna nowość, dlatego zwracam się z prośbą o pomoc w ogarnięciu tematu. Na "pokładzie" jest Atmega644. Do płytki jest dołączony dość długi kabel zakończony rs232, więc przypuszczam że...
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 jest trzymany, trzeba by sie było zabawić scankodami,...
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 typu pointer o adresie konkretnego miejsca do...
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
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, wystarczy może odczytać jedno pole z rekordu (klucz) i...
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 do skutku, kłopotliwe, trzeba jeszcze sprawdzać czy...