Главная /
Программирование на языке Pascal /
Какой алгоритм реализует приведенная ниже программа?const nnn=10000; type s1 = ^s2; s2 = record n,k,v: integer; next: s1; end; var f: text; head,p,q: s1; x,i,kr,vr,nxt,kol_ver: integer; a: array[1..nnn] of integer; begin assign(f,'in'); reset(f); readln(f
Какой алгоритм реализует приведенная ниже программа?const nnn=10000;
type s1 = ^s2;
s2 = record n,k,v: integer;
next: s1;
end;
var f: text;
head,p,q: s1;
x,i,kr,vr,nxt,kol_ver: integer;
a: array[1..nnn] of integer;
begin
assign(f,'in');
reset(f);
readln(f,kol_ver);
new(head);
with head^ do readln(f,n,k,v);
head^.next:= nil;
while not eof(f) do
begin
new(q);
with q^ do readln(f,n,k,v);
q^.next:= nil;
if q^.v <= head^.v
then begin q^.next:= head;
head:= q;
continue
end;
p:= head;
while p^.next<>nil do
begin
if q^.v > p^.next^.v
then p:= p^.next
else begin
q^.next:= p^.next;
p^.next:= q;
break;
end;
end;
if p^.next = nil then p^.next:= q;
end;
close(f);
p:=head;
while p<>nil do begin
write(p^.v,' '); p:=p^.next;
end;
writeln('*');
for i:= 1 to kol_ver do a[i]:= 0;
kr:= 0;
vr:= 0;
nxt:= 0;
p:= head;
while (p^.next <> nil)and(kr<kol_ver)do
with p^ do
begin
if a[n]=0
then if a[k]=0
then begin inc(kr);
inc(vr,v);
inc(nxt);
a[n]:= nxt;
a[k]:= nxt;
end
else begin a[n]:= a[k];
inc(vr,v);
end
else if a[k]=0
then begin a[k]:= a[n];
inc(vr,v);
end
else if a[n]<>a[k]
then begin x:= a[k];
for i:= 1 to kol_ver do
if a[i]=x then a[i]:=a[n];
inc(vr,v)
end;
p:= next
end;
writeln(vr)
end.
вопрос
Правильный ответ:
подсчет количества компонент связности
нахождение минимального каркаса в связном графе
нахождение кратчайшего пути между двумя выделенными вершинами
Сложность вопроса
47
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Это очень нехитрый решебник intuit.
03 фев 2020
Аноним
Я провалил сессию, за что я не увидел этот крутой сайт с решениями по тестам интуит в начале сессии
07 мар 2017
Аноним
Экзамен прошёл на 4 с минусом. Спасибо vtone
25 окт 2015
Другие ответы на вопросы из темы программирование интуит.
- # Свойство алгоритма, обязывающее его в той или иной форме сообщать итоги своей работы, называется:
- # Сколько листьев содержится в полном бинарном дереве высоты 2?
- # Меню – это:
- # Метод сортировки Шелла является:
- # После завершения работы подпрограммы значение переданной в нее переменной-аргумента не может измениться, если соответствующий параметр был: