 Системы Счислений |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Лена Беркова |
 14.01.2006 20:22
Сообщение
#1
|
|
Гость  |
Даны два числа, записанные в двоичной системе счисления. Найдите их сумму. Результат выводите тоже в двоичной системе счисления.
Сказали в школе сделать, а я не знаю как. исправил заголовок В следующий раз тему с таким названием закрою Правила форума : 1. Заголовок темы должен быть информативным В противном случае тема удаляется Сообщение отредактировано: klem4 - 14.01.2006 20:44 |
 
|
|
| klem4 |
14.01.2006 20:25
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
| Лена Беркова |
14.01.2006 20:34
Сообщение
#3
|
|
Гость |
а текст не подскажете??
|
|
|
|
| klem4 |
14.01.2006 20:37
Сообщение
#4
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Текст
 ))) по ссылке которую я привел есть вычитание, все что тебе надо сделать - поменять знак минуса на плюс.Сообщение отредактировано: klem4 - 14.01.2006 20:37 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Лена Беркова |
15.01.2006 18:17
Сообщение
#5
|
|
Гость |
НУ ПОМОГИТЕС ЗАДАЧЕЙ.Я НЕ ЗНАЮ КАК ЕЕ ДЕЛАТЬ.
|
|
|
|
| klem4 |
15.01.2006 18:30
Сообщение
#6
|
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Е-мое, ну держи :
Один символ поменять неужели так сложно ? PS дом не смотри больше видишь как после него соображается туго ... function IntToBin(bin: longint): string;
var
bin_s: string;
begin
bin_s := '';
if bin = 0 then bin_s := '0'
else
while bin <> 0 do begin
if (bin and 1) = 1 then
bin_s := '1' + bin_s
else bin_s := '0' + bin_s;
bin := bin shr 1;
end;
IntToBin := bin_s
end;
function BinToInt(bin_s: string): longint;
var
bin, mult: longint;
i: integer;
begin
mult := 1; bin := 0;
for i := length(bin_s) downto 1 do
begin
if bin_s[i] = '1' then bin := bin + mult;
mult := mult shl 1;
end;
BinToInt := bin
end;
var
BO, BT: string;
begin
write('Введите первое число : ');
readln(BO);
write('Введите второе число : ');
readln(BT);
writeln( 'Результат: ', IntToBin(BinToInt(BO)+BinToInt(BT)) )
end.
Сообщение отредактировано: klem4 - 15.01.2006 18:30 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
| Лена Беркова |
15.01.2006 21:32
Сообщение
#7
|
|
Гость |
Дом не тупит!!!! а развращает. спасибо за текст.
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.08.2025 8:02 |