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.
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.
Это тема форм записи алгоритмов. Это форма блока. В начале записи каждого алгоритма есть слово "начало", а в конце "конец". Они обозначаются овалами. Ввод или вывод (что-то вроде "дано" и "ответ") записываются в параллелограме (согнутом прямоугольнике). В обычном прямоугольнике записывают действия. В ромбе — вопрос, на который можно ответить либо "да", либо "нет" и в зависимости от этого нужно выполнить те или иные действия. В этом упражнении всё просто делаешь по действиям. Например: ввод x, y — 5 и 25 (что дано в таблице). Дальше условие (вопрос): "x=y?" Отвечаем "нет" и пишем в таблицу ответ. После этого нас спрашивают: "x>y?" Снова нет. В таблицу пишем "нет". Действие: "y=y-x", то есть y теперь равен 25-5, что есть 20. Пишем в таблицу это число. Повторяем алгоритм несколько раз (там стрелка ведёт к началу алгоритма после этого, поэтому и повторяем), пока y не станет равен 5 (25-5-5-5-5),тогда на вопрос "x=y" ответим "да", пишем в таблицу значение x в итоге и готово. С нижней таблицей так же.