Question

Proszę o programy w JEZYKU PASCAL!

1.Ciąg liczbowy 1 1 2 3 5 8 13 21 34 55 89 ... nazywamy ciągiem Fibonacciego, zaś liczby tego ciągu liczbami Fibonacciego. W ciągu tym pierwsze dwa wyrazy są równe jeden, każdy następny wyraz otrzymujemy sumując dwa poprzednie. Napisz program sprawdzający czy liczba naturalna n jest liczbą Fibonacciego.

1.Niech Fn oznacza n-tą w kolejności liczbę Fibonacciego. Napisz program, który dla danej liczby całkowitej n wyznaczy najmniejszą możliwą liczbę pierwszą, która jest nie mniejsza niż Fn.

Answer 1

Jest problem. Jutro poprawie dzisiaj taką wersje zamieszczam.

Żeby pętla REPEAT mogła być zakończona warunek musi być Prawdziwy. (warunek masz w until)

W aktualnej wersji program jeśli znajdzie liczbę z ciągu ciągle wywala komunikat, że cyfra jest w ciągu aż zakończysz program.

Odnośnik do przekleja.[ Dla modów niestety próbowałem przez załącznik ale wyświetliło się nie poprawny typ plików{ inaczej *.pas, *.bak,*.exe}]

http://www.przeklej.pl/plik/ciag2-pas-0023hq24u1dc

http://www.przeklej.pl/plik/ciag2-exe-0023hq20o7tb

http://www.przeklej.pl/plik/ciag2-bak-0023hq1t740i II

A tu jest kod skopiowany z pascala to samo co masz w tych plikach.

program ciag;uses crt;var n,a,b,c,d  :integer;beginclrscr;writeln('Podaj liczbe');readln(n);if n<0        then                writeln('Zla cyfre wprowadziles')        else                begin                a:=0;                b:=1;                c:=0;                if n=a                        then                                writeln('Liczba,',' ',n,' ','jest w ciagu')                        else                if n=b                        then                                writeln('Liczba,',' ',n,' ','jest w ciagu')                        else                        a:=a+1;                        c:=a+b ;                        b:=c;                repeat                if n=b                        then                                writeln('Liczba,',' ',n,' ','jest w ciagu')                                else                                c:=a+b;                                a:=b;                                b:=c;
until c<n ;                writeln('Liczba,',' ',n,' ','nie jest w ciagu') ;                readln;        end;        end.