Поделитесь своими знаниями, ответьте на вопрос:
Произвести действия над числами в различных системах счисления: 1. 101, 1012+10, 012 2. 101, 1012–10, 012 3. 11, 012*0, 12 4. С3, 816+3A, D16 5. С3, 816–3A, D16 6. 3, F16*6, A16 Выполнить проверку полученных результатов путем их перевода в десятичную систему счисления.
var
xa,ya,xb,yb,xc,yc,xd,yd:real;
begin
Write('Введите координаты точки А: '); Read(xa,ya);
Write('Введите координаты точки B: '); Read(xb,yb);
Write('Введите координаты точки C: '); Read(xc,yc);
Write('Введите координаты точки D: '); Read(xd,yd);
Writeln('Длина диагонали AC равна ',sqrt(sqr(xc-xa)+sqr(yc-ya)));
Writeln('Длина диагонали BD равна ',sqrt(sqr(xd-xb)+sqr(yd-yb)))
end.
Пример
Введите координаты точки А: -8.5 -2
Введите координаты точки B: -5 3.15
Введите координаты точки C: 1.2 5.8
Введите координаты точки D: 11 -4
Длина диагонали AC равна 12.4470880128647
Длина диагонали BD равна 17.524910841428