// Rekurencyjne obliczanie silni
//------------------------------
// (C)2026 mgr Jerzy Wałaszek
// I LO w Tarnowie

#include <iostream>

using namespace std;

unsigned long long silnia(int n)
{
  if(n < 2)
    return 1;
  else
    return n * silnia(n - 1);
}

// Program główny
//---------------

int main()
{
  int n;

  cout << "Program oblicza rekurencyjnie silnie z liczby n\n"
          "-----------------------------------------------\n"
          "  (C)2026 mgr Jerzy Walaszek  I LO w Tarnowie\n\n"
          "n (od 1 do 20) = "; cin >> n;
  cout << endl << n << "! = " << silnia(n)
       << endl << endl
       << "Nacisnij Enter...";
  system("pause");
  return 0;
}

// Rekurencyjne obliczanie silni
//------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I LO w Tarnowie

program silnia_rek;

function silnia(n : cardinal) : qword;
begin
  if n < 2 then
    silnia := 1
  else
    silnia := n * silnia(n - 1);
end;

var
  n : cardinal;

begin
  writeln('Program oblicza rekurencyjnie silnie z liczby n');
  writeln('-----------------------------------------------');
  writeln('  (C)2005 mgr Jerzy Walaszek  I LO w Tarnowie');
  writeln;
  write('n (od 1 do 20) = '); readln(n);
  writeln;
  writeln(n,'! = ',silnia(n));
  writeln;
  write('Nacisnij Enter...'); readln;
end.

' Rekurencyjne obliczanie silni
'------------------------------
' (C)2026 mgr Jerzy Wałaszek
' I LO w Tarnowie

FUNCTION silnia(n AS INTEGER) AS ULONGINT
  IF n < 2 THEN
    RETURN 1
  ELSE
    RETURN n * silnia(n - 1)
  END IF
END FUNCTION

' Program główny
'---------------

DIM AS INTEGER n

PRINT "Silnia z n"
PRINT "----------"
PRINT "(C)2026 mgr Jerzy Walaszek"
PRINT
INPUT "n (od 1 do 20) = "; n
PRINT
PRINT n; "! = "; silnia(n)
PRINT
PRINT
PRINT "Nacisnij Enter..."
SLEEP
END

# Rekurencyjne obliczanie silni
#------------------------------
# (C)2026 mgr Jerzy Wałaszek
# I LO w Tarnowie

def silnia(n):
    if n < 2:
        return 1
    else:
        return n * silnia(n - 1)

# Program główny
#---------------

print("Program oblicza rekurencyjnie silnię z liczby n")
print("-----------------------------------------------")
print("          (C)2026 mgr Jerzy Wałaszek")
print()
n = int(input("n = "))
print()
print(n,"! = ",silnia(n),sep="")
print()
print()
input("Naciśnij Enter...")

// Sortowanie przez scalanie
//--------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

#include <cmath>
#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <time.h>

using namespace std;

const int N = 20; // Liczebność zbioru.

int d[N],p[N];

// Procedura sortująca
//--------------------

void MergeSort(int i_p, int i_k)
{
  int i_s,i1,i2,i;

  i_s = (i_p + i_k + 1) / 2;
  if(i_s - i_p > 1)
    MergeSort(i_p, i_s - 1);
  if(i_k - i_s > 0)
    MergeSort(i_s, i_k);
  i1 = i_p; i2 = i_s;
  for(i = i_p; i <= i_k; i++)
    p[i] = ((i1 == i_s) ||
            ((i2 <= i_k) &&
             (d[i1] > d[i2])))
            ? d[i2++] : d[i1++];
  for(i = i_p; i <= i_k; i++)
    d[i] = p[i];
}

// Program główny
//---------------

int main()
{
  int i;

  cout << " Sortowanie przez scalanie\n"
          "---------------------------\n"
          "  (C)2005  Jerzy Walaszek\n\n"
          "Przed sortowaniem:\n\n";

// Najpierw wypełniamy tablicę d[]
// liczbami pseudolosowymi, a następnie
// wyświetlamy jej zawartość

  srand((unsigned)time(NULL));

  for(i = 0; i < N; i++)
    d[i] = rand() % 100;
  for(i = 0; i < N; i++)
    cout << setw(4) << d[i];
  cout << endl << endl;

// Sortujemy

  MergeSort(0,N-1);

// Wyświetlamy wynik sortowania

  cout << "Po sortowaniu:\n\n";
  for(i = 0; i < N; i++)
    cout << setw(4) << d[i];
  cout << endl << endl;
  system("pause");
  return 0;
}

