ALGORYTMY

ALGORYTMY

ABRAKADABRA

Abrakadabra (Abracadabra, Abraxas, Abrasax) – wyraz pochodzący prawdopodobnie z języka aramejskiego (Abəra kaDavəra) i obecnie nie posiadający znaczenia. Stosuje się go żartobliwie jako określenie wypowiedzi pozbawionej sensu, niezrozumiałej, zagmatwanej. Chociaż kiedyś było inaczej. W czasach starożytnych, średniowieczu i wczesnej nowożytności posługiwano się nim jako formułą magiczną, która odpowiednio wypowiedziana miała moc wpływania na rzeczywistość. Słowo […]

28 grudnia 2017

ALGORYTMY

Algorytm Euklidesa

Algorytm Euklidesa pozwala wyznaczyć największy wspólny dzielnik dwóch dodatnich liczb całkowitych. Jest to jeden z najstarszych znanych algorytmów numerycznych. Euklides zamieścił go ok. 300 roku p.n.e. w „Elementach” – jednym z najsłynniejszych dzieł naukowych ludzkości. PHP

<?php

function algorytm($a,$b) // funkcja pobiera dwie liczby dodatnie
{
    while ($b != 0) { // dopóki b jest różne od zera
    $modulo = $a % $b; // oblicza resztę z dzielenia a przez b
    $a = $b; // a zastępujemy b
    $b = $modulo; // b zastępujemy resztą modulo
    }
    return $a; // jeżeli b = 0 zwraca wynik a
}

echo algorytm(100,15); // podstawiamy dowolne wartości a,b 

/* wspólny dzielnik = 5 */

?>

<?php

function algorytm($a,$b) // funkcja pobiera dwie liczby dodatnie

{

while ($b != 0) { // dopóki b jest różne od zera

$modulo = $a % $b; // oblicza resztę z dzielenia a przez b

$a = $b; // a zastępujemy b

$b = $modulo; // b zastępujemy resztą modulo

}

return $a; // jeżeli b = 0 zwraca wynik a

}

echo algorytm(100,15); // podstawiamy dowolne wartości a,b

/* wspólny dzielnik = 5 */

JAVA

public class Algorytm {
    
    int algorytm(int a, int b) 
    {
        while (b != 0) { 
        int modulo = a%b; 
        a = b; 
        b = modulo; 
        }
        return a;
    }
        
    public static void main(String args[]) 
    {
        Algorytm Euklides = new Algorytm();
        System.out.println(Euklides.algorytm(100,15));
    }

}

public class Algorytm {

int algorytm(int a, int b)

{

while (b != 0) {

int modulo = a%b;

a = b;

b = modulo;

}

return a;

}

public static void main(String args[])

{

Algorytm Euklides = new Algorytm();

System.out.println(Euklides.algorytm(100,15));

}

DELPHI / PASCAL

program Euklides;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var a,b,modulo:integer;
begin
a:=100;
b:=15;
while (b <> 0) do
begin
    modulo:= a mod b;
    a:= b;
    b:= modulo;
end;
Writeln(a);
Readln;
end.

program Euklides;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a,b,modulo:integer;

begin

a:=100;

b:=15;

while (b <> 0) do

begin

modulo:= a mod b;

a:= b;

b:= modulo;

end;

Writeln(a);

Readln;

end.

Więcej informacji na pl.wikipedia.org/wiki/Algorytm_Euklidesa

#algorytmy

27 grudnia 2017

ALGORYTMY

Silnia

Silnią liczby naturalnej n (n!, czytamy „n silnia”) nazywamy iloczyn liczb naturalnych nie większych niż n. Symbol silni pozwala w skrócony sposób zapisywać długie iloczyny liczb.

Wzór:

Dla n=0  n!=1
Dla n>=1 n!=n*(n-1)!

Przykłady:
2! = 1*2 = 2
3! = 1*2*3 = 6
4! = 1*2*3*4 = 24

Wzór:

Dla n=0 n!=1

Dla n>=1 n!=n*(n-1)!

Przykłady:

2! = 1*2 = 2

3! = 1*2*3 = 6

4! = 1*2*3*4 = 24

PHP

<?php

function silnia($n) 
{
    $result = 1;
    for ($i = 1; $i <= $n; $i ++) {
    $result = $result*$i;
    }
    return $result;
}

echo silnia(4); // 1*2*3*4 = 24

?>

<?php

function silnia($n)

{

$result = 1;

for ($i = 1; $i <= $n; $i ++) {

$result = $result*$i;

}

return $result;

}

echo silnia(4); // 1*2*3*4 = 24

JAVA

public class Silnia {
    
    int silnia(int n)
    {
        int result = 1;
        for (int i=1; i<=n; i++) {
        result = result*i;    
        }
        return result;
    }
    
    public static void main(String args[])
    {
        Silnia n = new Silnia();
        System.out.println(n.silnia(4));
    }

}

public class Silnia {

int silnia(int n)

{

int result = 1;

for (int i=1; i<=n; i++) {

result = result*i;

}

return result;

}

public static void main(String args[])

{

Silnia n = new Silnia();

System.out.println(n.silnia(4));

}

DELPHI / PASCAL

program Silnia;
{$APPTYPE CONSOLE}
uses
SysUtils;

var result,i,n: integer;
begin
n:= 4; 
result:=1;
for i:=1 to n do
begin
result:=result*i;
end;
Writeln(IntToStr(result));
Readln;
end.