Asya_inter

Vladimir_S, простите, что столько много вопросов задаю, но вы могли бы пожалуйста вот эти строчки немного растолковать, а то я вроде со всем разобралась, а в конце немного запуталась.
if d=1 then D3a:=D3a+'1';
D3:='';
for i:=1 to Length(D3a) do
D3:=D3+D3a[Length(D3a)-i+1];
Sum:=D3;
end;

Vladimir_S

Пожалуйста.
d - это переносимая единица следующего разряда. Как Вы, надеюсь, поняли, в начале функции сложения оба числа выравниваются по длине, равной длине бОльшего числа, путём добавления к меньшему спереди нулей. Так вот, если после сложения всех разрядов остается еще единица, то она и приписывается спереди. Пример: 6+7=13. В двоичной это так:
Но на самом деле в D3a формируется не "1101", а "1011", что и исправляется далее:Дело в том, что строка числа-суммы (D3a) оказывается "перевернутой" по направлению, т.е. младшие разряды - слева, а не справа. Вот переход от D3a к D3 и есть переписывание строки от конца к началу.
Дальше идентификатору функции Sum присваивается значение результата всей деятельности, каковой есть D3, ну и end - это закрытие функции.

Asya_inter

Vladimir_S, спасибо!!! Теперь всё понятно!

Asya_inter

Vladimir_S, здравствуйте! Огромнейшее вам СПАСИБО за помощь с задачами!! Теперь я даже сама больше стала понимать и разбираться в них, чему очень рада! Сегодня сдавала эту задачу и всё-всё сама объяснила, так что зачет) Ещё рах спасибо! ...Хоть я и сдала задачу, но вот один ещё вопросец: мне преподаватель сказал для чего вот это?(то что в скобочках) и взял удалил, сказав, что и так будет прекрасно работать. А вы могли бы пояснить почему это так?
{for i:=(Length(D2)-Length(D1))+1 to Length(D2) do }D1a:=D1a+D1{[i-(Length(D2)-Length(D1))];}

Vladimir_S

Ох, да не знаю - пути преподавательской мысли неисповедимы...