Υπολογισμός Πάσχα.

Τα δικά μας προγράμματα!

Συντονιστής: Developers

Άβαταρ μέλους
Darth_Cotsos
ZX power
ZX power
Δημοσιεύσεις: 219
Εγγραφή: Κυρ Σεπ 06, 2009 9:28 pm

Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό Darth_Cotsos » Σάβ Ιαν 07, 2017 12:03 am

Στη συνέχεια της ενασχόληση με τους C crosscompilers για Z80 & 6502 (Z88DK & CC65) έγινε και το παρακάτω προγραμματάκι για τον υπολογισμό του Πάσχα.
Δείτε το και στα δύο μηχανήματα, Commodore 64 & ZX Spectrum. ;)

pasxac64.png


pasxazx.png


Κώδικας: Επιλογή όλων

 //Υπολογισμός Πάσχα για Commodore 64 & ZX Spectrum
// compile cc65 pasxa.c or zcc +zx -lndos -lm -create-app pasxa.c
 
#include <stdio.h>
#include <conio.h>

 int main(void)
   {
     int FD,R19,tmp,d,m,Y,tA,tB,tC,tD,tE;
     Y=0;
         clrscr();
         printf("Orthodox Easter Caculator for Commodore 64 & ZX Spectrum\n");
         printf("Please give the year: ");
         scanf ("%d",&Y);
         FD= Y/100;
         R19= Y % 19;
         tA = ((255-11*R19) % 30)+21;
         tB = (tA-19) % 7;
         tC = (40-FD) % 7;
         tmp = Y % 100;
         tD = (tmp + tmp/4) % 7;
         tE = ((20 -tB - tC - tD) % 7)+1;
         d = tA +tE;
         tmp = 10;
         if (Y > 1600)
            tmp = tmp+FD-16-((FD-16)/4);
         d = d+tmp;
         
         if (d>61)
            {
             d=d-61;
             m=5;
             }
         else
          if (d>31)
             {
               d=d-31;
               m=4;
             
              }
            else
              m=3;
             
         printf("%d/%d\n",d,m);       
         printf("\nwww.retrounboxers.gr \nProgram by Darth_Cotsos\n");
      }


pasxa.zip
Δεν έχετε τα απαραίτητα δικαιώματα για να δείτε τα συνημμένα αρχεία σε αυτήν τη δημοσίευση.
You don't know the power of the 8bit side!!!

RetroUnboxers.gr

Άβαταρ μέλους
VincentGR
Amiganoid
Amiganoid
Δημοσιεύσεις: 1964
Εγγραφή: Τρί Απρ 03, 2012 1:18 pm
Τοποθεσία: Piraeus
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό VincentGR » Σάβ Ιαν 07, 2017 2:08 pm

Με κούφανες δικέ μου :provlimatismenos


ΥΓ. Στο σκέτο αρχείο pasxa, προσθέστε τη κατάληξη .D64 :!!
Εικόνα FAN
http://partsfromthepast.blogspot.gr/
To blit, or not to blit?

Άβαταρ μέλους
alex76gr
Reviewer
Reviewer
Δημοσιεύσεις: 887
Εγγραφή: Τρί Απρ 03, 2012 11:22 pm
Τοποθεσία: Πειραιάς
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό alex76gr » Κυρ Ιαν 08, 2017 7:42 pm

:shock: :shock: :shock:

Άβαταρ μέλους
geoanas
Commodore-άς
Commodore-άς
Δημοσιεύσεις: 184
Εγγραφή: Δευ Νοέμ 30, 2009 10:09 pm
Τοποθεσία: Lot of Gyros
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό geoanas » Δευ Ιαν 09, 2017 2:43 pm

Καλόοοοοοο!!!

Άβαταρ μέλους
geoanas
Commodore-άς
Commodore-άς
Δημοσιεύσεις: 184
Εγγραφή: Δευ Νοέμ 30, 2009 10:09 pm
Τοποθεσία: Lot of Gyros
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό geoanas » Πέμ Φεβ 23, 2017 7:38 pm

