Skocz do zawartości

Przeszukaj forum

Pokazywanie wyników dla tagów 'pascal'.

  • Szukaj wg tagów

    Wpisz tagi, oddzielając przecinkami.
  • Szukaj wg autora

Typ zawartości


Forum

  • 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

Szukaj wyników w...

Znajdź wyniki, które zawierają...


Data utworzenia

  • Rozpocznij

    Koniec


Ostatnia aktualizacja

  • Rozpocznij

    Koniec


Filtruj po ilości...

Data dołączenia

  • Rozpocznij

    Koniec


Grupa


Znaleziono 5 wyników

  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.
  5. Za zadanie mam napisać program w Turbo Pascal, który zapyta się o inicjały (podam np. WR) i wygeneruje te inicjały w postaci znaków tak, że litera W jest zbudowana z liter W, a litera R zbudowana z liter R, dodatkowo te inicjały mają być otoczone ramką zbudowaną ze znaków gwiazdki "*". Proszę o pomoc w rozwiązaniu zadania. Pozdrawiam.
×
×
  • Utwórz nowe...