// Sortowanie Przez Scalanie
//--------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// w Tarnowie

program Merge_Sort;

const N = 20; // Liczebność zbioru.

var
  d,p : array[1..N] of integer;

// Procedura sortująca
//--------------------
procedure MergeSort(i_p,i_k : integer);
var
  i_s,i1,i2,i : integer;
begin
  i_s := (i_p + i_k + 1) div 2;
  if i_s - i_p > 1 then
    MergeSort(i_p, i_s - 1);
  if i_k - i_s > 0 then
    MergeSort(i_s, i_k);
  i1 := i_p; i2 := i_s;
  for i := i_p to i_k do
    if (i1 = i_s) or
       ((i2 <= i_k) and
        (d[i1] > d[i2])) then
    begin
      p[i] := d[i2]; inc(i2);
    end
    else
    begin
      p[i] := d[i1]; inc(i1);
    end;
  for i := i_p to i_k do
    d[i] := p[i];
end;

// Program główny
//---------------

var
  i : integer;
begin
  writeln(' Sortowanie przez scalanie ');
  writeln('---------------------------');
  writeln('  (C)2005  Jerzy Walaszek  ');
  writeln;

// Najpierw wypełniamy tablicę d[]
// liczbami pseudolosowymi, a następnie
// wyświetlamy jej zawartość

  randomize;
  for i := 1 to N do
    d[i] := random(100);
  writeln('Przed sortowaniem:');
  writeln;
  for i := 1 to N do
    write(d[i] : 4);
  writeln;
  writeln;

// Sortujemy

  MergeSort(1,N);

// Wyświetlamy wynik sortowania

  writeln('Po sortowaniu:');
  writeln;
  for i := 1 to N do
    write(d[i] : 4);
  writeln;
  writeln;
  writeln('Nacisnij Enter...');
  readln;
end.

' Sortowanie Przez Scalanie
'--------------------------
' (C)2012 Jerzy Wałaszek
' I Liceum Ogólnokształcące
' w Tarnowie

CONST N = 20 ' Liczebność zbioru.

DIM SHARED d(1 TO N) AS INTEGER
DIM SHARED p(1 TO N) AS INTEGER

DECLARE SUB MergeSort(_
            BYVAL i_p AS INTEGER,_
            BYVAL i_k AS INTEGER)

DIM i AS INTEGER

PRINT " Sortowanie przez scalanie "
PRINT "---------------------------"
PRINT "  (C)2005  Jerzy Walaszek  "
PRINT

' Najpierw wypełniamy tablicę d()
' liczbami pseudolosowymi, a następnie
' wyświetlamy jej zawartość

RANDOMIZE TIMER
FOR i = 1 TO N
  d(i) = INT(RND * 100)
NEXT
PRINT "Przed sortowaniem:"
PRINT
FOR i = 1 TO N
  PRINT USING "####"; d(i);
NEXT
PRINT
PRINT

' Sortujemy

MergeSort 1, N

' Wyświetlamy wynik sortowania

PRINT "Po sortowaniu:"
PRINT
FOR i = 1 TO N
  PRINT USING "####"; d(i);
NEXT
PRINT
PRINT
PRINT "Nacisnij Enter..."
SLEEP
END

' Procedura sortująca
'--------------------
PUBLIC SUB MergeSort(_
           BYVAL i_p AS INTEGER,_
           BYVAL i_k AS INTEGER)

  DIM AS INTEGER i_s,i1,i2,i

  i_s = (i_p + i_k + 1) \ 2
  IF i_s - i_p > 1 THEN
    MergeSort i_p, i_s - 1
  END IF
  IF i_k - i_s > 0 THEN
    MergeSort i_s, i_k
  END IF
  i1 = i_p: i2 = i_s
  FOR i = i_p TO i_k
    IF (i1 = i_s) OR _
       ((i2 <= i_k) AND _
        (d(i1) > d(i2))) THEN
      p(i) = d(i2)
      i2 += 1
    ELSE
      p(i) = d(i1)
      i1 += 1
    END IF
  NEXT
  FOR i = i_p TO i_k
    d(i) = p(i)
  NEXT
