Вопрос № 104064: Помогите пожалуйста доработать программу, я сам в паскале не очень разбираюсь, а программу надо сделать до завтра. Суть в том что она должна умножать числа в двоичной системе исчисления. В приложении программа считает числа только целые и ответ всего...Вопрос № 104080: 1. Найдите пожалуйста все ошибки в программе и исправьте их:
Var i,j,k:integer;
Begin
Read(‘введитеk’);
i:=20;
j:=k/i;
Writeln(j = , j);
End.
2. Заданы три вещественных числа, определить, что больше: сумма или про...
Вопрос № 104.064
Помогите пожалуйста доработать программу, я сам в паскале не очень разбираюсь, а программу надо сделать до завтра. Суть в том что она должна умножать числа в двоичной системе исчисления. В приложении программа считает числа только целые и ответ всего 8 символов ограничен, пожалуйста сделайте чтобы считало еще и дробные и небыло ограничения по размеру ответа.(в моей программе числа сначала переводятся в 10 сист, умножаются,затем переводятся в двоичную) Спасибо заране...
Приложение:
Отправлен: 02.10.2007, 17:16
Вопрос задал: Леха (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Леха!
В приложении две программы:
Первая - выполняет умножение бинарного кода (десятичные дроби тоже).
Размерность 125 бит.
Вторая - с её помощью Вы можете увидеть как представляется дробная часть в бинарной записи. Нужно вводить только дробную часть.
Это результат работы двух программ:
I)
binary code : 11010.01101 = 26.40625000000
binary code : 101010.00111 = 42.21875000000
Result :10001011010.1101011011 = 1114.83886720000
II)
number: 0.83886720000
. . .
1101011011: 0.8388671875
. . .
110101101100000000000000001101011011: 0.8388672000
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Сараев Лаврентий Александрович!
I)
Var
i,k:integer;
j:real;
Begin
Write(‘введитеk’);readln(k);
i:=20;
j:=k/i;
Writeln('j = ', j);
End.
II)
var
a,b,c,s,p:real;
begin
Write(‘введите a:’);readln(a);
Write(‘введите b:’);readln(b);
Write(‘введите c:’);readln(c);
s:=a+b+c;
p:=a*b*c;
if s>p then writeln('сумма')
else
if s<p then writeln('произведение')
else writeln('равны');
end.
Удачи!
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Специалист)
Ответ отправлен: 02.10.2007, 20:43 Оценка за ответ: 4 Комментарий оценки: С первой задачей Вы справились ИДЕАЛЬНО! но во 2-ой есть ошибки. Спешу сказать, что я НЕ ПРИДИРАЮСЬ. Просто даже с исправлениями программа у меня не работает(пишет "неверное выражение")! Извините, если обидел. Я знаю-Вы хотели мне помочь!
Отвечает: Артём1983
Здравствуйте, Сараев Лаврентий Александрович!
Спешу ответить на ваш вопрос.
В первом вопросе я просто переписал вашу программу.
Приложение:
Ответ отправил: Артём1983 (статус: 3-ий класс)
Ответ отправлен: 03.10.2007, 20:54 Оценка за ответ: 5 Комментарий оценки: Уважаемый Артём! Спасибо, Вы отлично сработали. Вы очень сильно помогли мне. УСПЕХОВ ВАМ В БУДУЩЕМ!
И эта табличка никак не влияет на талант Артёма: "Обратите внимание: отвечает эксперт с небольшим стажем работы на портале - 3-ий класс!" Бывают "Спецы" (не про ваш портал), которые и 2/2 на Паскале не сумеют вычислить. Так что: САМЫЙ
ВЫСШИЙ БАЛ Артёму!!!
