Informatyka(r)

• • • rok szkolny 2020/21
    • algorytmy
    • Przykłady zadań
    • C++ zadania
    • Arkusze (n)
    • Arkusze (s)
    • zadania
    • stara wersja
    • Algorytmy w języku Python

• • • EXCEL

    • Krzywe w Excelu

      Modelowanie w EXCEL - (równania różniczkowe) (PDF; 1 MB)

      Fraktal Fibonacciego (RAR; 176 KB)	67
      Zasłona (PDF; 329 KB)	70
      Funkcja (RAR; 241 KB)	71
      Wilki i zające (PDF; 195 KB)	83
      LPG-PB95 (RAR; 376 KB)	84
      oscypki (PDF; 382 KB)	85
      Sprzedaż choinek (PDF; 237 KB)	88
      Akademik (RAR; 315 KB)	90
      Kontrola PESEL (RAR; 104 KB)
      Pesele (RAR; 317 KB)	91
      Smok (PDF; 47 KB)
      Figura zad. 5 2006 (stara matura R) (PDF; 351 KB)
      Miejsca zerowe (PDF; 391 KB)

      
       

  • Formularze

    • Sprawdzian EXCEL (RAR; 267 KB)

      v1
    • Sprawdzian EXCEL (RAR; 1 MB)

      v2
    • Sprawdzian EXCEL (PDF; 643 KB)

      v3
    • Sprawdzian EXCEL (PDF; 975 KB)

      v4
    • Sprawdzian EXCEL (PDF; 856 KB)

      v5
    • Sprawdzian EXCEL (RAR; 615 KB)

      v6

  • • Access

    • zadania z pojedynczą tablicą. Do rozwiązania zarówno w ACCESS jak i EXCEL
      wszystko o uczniach (RAR; 24 KB)	wyszukiwanie informacji w pojedynczej tabeli
      90.studenci (RAR; 291 KB)	przykład (RAR; 161 KB)
      92.olimpiady (RAR; 174 KB)
      93.podróże (RAR; 245 KB)
      	Relacje między bazami
      103.RTG (RAR; 359 KB)	przykład (RAR; 120 KB)
      Konkurs telewizyjny (RAR; 423 KB)	przykład (RAR; 51 KB)
      Wideo Na życzenie (RAR; 368 KB)
      107.Loty (RAR; 244 KB)
      108.Stacje Benzynowe (RAR; 262 KB)
      109.Urządzenia budowlane (RAR; 293 KB)
      110.Gminy w Polsce (RAR; 783 KB)
      111.Malware (RAR; 407 KB)
      2012.6.Tablic (RAR; 301 KB)e
      2015 6. (RAR; 249 KB)FormułaI

  • • Zbiory zadań

    •  

      Zbiór zadań -CKE

      Zbior zadan (PDF; 8 MB)	dane (ZIP; 1 MB)	rozwiazania (ZIP; 10 MB)

       

  • • ZRODŁA do EXCELA (VBA)

    • Function ODwaWiecej(liczba As Integer) As Integer

          ODwaWiecej = liczba + 2
      End Function
      
      Function Inicjaly(imie As String, nazwisko As String) As String
          Inicjaly = Left(imie, 1) & Left(nazwisko, 1)
      End Function
      
      Function Plec(imie As String) As String
          If Right(imie, 1) = "a" Then
              Plec = "kobieta"
          Else
              Plec = "mężczyzna"
          End If
      End Function
      
      
      Function cyfry(x As Long) As Long
      ' suma cyfr danej liczby x
      Dim sc, a As Long
      sc = 0
      While x > 1
      a = x Mod 10
      sc = sc + a
      x = (x - a) / 10
      Wend
       cyfry = sc
      End Function
      

       

      Function CyfrySuma(Dana As String) As Integer

          CyfrySuma = 0
          For i = 1 To Len(Dana)
              CyfrySuma = CyfrySuma + Val(Mid(Dana, i, 1))
          Next
      End Function