END SUB

# Sortowanie Przez Scalanie
#--------------------------
# (C)2026 Jerzy Wałaszek

import random

n = 20 # Liczebność zbioru.

d = [random.randrange(100) for i in range(n)]
p = [None] * n

# Procedura sortująca
#--------------------
def MergeSort(i_p,i_k):
    i_s = (i_p + i_k + 1) // 2
    if i_s - i_p > 1:
        MergeSort(i_p, i_s - 1)
    if i_k - i_s > 0:
        MergeSort(i_s, i_k)
    i1 = i_p
    i2 = i_s
    for i in range(i_p,i_k+1):
        if (i1 == i_s) or \
           ((i2 <= i_k) and \
            (d[i1] > d[i2])):
            p[i] = d[i2]
            i2 += 1
        else:
            p[i] = d[i1]
            i1 += 1
    for i in range(i_p,i_k+1):
        d[i] = p[i]

# Program główny
#---------------

print(" Sortowanie przez scalanie ")
print("---------------------------")
print("  (C)2026  Jerzy Wałaszek  ")
print()
print("Przed sortowaniem:")
print()
for i in range(n):
  print("%4d" % (d[i]), end="")
print()
print()

# Sortujemy

MergeSort(0, n-1)

# Wyświetlamy wynik sortowania

print("Po sortowaniu:")
print()
for i in range(n):
  print("%4d" % (d[i]), end="")
print()
print()
input("Naciśnij Enter...")

<html>
  <head>
  </head>
  <body>
    <form style="BORDER-RIGHT: #ff9933 1px outset;
                 PADDING-RIGHT: 4px; BORDER-TOP: #ff9933 1px outset;
                 PADDING-LEFT: 4px; PADDING-BOTTOM: 1px;
                 BORDER-LEFT: #ff9933 1px outset; PADDING-TOP: 1px;
                 BORDER-BOTTOM: #ff9933 1px outset;
                 BACKGROUND-COLOR: #ffcc66" name="frmmergesort">
      <h3 style="text-align: center">Sortowanie Przez Scalanie</h3>
      <p style="TEXT-ALIGN: center">
        (C)2012 mgr Jerzy Wałaszek - I LO w Tarnowie
      </p>
      <hr>
      <p style="TEXT-ALIGN: center">
        <input onclick="main()" type="button" value="Sortuj" name="B1">
      </p>
      <p id="t_out" style="TEXT-ALIGN: center">...</p>
    </form>

<script language=javascript>

// Sortowanie Przez Scalanie
//--------------------------------------------------------
// (C)2012 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//--------------------------------------------------------

var N = 20; // Liczebność zbioru.
var d = new Array(N);
var p = new Array(N);

// Procedura sortująca
//--------------------

function MergeSort(i_p, i_k)
{
  var i_s,i1,i2,i;

  i_s = Math.floor((i_p + i_k + 1) / 2);
  if(i_s - i_p > 1) MergeSort(i_p, i_s - 1);
  if(i_k - i_s > 0) MergeSort(i_s, i_k);
  i1 = i_p; i2 = i_s;
  for(i = i_p; i <= i_k; i++)
    p[i] = ((i1 == i_s) || ((i2 <= i_k) && (d[i1] > d[i2]))) ? d[i2++] : d[i1++];
  for(i = i_p; i <= i_k; i++) d[i] = p[i];
}

function main()
{
  var i,t;

  // Najpierw wypełniamy tablicę d[] liczbami pseudolosowymi

  for(i = 0; i < N; i++) d[i] = Math.floor(Math.random() * 100);
  t = "Przed sortowaniem:<BR><BR>";
  for(i = 0; i < N; i++) t += d[i] + " ";
  t += "<BR><BR>";

  // Sortujemy

  MergeSort(0,N-1);

  // Wyświetlamy wynik sortowania

  t += "Po sortowaniu:<BR><BR>";
  for(i = 0; i < N; i++) t += d[i] + " ";
  document.getElementById("t_out").innerHTML = t;
}

</script> 

  </body>
</html>