Έχω κάποια νέα που αφορούν το συγκεκριμένο πρόγραμμα, αλλά και τις υπόλοιπες releases για C64 του ZEUS Group και όχι μόνο...
Ο φίλος μου bugjam (με λίγη βοήθεια σε μεταφράσεις και στοιχεία από εμένα) και με την συγκατάθεση του Κώστα, προχώρησε σε μια σειρά από καταχωρήσεις μέσα στην CSDb

Έτσι λοιπόν αναλυτικά, έχουμε:

Οι Releases...

Greek Charset
http://csdb.dk/release/?id=153807

Routing for Topographers
http://csdb.dk/release/?id=153810

Electronic Schematics Designer
http://csdb.dk/release/?id=153808

Orthodox Easter Calculator
http://csdb.dk/release/?id=153809

...και οι άνθρωποι, πίσω από αυτά...

ZEUS GROUP
http://csdb.dk/group/?id=9042

zx_jim
http://csdb.dk/scener/?id=29508

zoro
http://csdb.dk/scener/?id=29509

Darth_Cotsos
http://csdb.dk/scener/?id=29499

Ένας μικρός, απειροελάχιστος φόρος τιμής στους zx_jim και zoro ...

Άβαταρ μέλους
VincentGR
Amiganoid
Amiganoid
Δημοσιεύσεις: 1964
Εγγραφή: Τρί Απρ 03, 2012 1:18 pm
Τοποθεσία: Piraeus
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό VincentGR » Πέμ Φεβ 23, 2017 8:04 pm

Μπράβο ρε Γιώργη, και στον Κώστα.
Οι άλλοι άφησαν και αυτοί το λιθαράκι τους :(

Δυστυχώς δεν μπορώ να κάνω upvote τον Κώστα γιατί το CS έχει το καθεστώς της Nectarine.
Δεν δέχονται registrations αν δεν είσαι καλλιτέχνης.
Εικόνα FAN
http://partsfromthepast.blogspot.gr/
To blit, or not to blit?

Άβαταρ μέλους
Darth_Cotsos
ZX power
ZX power
Δημοσιεύσεις: 219
Εγγραφή: Κυρ Σεπ 06, 2009 9:28 pm

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό Darth_Cotsos » Παρ Φεβ 24, 2017 1:00 am

Ευχαριστούμε πολύ Γιώργο!!! :!!
You don't know the power of the 8bit side!!!

RetroUnboxers.gr

Άβαταρ μέλους
geoanas
Commodore-άς
Commodore-άς
Δημοσιεύσεις: 184
Εγγραφή: Δευ Νοέμ 30, 2009 10:09 pm
Τοποθεσία: Lot of Gyros
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό geoanas » Παρ Φεβ 24, 2017 7:17 am

Εγώ ευχαριστώ Κώστα :-)

Vince
Ναι, είναι λίγο μυστήριοι στις εγγραφές, αλλά δεν χάνεις τίποτα να κάνεις μια προσπάθεια. ;)

Άβαταρ μέλους
VincentGR
Amiganoid
Amiganoid
Δημοσιεύσεις: 1964
Εγγραφή: Τρί Απρ 03, 2012 1:18 pm
Τοποθεσία: Piraeus
Επικοινωνία:

Re: Υπολογισμός Πάσχα.

Μη αναγνωσμένη δημοσίευσηαπό VincentGR » Παρ Φεβ 24, 2017 9:00 am

Έχω κάνει.
Γερμαναράδες παιδάκι μου, αυτοί είναι παντού χωμένοι.

https://youtu.be/YWu7CjwCedo?t=41s
Εικόνα FAN
http://partsfromthepast.blogspot.gr/
To blit, or not to blit?


Επιστροφή σε “* Home Micros programming *”



Μέλη σε σύνδεση

Μέλη σε αυτή την Δ. Συζήτηση: 1 και 0 επισκέπτες