function Len(x1,y1, x2, y2:real):real;
begin
Len := sqrt( sqr(x1 - x2) + sqr(y1 - y2) );
end;
var
x1,x2,x3,x4,x5, y1, y2, y3, y4, y5:real;
begin
write('x1 = '); readln(x1);
write('y1 = '); readln(y1);
write('x2 = '); readln(x2);
write('y2 = '); readln(y2);
write('x3 = '); readln(x3);
write('y3 = '); readln(y3);
write('x4 = '); readln(x4);
write('y4 = '); readln(y4);
write('x5 = '); readln(x5);
write('y5 = '); readln(y5);
writeln('P = ', Len(x1,y1,x2,y2) + Len(x2,y2,x3,y3) + Len(x3,y3,x4,y4) + Len(x4,y4,x5,y5) + Len(x5,y5,x1,y1));
end.
Я бы посоветовал вместо прямого перевода 2 <-> 10 работать через 16ричную систему счисления. Алгоритмы те же, вычислений меньше, значит меньше и ошибок. А двоичные значения 16 цифр очень легко запомнить.
Гляди, как просто получится
1.
96 = 60h = 0110 0000b
53 = 35h = 0011 0101b
74 = 4Ah = 0100 1010b
80 = 50h = 0101 0000b
122=7Ah= 0111 1010b
2.
1010011b = 0101 0011b = 53h = 5*16+3=83
10011101b= 1001 1101b = 9Dh = 9*16+13 = 157
11011111b= 1101 1111b = DFh = 13*16+15= 223
3.
1010011b + 110101b = 0101 0011b + 0011 0101b = 53h + 35h = 88h = 1000 1000b
11011111b + 1111010b = 1101 1111b + 0111 1010b = DFh+7Ah = 159h= 0001 0101 1001b
Замечание1. Для решения последнего примера нужно, конечно, знать таблицу сложения 16-ричных цифр.
Замечание2 Напомню перевод 10 ->16, повторюсь, алгоритм тот же, что и 10->2
Например
122/16 = 7 (ост 10), значит 122=7Аh
Замечание3 И последнее, в практической деятельности 2-ичная система практически не используется, профессионалы, если нужно, работают с 16-ричной(это связано с тем, что байт, так уж случилось, равен 8 бит).
Ну, вроде всё.