найти ошибку в программе PascalABC.NET Далеко не все в Тентуре имеют право носить малиновые штаны, и конечно, не все владеют пепелацем с гравицапой, зато один предприимчивый чатланин поставил несколько ловушек, захватывающих отваливающиеся детали с пролетающих мимо инопланетных кораблей. Каждое утро он их обходит, в надежде, что рано или поздно из этих запчастей ему удастся собрать какое-нибудь транспортное средство. Путь свой чатланин планирует по карте, на которой аккуратно отмечены ловушки, отсчитывая начало координат от собственного дома. Начинается обход от дома, и в нем же и заканчивается.

Требуется определить, какое расстояние проходит чатланин за день.

В первой строке входного файла INPUT.TXT находится натуральное число N – количество ловушек, установленных чатланином (N ≤ 10), далее следуют N строк формата «X Y», описывающих координаты ловушек в порядке их обхода (-10 ≤ X,Y ≤ 10; X,Y – целые числа).

В выходной файл OUTPUT.TXT выведите общее расстояние, которое пройдет чатланин, обойдя все ловушки в приведенном порядке и вернувшись в начало координат от последней ловушки, с точностью до трех знаков после запятой.

Вот сама программа:
function len(x1,y1,x2,y2:integer):double;
begin
len:=sqrt((x1-x2)(x1-x2)+(y1-y2)(y1-y2))
end;
var x1,y1,y2,x2,n,i:integer;
l:real;
begin
x1:=0;
y1:=0;
read(n);
for i:=1 to n do begin
read(x2,y2);
l:=len(x1,y1,x2,y2);
x1:=x2;
y1:=y2;
l:=l+len(x2,y2,0,0);
end;
writeln(l:2:3);
end.

279

395

Посмотреть ответы 1

Ответы на вопрос:

9fhneh

Информатика

4,5(75 оценок)

Вы просто забыли использовать процедуру, которую описали. она есть, но вы ее не использовали, а в "z" изначально лежит "0". const m: array [1..4] of integer = (76, 126, 216, 252); var i, x, y, z: integer; procedure nod (a, b: integer; var c: integer); begin while a< > b do if a> b then a: =a-b else b: =b-a; c: =a end; begin x: =m[1]; for i: =2 to 4 do begin y: =m[i]; nod(x,y,z); x: =z end; writeln ('нод=', x) end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.