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.
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ć.
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))...
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...
kalkulator silnia silnia różnica silnia funkcja
tyrystory zamienniki lodówka whirlpool niska temperatura zamiana pamieci
technika radiowa technika radiowa
Łuszczenie lakieru samochodowego – jak zatrzymać proces i czy wystarczy lakier bezbarwny? Naprawa łuszczącego się lakieru bezbarwnego – cieniowanie czy taśma? Spray 1K/2K, technika blendingu