wrych: a co robi procedura czytaj(...)? Zadeklarujemy: var liczba: string; Nagłówek procedury: procedure czytaj(komentarz: string; var napis: string; wspx, wspy: integer; max, skala :byte; znaki: zakres_znakow); Wywołanie: czytaj('Podaj liczbę ', liczba, 10, 30, 7, 2, ['1'..'9', '0', '.', '-'); powoduje wyświetlenie...
Jak zrobic aby w kalklatorze liczby całkowite byly odejmowane bo mi wychodzi teraz 2-3=5 czy wprowdzic zmienna pomocnicza a moze lepiej cos innego prosze o pomoc. Program musze napisac na zaliczenie. Jak ktos umie niech przerobi go. Zamykam. - arnoldziq
Witam mam problem ze swoim programikiem na informatykę. Program ma liczyć sumę ciągu. Tzn. przy próbie uruchomienia wyrzuca jakiś błąd. Może ktoś by zerknął na niego? Napiszcie mi co to za błąd i co zrobić by go uniknąć. Z góry dziękuje. Zamykam. - arnoldziq
chce aby program losował liczby z przedziału od 1 do 20 i do 2 liczb po przecinku, bo w takim przypadku jak teraz to wyskakuje mi za każda raza ( liczba.00 ) program losowanie; uses crt; var a:real; begin clrscr; randomize; {uruchomienie generatora} a:=random(20); write('Wylosowano ',a:0:1); readkey; end.
[syntax=pascal]Program Liczby; var x,i:integer; // deklarujemy zmienne tab: array [1..10000] of integer; //deklarujemy tablice begin i:=1; // na poczatku i wynosi 1; repeat // rozpoczynamy petle begin readln(x); // user podaje liczbe tab[i]:=x; // podstawiamy do tablicy podana liczbe i:=i+1; // zwiekszamy liczbe podanych liczb o 1 until x=0; for x:=1...
Zacząłem naukę Pascala. I po zapisaniu jakiegoś pierwszego krótkiego programu chciałbym zobaczyć efekty...ale niestety nie mogę bo okno się zamyka praktycznie od razu i nie zdażę nawet zerknąc jak mi wyszło. Jest jakiś sposób, aby okienko się nie zamykało? Wpisywałem Readln; , ale i tak się zamyka... [syntax=pascal]program liczby; var l: Integer; begin...
Dane są liczby naturalne n i k(n<=k) typu Word. Napisz program, który obliczy sumę pierwiastków kwadratowych liczb naturalnych ze zbioru {n, n+1, ..., k}. void funkcja(unsigned int n, unsigned int k) { unsigned int wynik, ile,liczba; ile = k - n; for(unsigned int index; index <=ile; index++) { liczba = n + index;...
Napisałem na szybko kawałek kodu żeby wszystko w nim było widoczne. Oto on: program Project2; {$APPTYPE CONSOLE} uses SysUtils; type wskliczba=^liczba; liczba=record value:integer; next:wskliczba; prev:wskliczba; end; var head,curr,tmp:^liczba; x:integer; i:integer; begin new(head); writeln('Wpisz liczbe');...
Zamieść tu swój kod, bo nie bardzo rozumiem, na czym polega twój problem ... Nie umiesz przemnożyć w Pascal-u dwóch liczb ? Przecież kilka postów wyżej, masz dokładnie napisane jak to zrobić.
Witam. Otóż mam problem. Jak zrobić by po wybraniu np. odpowiedzi 1 (Koń) zadało następne pytanie czyli np. Co chcesz teraz zrobić? 1. Jechać na północ 2. Jechać na południe 3. Jechać na wschód 4. Jechać na zachód ? Oto kod: [syntax=pascal] const Liczba = 2; var Pytania : array[1..Liczba] of String; OdpowiedziMozliwe : array[1..Liczba,1..3] of String;...
Witam, Muszę napisać program w pascalu który wczyta słowo i obliczy mi ile razy pojawiło się ono w tekście. Próbowałem już wszystkiego, ale nie mam głowy :( Przerabiałem ten program: [syntax=pascal]program project1; const tabulacja=9; var plik:text; n:integer; nazwa:string[12]; procedure slowa(nazwa:string; var liczba:integer); var znak:char; noweslowo:boolean;...
Miałem na zadanie domowe zrobić trzy programy w turbo pascalu: obliczanie delty, liczby min i max w ciągu i tabele z 10 kolumnami gdzie podajemy 10 liczb do wpisania w kolumnach (tege jeszcze nie zrobiłem :P) i mam je wszystkie w procedury wsadzić co już zrobiłem. I każda procedura ma być wywołana poprzez instrukcje case of z 3 klawiszy tj: 1,2,3 i...
Witam. Mam problem z pewnym programem z informatyki. Muszę napisać program, ktory wczyta liczbe w sys binarnym, zamieni na dziesietną i wyswietli. program powinien sprawdzic czy wprowadzona liczba jest liczba calkowita i dodatnia. Problem w tym, że nie wiem jak się za to zabrać. Nie wiem, jak się wziąć za tą zamianę. Nie chcę gotowej odpowiedzi, tylko...
Witam Mam oto taki problem napisałem program który, Liczbę w systemie Dziesiątkowym zamienia na Binarny. program xxx; uses WinCRT; var a,op,licz,sys:word; wyn:array[1..255] of word; i,il:byte; procedure oblicz(var l,s:word); begin il:=0; op:=l; repeat il:=il+1; wyn[il]:=(op mod s); op:=op...
Witam, mam pewien problem. Problem ten polega na napisaniu kodu w programie Turbo Pascal 7.0. Niestety pierwszy raz miałem do czynienia z tym programem i nie za bardzo wiem o co chodzi. Przeszukałem wiele postów i forum, lecz nie znalazłem odpowiedniej pomocy w tej kwestii. Głownie chodzi mi o kod, który zmieni podaną liczbę w systemie dziesiętnym a...
jak odczytac liczby szesnastkowe (hex ) z klawiatury i wyswietlic wynik musze napisac programi ktory bedzie np. dadawał liczby szesnastkowe licz:string Readln(licz1) ; Readln(licz2); wynik :=licz1+licz2 Oczywiscie taki program nie bedzie dzialal ..wiec prosze o pomoc
Czy może ktoś pomóc mi w kwestii programowania w Pascalu?? Chodzi o słowny zapis wczytanej liczb(y) całkowitej Zamykam. - arnoldziq
{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 s�ownej} {jedno�ci} T1: array Zamykam. - arnoldziq
hejka! mam troszke czasu i postanowilam napisac fajny programik , ale do jego realizacji jest mi potrzebny algorytm losowania 4 liczb, tak aby zadna z nich sie nie powtorzyla. raczej to nie jest trudne ale cos mi nie wychodzi:/,bede wdzieczna za pomoc.pa Zamykam. - arnoldziq
Chcę, aby mój program napisany w języku pascal potrafił znaleźć ostatnią liczbę w jakimś pliku tekstowym, chcę aby zwracał ilość liczb zapisanych w tym pliku. Potrzebne mi to, bo chcę napisać program, który wczyta z pliku txt kolejne liczby, posortuje je np. rosnąco, zapisze plik z posortowanymi liczbami. Proszę o pomoc. Zamykam. - arnoldziq
Gdzieś w poniższym kodzie załącznika jest błąd. Miał to być program do szukania liczb pierwszych napisany w Turbo Pascalu. Z chęcią bym się jeszcze dowiedział, jakie książki z programowania w Turbo Pascalu są najlepsze i posiadają najobszerniejszą więdzę z tej dziedziny. Zamykam. - arnoldziq
witam potrzebuje programik na podzialy liczb naturalalnych chodzi oto , ze podajesz np. liczbe 4 i wypisujesz 0+4=4 ,1+1+1+1=4 ,1+3=4 2+2=4 prosze kogos kto umie programowac zeby mi pomogl to ma byc w delpji na zaliczenie ,mam kod w c++ ale nie wiem jak go przelozyc gdyby co to tu jest link
Witam Mam problem z zamianą liczb np. 37 na 73 chodzi o to aby była tak jakby czytana od tyłu. jeszcze pare przykładów: 15 -> 51; 23 ->32 Czy wiecie w jaki sposób mozna taką rzecz wykonac w pascalu ?? Pozdrawiam Z góry dziękuję.
Witam. Poszukuje programu w pascalu który porządkuje zbioru liczb jakąś metodą max ulubiona wyszukiwarka google nic nie pokazuje ciekawego może źle szukam nie jestem w temacie wiec proszę o info
Mam coś takiego: program liczba; uses crt; var x,y :integer; begin randomize(); writeln('Podaj X'); read(x); writeln('Podaj Y'); read(y); textcolor(random(16)); writeln(x); textcolor(random(16)); writeln(y); readln(x); readln(y); end. A muszę zrobić: "napisz program odczytujacy dwie liczby (x y) i znak,a nastepnie wypisujacy ten znak na ekranie w punkcie...
zrobilem program zeby losowal 39 liczb losowych z 99, ktory ma pokazac je w jednej lini oddzielone spacja..... Jednak jest problem...... w jednej lini nie zmieszcza sie 39 liczb bo za malo miejsca.... zmieszcza sie tylko max 30 liczb..... co zrobic zeby wszystkie zmiescily sie w jednej lini albo przynajmniej byly w drugiej...
Mam do napisanie program ktory ma czytać z klawiatury liczbę naturalną n, a następnie sprawdzić ILE kolejnych liczb naturalnych (od 1) trzeba zsumować, aby ta suma przekroczyła podane n. Ma ktos jakis pomysl? Regulamin, punkt 11.1. Temat poprawiłem.
witajcie. potrzebuje program, który po wczytaniu n liczb naturalnych do tablicy, losuje dwie z nich, dodaje i mnoży za pomocą procedur. z zapisem samej tablicy, dodawania i mnożenie dam sobie rade, ale te losowanie jest nie do zgryzienia.
Hey, mam problem otóż muszę napisać program na zaliczenie na piątek.Treść wygląda tak.Napisz program który znajdzie w tablicy dwuwymiarowej znaków nr wiersza w którym suma elementów jest większa od 'c'.kompletnie nie wiem jak sie zabrać... Wczytanie : Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
Cześć słuchajcie, robię sobie lotto w pascalu i wszystko mi działa poza jedną rzeczą, którą trudno mi wykonać: Jest 6 liczb losowych , fragment kodu: _____________________________ RANDOMIZE; G:RANDOM (50+1); H:RANDOM (50+1); I:RANDOM (50+1); J:RANDOM (50+1); K:RANDOM (50+1); L:RANDOM (50+1); _____________________________ no i sęk w tym, że chciałbym...
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
Witam potrzebuje pomocy. Mialem napisac program na dzielenie dwoch liczb, wszystko poszlo ladnie program dziala tylko ze nie mam pojecia jak to zrobic zeby mozna bylo dzielic liczby typu 0.05x 0.4. Prosze was o pomoc, ponizej zamieszczam kod programu [syntax=pascal]program dzielenie2liczb; var a,b:integer; procedure jp; begin writeln('Dzielenie dwoch...
Potrzebuję polecenie które otworzy tablicę z pliku txt, wczyta ją do programu i będzie korzystać z tych danych do obliczeń. Poprawiłem tytuł. - arnoldziq
Zeby ci to teraz wystlumaczyc bylby problem. Poszukaj na necie jakis kusow pisania w Pascalu. Chciales jakis prosty program, napisalem porgram ktory dodaje dwie podane liczby. program lol; uses crt; var liczba1,liczba2,suma: integer; begin clrscr; write('Podaj liczbe a: '); read(liczba1); write('Podaj liczbe b: '); read(liczba2); suma:=liczba1+liczba2;...
Witam Napisałem prosty program który pisze mi po kolei EXP dla LVL co ileś tam, ale mam problem jak to wszystko zapisać żebym mógł skopiować z pliku do configa gry? Tu podaje kod: [syntax=pascal]Var liczba1:Word; liczba2:Word; liczba3:Word; t:word; Begin Writeln('Wpisz ilo˜† LVL'); readln(liczba1); Writeln('wpisz co ile ma by† LVL');...
Brak dolara i zera. Dolar wymusza tryb szesnastkowy, a zero jest potrzebne aby to byla liczba. W dziesietnym sie nie da adresować. Specyfika Pascala. Spróbuj mem[$0B800:$0001] := '#';
Witam, w szkole na zaliczenie mam zadanko z Pascala. Nie byłem na wszystkich zajęciach stąd wiedza jest troche ograniczona (niestety taka praca). Zadanie mam takie : program ma przeczytać 10 liczb, policzyć liczby ujemne i dodatnie, a nastepnie wypisać te których jest więcej. Drugie zadanie (nieobowiązkowe) mam takie: macierz dwuwymiarowa 3x4, program...
Funkcja Random generuje liczby pseudolosowe, czyli nie uzyskasz liczb idealnie losowych ;). Popatrz tutaj: [url=] [url=] Funkcja Randomize uruchamia generator liczb pseudolosowych. Czyli przed pierwszym użyciem funkcji Random, poprzedzasz ją funkcją Randomize. Bez tego generator nie działa. Dopiero liczbę pseudolosową losujemy funkcją Random. Wszystko...
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;...
Ok wszystko działa, tylko nie mam pojęcia jak wykonać procedurę edytuj. Coś tam napisałem ale mi to nie działa. Prosiłbym o wyjaśnienie dlaczego ta procedura nie działa tak jak powinna. A powinna wczytać numer identyfikatora rekordu który ma być edytowany, po czym powinna usunąć ten rekord, a następnie powinna dać możliwość wpisania nowego rekordu w...
Siemka, mam na wstep do programowania zrobic aplikacje okienkową w Lazarusie, która zamienia liczby dziesiętne na system dwójkowy, szesnastkowy i ósemkowy. Na razie napisałem zwykłą konsolową aplikacje w C, bo go lepiej ogarniam i próbuje to zmienić na Pascala. Tu program w C: A tu pascal z tym że nie do końca działa także prosiłbym o poprawe: program...
Dr.Vee napisał: Jeden żartuje, drugi żart wziął na poważnie - czyli elektroda.pl To nie do końca był żart. Na programowaniu w C prawie się nie znam, ale chciałem koledze podsunąć algorytm (temat śledzę od początku). Podałem w Pascalu przykład zamiany liczb arabskich na rzymskie. Kolega zrobił coś podobnego, chociaż wydaje mi się to bardziej skomplikowane....
Hej Kocia! :) Dawno Cię nie było, aż wspominałem ostatnio że może byś komuś pomogła wskaźniki zrozumieć :P Ale do rzeczy - faktycznie, jak Krzycho wspomniał, operacje na innych systemach liczbowych najłatwiej przeprowadzać bazując na tekstach. Generalnie opiera się o założenie takie: wartość = Σ a(i)*p^i, gdzie i=0 i - numer kolejny cyfry...
Witam Mógłbym prosić kogoś o sprawdzenie tego schematu blokowego? O ile co do działania programu nie mam wątpliwości to już co od schematu nie jestem pewien czyt wszystko sobie dobrze wyrysowałem. Poniżej zamieszczam kod źródłowy i schemat. program liczby_pierwsze; uses Crt; var n,i:integer; lp:boolean; begin lp:=true; writeln('Podaj...
siemka potrzebuje pomocy w stworzeniu programu(na dzis:( ) w pascalu a brzmi ono: Kolejka górska odjeżdża ze stacji X o godzinie T1 i przyjeżdża do stacji Y o godzinie T2. Wyznacz w sekundach czas podróży kolejką wiedząc, że podróż nie trwa dłużej niż jedną dobę. Wejście Pierwszy wiersz wejścia zawiera trzy liczby całkowite g1, m1 i s1: g1 z zakresu...
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. Jestem nowy na tym forum, od pewnego czasu bawie sie pascalem i mam problem z jednym programem ktory napisalem a dokladnie z rozszyforwaniem co zrobilem zle. Napisalem kalkulator ale po debugu pojawia sie "syntax error, ; expected but UNTIL found" gdy klikam na ten napis pokazuje mi ostatnia linijke (ostatni until) ale nie wiem co tam jest zle....
Witam, znalazłem sobie kalkulator napisany w Pascalu, i w jego fragmencie znalałem takie coś: {$I-}. Czy to jest jakaś dyrektywa dla kompilatora? Co to w ogóle oznacza? Fragment tego kodu prezentuje się następująco: [syntax=pascal] begin {$I-} readln(liczba); {$I-} rezultat := IOResult; if (rezultat <> 0) then begin textcolor(4); gotoxy(30,23);...
Witam serdecznie! Mam do Was ogromną prośbę. Muszę zrobić 3 proste zadania w języku Pascal Zadanie I Wejście Pierwszy i jedyny wiersz wejścia zakończony znakiem nowej linii zawiera liczbę całkowitą z zakresu 0..255. Wyjście Pierwszy i jedyny wiersz wyjścia zakończony znakiem nowej linii powinien zawierać osiem cyfr z zakresu 0..1. Przykład Dla danych...
Mam nadzieje że, mi ktoś pomoże. A oto co ma robić program który mam napisać: Dane są dwie liczby naturalne m i n przyczym m <= n. Spośród liczb naturalnych nalezących do przedziału <m, n> znaleść i wydrukować te, których kwadrat jest podzielny przez zadaną libczE naturalną - p. Bardzo was prosze, POMOCY!!!
To jest formatowanie liczb rzeczywistych (innych zapewne tez). Ma wyswietlic liczbe (2 liczby znaczace przed przecinkiem i 2 liczby znaczace po przecinku). Tylko tyle pamietam. Jesli usuniesz to formatowanie bedzie wyswietla cala liczbe rzeczywista.
Po co w podtytule niniejszego działu jest napisane: Pytania i odpowiedzi dotyczące programowania w różnych językach (Assembler, C, C++, Java, Pascal, PHP, Basic, Visual Basic, Symbian, Delphi). Wyślij tutaj swoje programy! ? Forumowicze - tzw. "starzy wyjadacze" - chyba nie są świadomi tego zapisu, bo jak na razie w każdym tego typu temacie próbują...
Przepraszam za błędy w tekście "Maskowanie bitów". Poniżej poprawiona wersja. ----------------------------------------... MASKOWANIE BITÓW w pigułce. (Dla tych, którym sprawia trudność zrozumienie zagadnienia) PODSTAWY Liczby binarne - szybkie czytanie ich wartosci (dzisiętnych) polega na określeniu położenia ustawionego bitu (czyli...
No ja tez jakos jestem na elektrotechnice i poza jezykami ktore nas uczyli (pascal, c, asm) to znam jeszcze pare. Jak to mozliwe ze kolega gumiś_rzesz nie ma pojecia o programowaniu w c. Taki program z najprostszych tutoriali da sie napisac, a o najprostsze tutoriale pyta sie google ;) A poza tym jezeli zna np pascala to idea ta sama tylko skladnia...
Witam. Mam taki problem. Mam barze danych w free pascal. Problem jest taki że nie potrafię zrobić kilku rzeczy, które chciałbym aby się znalazły w programie.. - Po wybraniu SZUKAJ pojawiało się pole wyboru: szukaj po: 1.kolorze, 2.marce, 3.roku produkcji.. i zabezpieczenia przed brakiem samochodu w bazie po danym typie.. - zabezpieczenia przed wpisaniem...
No, to już coś. Teraz podobne funkcje dla assemblera zapisz dla mnożenia (MUL). Następnie zobacz, jak [url=]wczytywać liczby (klika przykładów z assemblera) - znów zapiszesz swoją funkcję zamiast readln. Podobnie postąp z wyświetlaniem liczb (również ten sam link co podałem). Na koniec wszystko zapisz w jednym ciągu assemblerowym (czyli w miejsce wywołań...
Witam, to chyba w sumie proste. W języku C jakiekolwiek wyrażenie jest (w sensie logicznym) true jeżeli jest różne od zera . Jeżeli Delphi chce mieć wyrażenie stricte logiczne, musisz po prostu swój warunek zapisać tak, że wyrażenie (całe, które tam jest) jest różne od zera, w Delphi to chyba <>. Pascal jest bardzo mocno sformalizowany, bo powstał...
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.
Witam Panow. A slyszeliscie kiedys o skladaniu wartosci? Dlaczego koniecznie chcecie operowac na jednej zmiennej? Drobny przyklad: jak zapisac liczbe 728 przy uzyciu tylko zmiennych typu byte? Pierwszy bajt = 728 div 256, drugi bajt = 728 mod 256 - i operujemy na dwoch bajtach, a nie na wordzie. Takie rzeczy mozna robic dla dowolnie duzych liczb (limitowane...
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, prościej chyba będzie wczytać to jako string, a potem fukcją do zamiany znaków (nie wiem jaka to w pascalu) zamienić przecinki na kropki i potem już tylko zamienić uzyskany ciąg znaków na liczbę. Pozdrawiam, Krzysztof.
zmień pętlę z 1..5 na 0..4 i zmień liczby 12, 13, 14... w gotoxy na 2, 3, 4 itd.
Witam Rozumiem, że przedstawione rozwiązanie dotyczy zadania nr 4. Chciałem zwrócić uwagę na pomyłkę w kodzie. Funkcja random (X) losuje liczby naturalne z przedziału jakas_zmienna := random (11); gdy to miałby być zakres np. od 1 do 10 wpisujemy jakas_zmienna := random (10)+1; funkcję random można użyć również bez parametrów...
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...
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...
Co do samego kodu: jeśli chcesz wymieszać dane, to nie możesz zapisywać wymieszanych danych w tej samej tablicy z której pobierasz dane (chyba, że kontrolujesz ten proces). Co do drugiej opcji: opis jest chyba wystarczająco jasny, ale skoro to dział "początkujący", to napiszę troche kodu (od ręki, bez testowania): const MAX_P = 8; var ntop: array[1..MAX_P]...
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.
Pod tym adresem znajdują się te (chyba) biblioteki jeśli dobrze to nazywam Dodano po 12 Witam serdecznie zwracam się z prośbą o pomoc w stworzeniu programu w C++ builder i nadmienię tutaj że mam dość mętne pojęcie o programowaniu w tym języku miałem kiedyś jedynie podstawy Pascala. Chodzi mi o programik wyglądający mniej więcej jak poniżej który po...
Ja to zrobiłem tak: [syntax=pascal]program losowanie; uses crt; const N=5; var tablica:array[1..5]of integer; minimum,i,temp:integer; procedure losuj; begin randomize; writeln('Wylosowane liczby to:'); for i:=1 to N do begin tablica[i] := random(100); write(tablica[i]:4); end; end; function min(temp:integer):integer; begin if temp < minimum then...
Witam, Potrzebuje programu a właściwie dopisać część do tego programu który jest poniżej. Chodzi mi o to aby program obliczając y=ax+b podstawiał te wyniki w tabeli co już są tam wpisane tzn.1,2,3,4,5 za 'x' oczywiście i wpisywał jest w tabele w miejsce zgodne z liczbą. A i b podaje użytkownik więc trzeba poprawnie to obliczyc aby dobrze wpisywal. Program:...
Nie udało się, ponieważ to co napisano nie ma nic wspólnego z zadaniem. Kompletnie źle zrozumiałem to zadanie. Teraz rozumiem to tak, że jak podam liczbę kilkucyfrową, to program ma mi sprawdzić, czy każda kolejna cyfra podanej liczby (od lewej strony) jest większa od poprzedniej. Więc teraz mój algorytm wygląda tak: [syntax=pascal]uses crt; var n,dl,i,odp:integer;...
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...
Mam problem muszę napisać program w którym jest narysowana prosta na podstawie dwóch współrzędnych względem osi liczbowej i jej błąd czyli dwie kolejne proste?? Miej więcej ma to wyglądać tak ale jak to w ogóle w pascalu zrobić. Acha współrzędne mają być podane w programie przed kompilacją. Pomocy nie wiem jak to zrobić jak ktoś ma coś takiego to bardzo...
Użyj procedury Str albo funkcji IntToStr . Napisal w pierwszym poscie ,ze nie moze tego uzyc. wydaje mi sie ,ze rozwiazanie ,ktore podalem wyzej spelni oczekiwania nauczciela :P Mozna tez obliczas calosciami jako ze wiemy licza bedzie sie skladac z max 3 cyfr : cyfra=liczba div 100 cyfradruga=(liczba-cyfra*100) div 10 cyfratrzecia=liczba-cyfra*100-cyfradruga...
Witam, Tak to znowu ja :D Jak zwykle probami staram sie dojsc do celu, ale znowu napotkalem przeszkode, napisane przezemnie programy nie dzialaja, gdzies musi kryc sie blad :( Prosil bym o ew. poprawienie :) Pozdrawiam program pola,v2; uses crt var figura: byte; var pole, a, b, h, r: real; begin clrscr TextBackGround(black); clrscr;...
Znaczy się tak. Myślę, że nowego to ja tu dużo nie wnoszę, ale mam taką pielęgnacyjną propozycję ze względu na użycie Goto. :( Bawiąc się Pascalem nauczyłem się to cudo omijać. Ponoć ładniej wygląda kod. :) W związku z powyższym proponuję zamiankę: [syntax=vb] Sub Liczenie_silni_z_N() SILNIA = 1 i = 1 n = -1 While ((n < 0) Or ((n - 1 * Int(n / 1))...
1. Zrób nową formę. 2. Wstaw na formę 3 Edit-y. (Edit1, Edit2, Edit3) 3. Wstaw na formę 1 Memo. (Memo1) 4. Wstawiasz jeden przycisk. (Button1) 5. Zmodyfikuj swoją procedurę liczącą w ten sposób : [syntax=delphi]procedure P(var A: string; B: string; R : integer); //zmiana var J: Word; C, D: string; begin { P(N,N) >> R=Slen } if Length(B) = SLen - R then...
Pomijasz zupełnie kwestię równości zmiennych (a ten random wcale taki losowy nie jest). Zakładając, że nie uczysz się programować (bo od tego jest Pascal), czemu nie skorzystasz z f-cji max() ? Można też to wrzucić do tablicy i posortować. Pisanie z ręki czegoś takiego jest zupełnie bez sensu, ale jeśli musisz to rozrysuj sobie blokowo wszystkie możliwości...
chodzi o to iz liczbę którą on wylicza jest ciągle taka samo nawet przy zmianie s1 oraz liczba ma zakończenie e-34 apowinno być (tak mi isęwydaje) e-9
Nie moge dokończyć algorytmu strassena w pascalu, oto kod źródłowy: !!!!!!!!!!!!!!!!!!!!!BARDZO PROSZĘ O POMOC!!!!!!!!!!!!!!!!!!!!! PROGRAM Strassen; TYPE X1=ARRAY Dodano po 4 Chodzi mi o to żeby np. w takim wierszu: p Dodano po 1 .........poprostu jak zrobić zamiast + żeby była procedura dodawania, zamiast * procedura mnożenia....... :-)
Witam Kod podany przez Łuk_F będzie działał tylko w przypadku liczb całkowitych: byte, word, integer, itd. Operatory mod muszą być typu całkowitego. Jeśli chcesz sprawdzić liczbę rzeczywistą to tak: if (frac(c)) <> 0 then Write ('Liczba NIECALKOWITA') else if (trunc(c) mod 2)=0 then writeln('parzysta')...
Witam. Chciałbym zrobić konwerter jednostek w pascalu ale mam mały problem. Nie wiem jak mam zrobić np. Co masz??? 1- Ohm 2- k Ohm 3- M Ohm i wybieram np 2 Podaj wartosc w k Ohm: i podaje 2 i pokazuje mi wyniki Wynik w Ohm: 2000 Wynik w M Ohm: 0,002 Zeby nie było ze nic nie robie wiec zrobiłęm kawałek Const k=1000; m=1000000; Var wybor:word; jednostka1:word;...
Całkowanie po drodze (bo zastosowana pętla jest niczym innym, jak wzorem na przybliżone wyliczenie wartości całki dowolnej funkcji), czyli przyjęcie za podstawę rozważania przebytej drogi to chyba najprostsze logicznie posunięcie, ale nic nie stoi na przeszkodzie, by podstawą było np. spalone paliwo lub czas. Kwestia to właściwie wyliczać pozostałe...
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...
W miejsce liczb wstaw stosowne zmienne. CZyli przykładowo kod:[syntax=pascal]writeln( 30 * 40)[/syntax]zmieniasz na [syntax=pascal] a1:=30; a2:=40; writeln( a1 * a2)[/syntax]Potem wystarczy tylko zamiast przypisania zrobić pobranie (read). Poeksperymentuj.
Witam Chciałem pobawić się obsługą myszy w Pascalu. Znalazłem to Niedziałający link poprawiłem.
Nie miałeś wogóle zliczania, potrzebna do tego zmienna. Porównywać znaki jest łatwiej jak zrobisz je wielkie - mniejszy zbiór. Może jakoś tak. Trochę pozmieniałem nazwy zmiennych, bo jestem leniwy i nie lubię w tak małych programach dużo pisać. [syntax=pascal] program Spolgloski; uses Crt; var S:string; i,L:integer; begin Write('wpisz zdanie: '); Readln(S);...
Osoba która napisze mi program w pascalu zamieniający liczbę z jednego systemu liczbowego na inny ofiaruje jej 5 punktów.
Program obliczanie pola trójkąta Uses crt; Var a,h,pole:Real; Begin Clrsclr: Write(‘podaj długość boku a’);readln(a); Write(‘podaj wysokośc trójkąta h’);readln(a); Pole:=a*h/2 1) Po napisaniu program w pascalu jest zasada ze tekst ma być spójny bez spacji i ciągły wiec jako znak spacji...
heh Przepraszam za pomyłkę. Jeśli podam jakąś liczbę, to następnie ma się zwiększać o podana liczbę. Np jeśli podam 2 to ma się wyświetlić 2 4 6 8 10 12 i tak do 100
Masz błąd: program fffffffffffff; tu średnik uses crt; Var a: INTEGER; b: INTEGER; c: INTEGER; Begin Write( 'wypisz a ' ); tu ma być writeln ReadLn( a ); WriteLn( 'wypisz b' ); ReadLn( b ); Writeln ( 'wypisz c' ); ReadLn ( c ); End. program w pascalu który będzie liczył sume z pięciu cyfr Liczył sumę 5 cyfr z jednej liczby 5-cyfrowej? czy ogólnie sumę...
Mam jeszcze jeden problem. Jak przejść z jednej procedury do drugiej?? program liczenie_pola; uses crt; var a,b,h,r,w4,decyzja : real; procedure kwad; begin writeln('Podaj dlugosc boku i wcisnij Enter:'); readln(a); writeln(a,'*',a,'=',a*a); end; procedure pros; begin writeln('Podaj dlugosc boku a i wcisnij Enter:');...
Masz tu poprawiony kod kalkulatora. Nie chciało mi się grzebać, więc masz "podłaczone" tylko cyfry 1 i 2, oraz "+","-" i "=". Resztę spokojnie zrobisz sam. :) uses crt; VAR mx,my,mklik:integer; procedure pokazmysz; assembler; asm mov ax, 0001h int 33h end; procedure ukryjmysz; assembler; asm mov ax, 0002h int 33h end; procedure wezmysz(var x,y,butt:integer);...
Pierwsze z brzegu zapytanie do [url=wiki] [syntax=pascal] procedure bubbleSort( A : lista elementów do posortowania ) n = liczba_elementów(A) do for (i = 0; i < n-1; i++) do: if A[i] > A[i+1] then swap(A[i], A[i+1]) end if end for n = n-1 while n > 1 end procedure [/syntax]
Problem dotyczy małego programiku w pascalu. Od niedawna zacząłem się tym interesować i chciałem pisać już coś poważniejszego. Problem dotyczy tego kodu: program imitCalc; uses crt; var a:integer; funkcja:shortint; g:real; h:real; begin a:=1; repeat clrscr; writeln('Witaj w programie imitCalc 1.0!'); writeln('Wci˜nij...
problem tkwi w tym ze nie chce mi wyswietlac wylosowanych liczb przez komputer o oto kod problem tkwi w tym że nie wiem jak wyswietlić wylosowane liczby przez komputer , program loto; const ileLiczb= 6; maxLiczba=49; type liczba=1..maxliczba; tZaklad=array Proszę pamiętać o używaniu znaczników syntax . Opcja Listing kodu . - arnoldziq
hmmm jakos nieradze sobie z tym co mi przesłałes... moze mi pomozesz? Dodano po 56 a moze chociaz ktos wie jak dodac takowe liczy w tym systemie? zamieszczam kod ktory moze ktos potrafi przekształcic? program Dodawanie_Odejmowanie; type tabA=array[1..16] of integer; tabB=array[1..4] of integer; var tab:tabA; tab1:tabB; a,i,j,x,y,z:integer; roz,zypis,dzialanie:integer;...
Jako bajt wpisać samo 01 czy $01 :?: Dla 1 jest to obojętne natomiast dla $80 trzeba by wpisać 128. Sugeruję zapoznać się z podstawami matematyki dotyczącymi konwersji systemów liczbowych.
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...
ma być jedno hasło tylko na stronę główną np szkoła nr 4 w xxxxx wykonał xxxx rok szkolny 2009/2010 a później będę pisał program Dodano po 12 ta 1 ramka to strona tytułowa ma sie ona pokazac tylko raz w programie po czym gdy podasz haslo prawidłowe przejdzie do menu(2 ramka i to menu ma sie powtarzac ) program w11 uses crt; Const var x,a,b,c,s,s1:real;...