1 «легкая конструкция».
космические путешествия - опасные предприятия. поэтому корабль, который
планировал построить василий для своего путешествия, проектировался
надежный. вася решил, что для обеспечения бесперебойного электропитания
приборов корабля необходимо соединить все имеющиеся на корабле
узлы, по принципу "каждый с каждым". но после монтажа всего
электрооборудования вес космического корабля оказался слишком велик.
обратившись за к экспертам василий выяснил, что большая часть
проводов совершенно не участвует в процессе электроснабжения. ток в цепи идет по
пути наименьшего сопротивления. поэтому большую часть проводов можно смело
обрезать.
василию решить, какие провода нужно оставить в цепи, чтобы ток
проходил через все узлы, но при этом сопротивление в цепи было минимальным.
формат входных данных: в первой строке программе подается целое число n -
количество узловых точек цепи (2< =n< 100). в следующих n строках вводится n
значений сопротивления на участках цепи, соединяющих i-ый узел со всеми другими.
значение сопротивления на каждом участке ri положительное число не
превосходящее 100. числом 0 обозначен участок цепи соединяющий i-ый узел с
самим собой. цепь начинается от источника - узел с номером 0.
формат выходных данных: программа должна вывести строку, содержащую
последовательность узлов, которые образуют замкнутую цепь, с минимальным
сопротивлением, начиная от источника и заканчивая источником.
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)