Jump to content

Search the Community

Showing results for tags 'pascal'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programowanie
    • Delphi
    • C / C++
    • Programowanie grafiki
    • Pascal
    • Inne języki programowania
    • Bazy danych
  • Tworzenie stron internetowych
    • Po stronie serwera
    • Po stronie przeglądarki
  • Inne
    • Projekty
    • Konkursy
    • Beczka
    • Wortal Unit1.pl
    • Śmiechowe tematy
    • Kamery i turystyka internetowa

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Found 4 results

  1. Cześć potrzebuje waszej pomocy, to mega ważna sprawa . mam za zadanie napisać w języku Pascal program który będzie tworzył anagramy słowa 'pora' Całkiem fajny program przydatny nie powiem.. Jednak może mi ktoś to napisać ? Próbuje męcze sie staram i tylko nerwicy sobie narobiłem . Proszee
  2. Zadanie Rozmnażanie pantofelków Był sobie pantofelek. Jak wiadomo, pantofelki rozmnażają się przez podział komórki. Aby pantofelek mógł się rozmnożyć (stworzyć drugiego pantofelka), musi minąć 1 dzień. Po jednym dniu dojrzewania, w każdym kolejnym dniu, pantofelek dzieli się i powstają z niego dwa pantofelki (jeden dojrzały, jeden niedojrzały). Pierwszego dnia jest tylko jeden pantofelek. Drugiego dnia będzie też tylko jeden, gdyż pierwszego dnia był niedojrzały i nie mógł się rozmnożyć. Trzeciego dnia będą już istniały dwa pantofelki (jeden dojrzały i jeden niedojrzały), gdyż ten pierwszy się rozmnoży. Po czwartym dniu będą istnieć 3 pantofelki, po piątym 5, itd. Zakładając, że pantofelki nigdy nie umierają, oblicz, ile będzie pantofelków po upłynięciu n dni. Wejście W pierwszej linii wejścia znajduje się jedna liczba całkowita d (1 <= d <= 100), która oznacza liczbę zestawów danych. Każdy zestaw składa się z jednej liczby całkowitej n (1 <= n <= 45), oznaczającej liczbę dni, które upłynęły. Wyjście Na wyjściu należy dla każdego zestawu danych wypisać liczbę pantofelków po upłynięciu odpowiedniej liczby dni. Przykład Wejście: 4 5 6 7 8 Wyjście: 5 8 13 21 program Project1; var d,n:longint; function Fib(n:integer):longint; begin if n=1 or n=2 then Fib:=1 else if n=0 then Fib:=0 else if n>2 then Fib:=(Fib(n-1) + Fib(n-2)); end; begin readln(d); begin readln(n); Writeln(Fib(n)); end; readln; end.
  3. Próbuję rozwiązać zadanie, niestety bez skutku. Tu link do zadania: http://ifotos.pl/z/wshaara Kod program zadanie; var k:integer; m:integer; x:real; e:real; s:real; i:real; function silnia(k:integer):integer; begin if k=0 then silnia:=1 else silnia:=k*silnia(k-1); end; function sil(m:integer):integer; begin if m=0 then sil:=1 else sil:=m*sil(m-1); end; begin s:=0; k:=0; m:=2*k; repeat writeln('podaj liczbę z przedziału (-1;1)'); read(x); until abs(x)<1; writeln('podaj dokładność'); read(e); repeat s:=s+((sil(m)*(Exp((2*k+1)*Ln(x))))/((Exp(k*Ln(4)))*(Exp(2*Ln(silnia(k))))*(2*k+1))); k:=k+1; m:=2*k; until (sil(m)*(exp((2*k+1)*ln(x))))/((exp(k*ln(4)))*(exp(2*ln(silnia(k))))*(2*k+1))<e; i:=Exp(-1*Ln(sin(x))); writeln('wynik przybliżony', s); writeln('wynik dokładny', i); writeln('jeden', silnia(k)); writeln('dwa', sil(m)); read(x); end.
  4. Witam, Potrzebuje dodac do programu grafike. Polega to na dodaniu 2 łopatek na wzór gry pinball oraz grzybków zliczajacych punkty. Kwota do ustalenia.
×
×
  • Create New...