|
Вопрос # 1 444/ вопрос открыт / |
|
Здравствуйте, эксперты!
1.Вводятся произвольно числа.
2.Оставляются только не чётные чила
3. Переводятся в двоичный код
4. Выводятся двоичный код на экран.
 |
Вопрос задал: Чикиркин И.В. (статус: Посетитель)
Вопрос отправлен: 25 марта 2008, 11:11
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Лаконичный вопрос.
Отвечу тоже лаконично (см. приложение).
Приложение: Переключить в обычный режим- program p1444;
-
- {$APPTYPE CONSOLE}
-
- uses
- SysUtils, Classes;
-
-
- function Int2Bin(const I: Integer): string;
- var
- Shift: Byte;
- begin
- Result:= '';
-
- for Shift:= 0 to 31 do
- begin
- if (((I shr Shift) and 1) = 0)
- then Result:= '0' + Result
- else Result:= '1' + Result;
-
- if (Shift mod 8 = 7)
- then Result:= ' ' + Result;
- end;
- end;
-
- var
- List: TList;
- S: string;
- Value, Index: Integer;
-
- begin
- List:= TList.Create();
- Index:= 1;
- try
-
-
- WriteLn(' Input the integer values. Non-integer value breaks the input loop.');
- repeat
- Write(' Input value #', Index, ': ');
- ReadLn(S);
-
- if (TryStrToInt(S, Value))
- then List.Add(Pointer(Value))
- else Break;
-
- Inc(Index);
- until (false);
-
-
- for Index:= List.Count - 1 downto 0 do
- if ((Integer(List[Index]) and 1) = 0)
- then List.Delete(Index);
-
-
-
- WriteLn(' Output only odd values:');
- for Index:= 0 to List.Count - 1 do
- WriteLn(' Value #', Index, ' = ', Integer(List[Index]): 8, ' [',
Int2Bin(Integer(List[Index])), ' ]');
- finally
- List.Free();
- end;
-
- WriteLn(' Press enter to exit...');
- ReadLn;
- end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 26 марта 2008, 09:03
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
