Programy obliczania potęgi (naturalnej) liczby całkowitej możesz znaleźć pod następującymi linkami: http://www.komputery-internet.net/turbo/... http://4programmers.net/Turbo_Pascal/Art...
uses crt; var wynik:integer; x,y:integer; begin wynik:=1; write('Podaj z jakiej liczby silnia ? :'); readln(x); for y:=1 to x do wynik:=wynik*y; writeln('Silnia tej liczby to :',wynik); end. moze bedzie trzeba wziasc wynik innego typu zmiennych gdy silnia bedzie za duza.
1) iteracyjnie: Function Silnia(value: Word): LongInt; var i: Word; result: LongInt; begin result := 1; {Jeżeli value = 0 to pętla nie jest wykonywana - 0! = 1} if value > 0 then for i := 1 to value do result := result * i; Silnia := result; end; 2) rekurencyjnie: Function Silnia(value: Word): LongInt; begin Silnia := 1; if value > 1 then Silnia :=...
1. Silnia 2. Sito Erystotanesa
Czy może ktoś napisać funkcję rekurencyjną na silnie w Turbo Pascalu, ale nie obliczającą silnie tylko po podaniu silni ma obliczać dla jakiej liczby jest to silnia. Np. my podajemy 120 a program ma obliczyć, że to silnia liczby 5.(czyli ma podać wynik "5"). Podobna sytuacja z ciągiem fibonaciego, ciągiem arytmetycznym i geometrycznym. Proszę o pomoc.
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))...
Witam. Potrzebuję pomocy. Chodzi mi o to, że w Pascalu robię program który oblicza silnię, ale gdy liczba ta jest większa od wielkości zmiennej longint pokazuje się error. Jak mogę zastąpić tą zmienną? Z góry dziękuję.
Basic jest najprostszy, możesz na nim nauczyć się podstaw. Później np.: - VisualBasic - ma więcej możliwości, - Pascal - silnie zwązany z liczeniem i operacjami matematycznymi, - C lub C++ - podstawa na prawie wszystkich studiach, uważam, że warto umieć.
Jak napisać algorytm rekurencyjnie i iteracyjnie obliczający silnię w Turbo Pascalu? -lista kroków -schemat blokowy -kod w turbo pascalu Dobrze by było jakby jeszcze każda instrukcja była opisana teorią. Taką mam do napisania pracę kontrolną z programowania na informatyce i szukam prawidłowej pomocy.Po napisaniu programu muszę zrobić zrzut ekranu obliczającego...
Nie znam mozliwości w tym zakresie Bascoma. Jedno jednak jest pewne. Każdy program tego typu może działać sekwencyjnie. Oznacza to, że wywoływanie kolejnych procedur w procedurze działać musi. Jest jednak tzw granica zagnieżdzeń. Może ona wynika z możliwości samego kompilatora (programu tłumaczącego - w tym wypadku Twoim nie sądzę aby tak było), albo...
Witam, napisałem program który ma wyświetlać piramidę pascala do n podanego przez użytkownika, lecz problem tkwi w tym że od 12 wyrazu program wyświetla jakieś chore wyniki nawet na minusie i nie wiem co dokładnie tu nie gra, chciałbym również jakąś prosta metodę na posortowanie całej piramidy by wszystko było w miarę równo, próbowałem coś z "strlen()"...
Od razu lepiej ;) Oto moja propozycja programu (wydaje mi sie prostszy) PS: nie wrzucałem pola kwadratu i trójkąta bo z tym już sobie poradzisz ;) var a,b,c,s,w:real; znak,i,n:byte; d:longint; tab:array[1..100]of real; procedure DODAWANIE; begin w:=0; writeln('obliczenie wyrazenia a+b+c'); write('a='); readln(a);...
no teraz działa jak trzeba, dzięki ci wielkie i jeszcze mam takie malutkie pytanko, chodzi mi o s1 ja przyjałem to jako wartość poprzedniego przybliżenia i wpisałem 5 by sprawdzić warunek pętli while czy zadziała, i tak jeśli zamiast liczny w s1 wstawiłbym suma czy to coś zmieni i w ogóle czy to ma sens?? i jeszcze ra zwiellkie dzięki za pomoc :) Dodano...
Int to typ podstawowy danej jednostki arytmetycznej w przypadku procesorów 32-bitowych są to 32 - bity (Pascalem się nie zajmujemy), a że weszły niedawno 64 - bitowe to trochę się namieszało... A long jest to typ rozszerzony czyli 2 * 32 bity daje nam 64. Podsumowując zgadzam się z Tobą, C ich nie precyzuje, ale zgodzisz sie ze mną, że na Pentium IV...
silnia magnetyczny kalkulator silnia silnia różnica
pierwsze ładowanie laptopa klimatyzacja panel temperatura telewizora
Renault Mascott ZD3 nie odpala z rozrusznika, startuje na Plaka i na pych – diagnostyka Common Rail Nieregularne, skokowe obracanie się bębna pralki - przyczyny