Списки смежности из матрицы - Pascal

  1. Здравствуйте,помогите пожалуйста написать программу,спасибо.Напишите программу, которая строит списки смежности для каждой вершины графа на основе его матрицы смежности. Входные данные В первой строке вводится количество вершин графа N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – элементы матрицы смежности графа. Выходные данные Программа должна вывести списки смежности для каждой вершины графа в порядке возрастания их номеров. Номера вершин в каждом списке разделены пробелами. Нумерация начинается с единицы. Если из вершины не выходит ни одно ребро, вместо списка нужно вывести число 0. Примеры входные данные 5 0 1 1 1 0 1 0 1 0 1 1 1 0 1 0 0 0 0 0 0 0 1 0 1 0 выходные данные 2 3 4 1 3 5 1 2 4 0 2 4


textual

Код к задаче: «Списки смежности из матрицы - Pascal»

var
  n, i, j, k, a: Integer;
begin
  ReadLn(n);
  for i:=1 to n do begin
    k:=0;
    for j:=1 to n do begin
      Read(a);
      if a<>0 then begin
        Write(' ',j); Inc(k);
      end;
    end;
    if k=0 then Write(0);
    ReadLn; WriteLn;
  end;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.786 из 5



Похожие ответы
  1. Ребят помогите пожалуйста,просто выручите очень сильно ,вариант в самом низу описан. Нужно сделать на паскале абц нэт. Реализуйте в виде функций (и/или процедур) следующие операции: 1.проверка смежности вершин v и w; 2.перечисление всех вершин смежных с v; 3.определение веса ребра (v, w); 4.определение веса вершины v; 5.перечисление всех ребер (v, w); 6.перечисление ребер, инцидентных вершине v; 7.перечисление вершин, инцидентных ребру s. Варианты задания 1) Матрица смежности.

  1. Здравствуйте господа. Спасибо вашему форуму и всем в частности, многое почерпнул тут и не возникало необходимости задавать "глупые вопросы". Но мой черёд настал, поведайте мне, что я делаю не так, списки L1 И L2 выводятся только последними элементами.

  1. Написать процедуру составления списка смежных вершин по заданной матрице смежности.

  1. Имеются линейные однонаправленные списки:

  1. не могу понять в чём ошибка. ВОт полностью программа

  1. Даны шифры цехов,численности рабочих и инженерно-технических работников(ИТР) в каждом.Выведите списки цехов с соотношением рабочих и ИТР более 1,5 и менее 2,и списки,в которых оно более 2.

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

  1. Условие: Внутрь квадрата с координатами левого нижнего угла (0,0) и координатами верхнего правого угла (100, 100) поместили N (0

  1. Написать программу, которая меняет максимальный и минимальный элементы списка. Ребята помогите плиз сессия поджимает, как осуществить ввод списка. Тут нашел процедуры односвязный список для мин. макс. Очень нужна ваша помощь