Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 175095
10.12.2009, 02:16
0.00 руб.
0 3 2
Компьютеры Программирование
Доброго времени, очень нужна помощь, нужно три программы для сестренки
1. Перевод из 10 Системы счисления в двоичную(целые,дробные);
2. Сложение в двоично-десятичной системе счисления;
3. Коды Хемминга - чтоб она находила ошибку при сбое и сама код хеминга строила.
было всего 10 заданий, 7 я сам сделал, на большее нет времени, так как в командировку уезжаю. Заранее огромное спасибо.

Обсуждение

Неизвестный
10.12.2009, 17:18
общий
это ответ
Здравствуйте, koyan.
В приложении исходник первой задачи. Для целых чисел. А для дробных пусть сестренка подумает сама. =)
Вот, например, ссылка на учебное пособие "Паскаль в примерах":
http://window.edu.ru/window_catalog/files/r40770/mtdesp5.pdf

Приложение:
var
dec: integer;
v: integer;
i: integer;
begin
writeln('Введите целое число');
readln(dec);
v:128;
for i:=1 to 8 do
begin
if dec >= v then
begin
write('1');
dec:=dec-v;
end
else write('0');
v:=Round(v/2);
end;
readln;
end.
Неизвестный
10.12.2009, 20:56
общий
дело в том, что это должно быть в одной программе, я не додумаюсь как это сделать
Неизвестный
12.12.2009, 22:33
общий
это ответ
Здравствуйте, koyan! Помогу только с первой задачкой (она в приложении)

Приложение:
var n, x, i, i2: longint;
s: string;
begin
writeln('Enter number');
readln(n);
i2 := 2;
x := 1;
if n > 1 then
while i2 - 1 < n do
begin
i2 := i2 * 2;
x := x + 1;
end;
for i := 1 to x do
s := s + '0';
for x := 1 to n do
for i := Length(S) downto 1 do
if s[i] = '0' then
begin
for i2 := i to Length(S) do
s[i2] :='0';
s[i] := '1';
Break;
end;
writeln(s);
readln;
end.
Форма ответа