Αποστολέας Θέμα: Θελω τα "φωτα" σας...  (Αναγνώστηκε 1400 φορές)

GeorgeG

  • Θαμώνας
  • ***
  • Μηνύματα: 37
Θελω τα "φωτα" σας...
« στις: 30 Δεκ 2012, 03:05:07 μμ »
Να γραφει προγραμμα που να μετατρεπει και να εμφανιζει σε δυαδικη μορφη εναν ακεραιο δεκαδικης μορφης με τιμη απο 0 μεχρι 255.

Πρεπει να κανω εναν αριθμο mod κ div (με το 2) για να βρω καθε φορα το δυαδικο ψηφιο μεχρι το 0?  ???
Υπαρχει καποιος αλλος πιο ευκολος τροπος ?

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2199
Απ: Θελω τα "φωτα" σας...
« Απάντηση #1 στις: 30 Δεκ 2012, 04:45:20 μμ »
Η μετατροπή από δεκαδικό σε δυαδικό είναι συγκεκριμένη και είναι περίπου αυτό που λες
Googlαρέ το
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

GeorgeG

  • Θαμώνας
  • ***
  • Μηνύματα: 37
Απ: Θελω τα "φωτα" σας...
« Απάντηση #2 στις: 30 Δεκ 2012, 06:28:48 μμ »
Δεν ειμαι σιγουρος αλλα με αυτον τον τροπο δεν θα αναπτυσσοταν ενα πολυ μεγαλο προγραμμα με πολους πλεονασμους?

petrosp13

  • Ομάδα Νέου Λυκείου
  • *
  • Μηνύματα: 2199
Απ: Θελω τα "φωτα" σας...
« Απάντηση #3 στις: 30 Δεκ 2012, 06:38:28 μμ »
Με επανάληψη θα γίνει, οπότε όχι
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

Ιωάννης Γκίνης

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 130
  • I share because I care
    • Προσωπική ιστοσελίδα
Απ: Θελω τα "φωτα" σας...
« Απάντηση #4 στις: 05 Ιαν 2013, 07:12:46 μμ »
Επιτρέψτε μου,

Κώδικας: Pascal
  1. program Decimal2Binary;
  2.  
  3. var
  4.   NumberInDecimal: Integer;
  5.   sNumberInBinary: string[8];
  6.  
  7. begin
  8.   Write('Δώστε έναν δεκαδικό αριθμό απ'' το 0 έως το 255: ');
  9.   Readln(NumberInDecimal);
  10.  
  11.   Write('Στο δυαδικό σύστημα ο δεκαδικός αριθμός ', NumberInDecimal, ' είναι ο: ');
  12.   if NumberInDecimal = 0 then
  13.     sNumberInBinary := '0'
  14.   else
  15.   begin
  16.     sNumberInBinary := '';
  17.     while NumberInDecimal > 0 do
  18.     begin
  19.       sNumberInBinary := chr(48 + NumberInDecimal mod 2) + sNumberInBinary;
  20.       NumberInDecimal := NumberInDecimal div 2;
  21.     end;
  22.   end;
  23.   Writeln(sNumberInBinary:8);
  24. end.
« Τελευταία τροποποίηση: 07 Ιαν 2013, 09:28:18 πμ από Ιωάννης Γκίνης »

GeorgeG

  • Θαμώνας
  • ***
  • Μηνύματα: 37
Απ: Θελω τα "φωτα" σας...
« Απάντηση #5 στις: 07 Ιαν 2013, 03:18:01 μμ »
Σχεδιασμένο για γ επαλ?
Κώδικας: Pascal
  1. program Decimal2Binary;
  2.  
  3. var
  4.   NumberInDecimal: Integer;
  5.   sNumberInBinary: string[8];
  6.  
  7. begin
  8.   Write('Δώστε έναν δεκαδικό αριθμό απ'' το 0 έως το 255: ');
  9.   Readln(NumberInDecimal);
  10.  
  11.   Write('Στο δυαδικό σύστημα ο δεκαδικός αριθμός ', NumberInDecimal, ' είναι ο: ');
  12.   if NumberInDecimal = 0 then
  13.     sNumberInBinary := '0'
  14.   else
  15.   begin
  16.     sNumberInBinary := '';
  17.     while NumberInDecimal > 0 do
  18.     begin
  19.       sNumberInBinary := chr(48 + NumberInDecimal mod 2) + sNumberInBinary;
  20.       NumberInDecimal := NumberInDecimal div 2;
  21.     end;
  22.   end;
  23.   Writeln(sNumberInBinary:8);
  24. end.

Ιωάννης Γκίνης

  • Δεινόσαυρος
  • *****
  • Μηνύματα: 130
  • I share because I care
    • Προσωπική ιστοσελίδα
Απ: Θελω τα "φωτα" σας...
« Απάντηση #6 στις: 26 Ιαν 2013, 09:39:12 μμ »
Γιατί όχι; Κάτι σαν τα ολοκληρώματα στα Μαθηματικά   :D