Topic-icon Υπολογισμός Πάσχα για C=64!!!

  • Darth_Cotsos
  • Το Άβαταρ του/της Darth_Cotsos Συντάκτης θέματος
  • Retro Expert
  • Retro Expert
Περισσότερα
28/07/2012 21:58 - 28/07/2012 21:59 #1067 από Darth_Cotsos
Υπολογισμός Πάσχα για C=64!!! δημιουργήθηκε από Darth_Cotsos
Για να ανέβουμε σιγά σιγά επίπεδο και να περάσουμε από την αγαπημένη Basic στη C.
Για τα αγαπημένα μας home computers έχουν κυκλοφορήσει τελευταία αρκετοί cross compilers. Με την έννοια cross compiler εννοούμε έναν compiler που τρέχει σε διαφορετικό υπολογιστή από αυτόν για τον οποίο παράγει τον τελικό κώδικά.
Έτσι για τον commodore 64 υπάρχει ο cc65. O οποίος τρέχει στο PC και παράγει εκτελέσιμο αρχείο για τον C=64!!!
O compiler βρίσκετε εδώ:http://www.cc65.org/
Αλλά για αυτόν θα μιλήσουμε σε άλλο θέμα!!
Θέλοντας να τον δοκιμάσω όταν τον είχα πρωτοβρεί έφτιαξα ένα απλό πρόγραμμα εύρεσης του Ορθόδοξου Πάσχα.
Και να το λοιπόν στον δικό σας commodore να σας λέει πότε έχουμε Πάσχα!!! Εσείς απλά εισάγετε την χρονιά!!!




Και για όσους έχουν ανησυχίες ιδού και ο κώδικας!!!
//Υπολογισμός Πάσχα για Commodore 64 
 
#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 C=64\n");
         printf("Please give the year:\n\n");
         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("\nProgram by Darth_Cotsos\n");
         return 0;
      }          


Συνημμένο αρχείο:

Όνομα Αρχείου: pasxa.zip
Μέγεθος αρχείου:4 KB

Don't underestimate the power of the 8bit side!
Συνημμένα:
Οι ακόλουθοι χρήστες είπαν "Σε Ευχαριστώ": Fotis_KFOR, zx_jim, GeoAnas, DUser1

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • geo1977
  • Το Άβαταρ του/της geo1977
  • Retro Maniac
  • Retro Maniac
Περισσότερα
29/07/2012 07:54 #1089 από geo1977
Απαντήθηκε από geo1977 στο θέμα Υπολογισμός Πάσχα για C=64!!!
Αμ πως τι τα τα έχουμε τα πτυχία ....αλλη μια προσφορά απο τον Κώστα.... :side:

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

  • Fotis_KFOR
  • Το Άβαταρ του/της Fotis_KFOR
  • Site Owner / Admin
  • Site Owner / Admin
  • PC / Sinclair ZX Spectrum+3
Περισσότερα
29/07/2012 14:19 #1172 από Fotis_KFOR

Παρακαλούμε Σύνδεση ή Δημιουργία λογαριασμού για να συμμετάσχετε στη συζήτηση.

Χρόνος δημιουργίας σελίδας: 0.212 δευτερόλεπτα
Powered by Kunena Φόρουμ

great retro computers and retro consoles companies logos