Θελω τα "φωτα" σας...

Ξεκίνησε από GeorgeG, 30 Δεκ 2012, 03:05:07 ΜΜ

« προηγούμενο - επόμενο »

GeorgeG

Να γραφει προγραμμα που να μετατρεπει και να εμφανιζει σε δυαδικη μορφη εναν ακεραιο δεκαδικης μορφης με τιμη απο 0 μεχρι 255.

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

petrosp13

Η μετατροπή από δεκαδικό σε δυαδικό είναι συγκεκριμένη και είναι περίπου αυτό που λες
Googlαρέ το
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

GeorgeG

Δεν ειμαι σιγουρος αλλα με αυτον τον τροπο δεν θα αναπτυσσοταν ενα πολυ μεγαλο προγραμμα με πολους πλεονασμους?

petrosp13

Με επανάληψη θα γίνει, οπότε όχι
Παπαδόπουλος Πέτρος
Καθηγητής Πληροφορικής

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

#4
Επιτρέψτε μου,

Κώδικας: pascal
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.

GeorgeG

Σχεδιασμένο για γ επαλ?
Παράθεση από: Ιωάννης Γκίνης στις 05 Ιαν 2013, 07:12:46 ΜΜ
Κώδικας: pascal
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.


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

Γιατί όχι; Κάτι σαν τα ολοκληρώματα στα Μαθηματικά   :D