Размещено 2 года назад по предмету
Информатика
от valeriaawokug
Завдання 2. Проаналізуйте наведений приклад програми та
сформулюйте задачу, яка реалізована в даному коді.
КОД ПРОГРАМИ
var x1,x2,x3,y1,y2,y3:integer;
l1,l2,l3:real;
function dov(a,b,c,d:integer):real;
var l:real;
begin
l:=sqrt(sqr(a-b)+sqr(c-d));
dov:=l;
end;
begin
writeln('enter x1,y1,x2,y2,x3,y3');
readln(x1,y1,x2,y2,x3,y3);
writeln('1 storona l1='
,dov(x1,y1,x2,y2):5:1);
writeln('2 storona l2='
,dov(x2,y2,x3,y3):5:1);
writeln('3 storona l3='
,dov(x1,y1,x3,y3):5:1);
end.