Implementazioni di algoritmi/Calcolo della Pasqua: differenze tra le versioni

 

==[[w:Basic|Basic]]==

10 'PASQUA.BAS

20 'Calcolo data della pasqua calendario gregoriano

200 Z$ = INKEY$: IF Z$ = "" THEN 200 ELSE ZZ$ = MID$(Z$, 2, 1): S% = ASC(Z$)

210 IF S% = 27 THEN SYSTEM ELSE 60

 

==[[JavaScript]]==

var a;

var b;

mese=4;

}

 

==[[w:Matlab|Matlab]]==

function [day,month]=Easter(Y)

 

month=4;

end

 

==[[C]]==

 

#include <stdio.h>

}

 

 

==[[Java]]==

import java.util.Calendar;

import java.util.Date;

}

}

 

==[[Prolog]]==

Questa versione è reversibile, cioè permette indifferentemente di calcolare il giorno della Pasqua dato l'anno, oppure gli anni in cui la Pasqua è caduta in un certo giorno.

pasqua(Anno,Mese,Giorno):-

numero(Anno,1600,2599),

mn(23,26,1).

mn(24,25,1).

 

==[[w:Delphi|Delphi]]==

unit UPasqua;

end.

 

==[[w:TSQL|TSQL]]==

CREATE FUNCTION [dbo].[CalcolaPasqua]

(

return @pasqua

END

 

 

==[[w:SQL|SQL]]==

declare a decimal;

declare b decimal;

set mese=4;

end if;

 

==[[PHP]]==

function DataPasqua ($Y) {

}

 

==[[Python]]==

def pasqua(anno):

if anno<1583 or anno>2499: return None

giorno-=7

return giorno, mese, anno

 

==PL/SQL==

DECLARE

a DECIMAL;

DBMS_OUTPUT.put_line( 'Pasqua -> ' || TO_CHAR( pasqua, 'dd/mm/rrrr' ) );

END;

 

==BASH==

#!/bin/bash

 

fi

echo $data

 

==Perl==

#!/usr/bin/perl

use integer;

exit(0);

 

 

==[[w:Visual Basic|Visual Basic]]==

Private Function CalcolaPasqua(Anno As Integer) As Date

Dim a As Double

CalcolaPasqua = dateserial(Anno, mese, giorno)

Cioè il valore di ritorno è il nome della funzione stessa.

 

== COBOL ==

== C# ==

 

public class EasterCalculation

{

}

}

 

== Altri progetti ==