Το Στέκι των Πληροφορικών

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

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

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

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

Με επανάληψη θα γίνει, οπότε όχι

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

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.

Σχεδιασμένο για γ επαλ?

Παράθεση από: Ιωάννης Γκίνης στις 05 Ιαν 2013, 07:12:46 ΜΜ

Κώδικας (pascal) [Επιλογή] Expand

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