Το πρόβλημα της μετατροπής στο δυαδικό

Να κατασκευαστεί πρόγραμμα σε γλώσσα Pascal το οποίο να διαβάζει έναν δεκαδικό ακέραιο αριθμό από το 0 έως το 255 και να εμφανίζει τον αντίστοιχο αριθμό στο δυαδικό σύστημα αρίθμησης.

program Decimal2Binary; 
 
var 
  NumberInDecimal: Integer; 
  sNumberInBinary: string[8]; 
 
begin 
  Write('Δώστε έναν δεκαδικό αριθμό απ'' το 0 έως το 255: '); 
  Readln(NumberInDecimal); 
 
  Write('Στο δυαδικό σύστημα ο δεκαδικός αριθμός ', NumberInDecimal, ' είναι ο: '); 
  if NumberInDecimal = 0 then 
    sNumberInBinary := '0' 
  else 
  begin 
    sNumberInBinary := ''; 
    while NumberInDecimal > 0 do 
    begin 
      sNumberInBinary := chr(48 + NumberInDecimal mod 2) + sNumberInBinary; 
      NumberInDecimal := NumberInDecimal div 2; 
    end; 
  end; 
  Writeln(sNumberInBinary:8); 
end.
Advertisements

Posted on 07/01/2013, in Γλώσσα Pascal, Δομημένος Προγραμματισμός and tagged , , , . Bookmark the permalink. Σχολιάστε.

Σχολιάστε

Εισάγετε τα παρακάτω στοιχεία ή επιλέξτε ένα εικονίδιο για να συνδεθείτε:

Λογότυπο WordPress.com

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό WordPress.com. Αποσύνδεση / Αλλαγή )

Φωτογραφία Twitter

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Twitter. Αποσύνδεση / Αλλαγή )

Φωτογραφία Facebook

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Facebook. Αποσύνδεση / Αλλαγή )

Φωτογραφία Google+

Σχολιάζετε χρησιμοποιώντας τον λογαριασμό Google+. Αποσύνδεση / Αλλαγή )

Σύνδεση με %s

Αρέσει σε %d bloggers: