Списки смежности из матрицы - 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

Код:

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.

Похожие ответы
  1. Мне нужно решить уравнение методом Итерраций, с кодом вроде нет проблем, а вот с уравнением Помогите, как правильно написать его на языке Pascal [BIMG]http://forum.pascal.net.ru/index.php?act=Attach&type=post&id=8246[/BIMG] Нужно ввести Х (на отрезке [0-1]) и вывести получившийся корень

  1. дана целочисленная квадратная матрица. Определить: 1)сумму элементов в тех столбцах, которые не содержат отрицательных элементов(оформить в виде функции); 2) Минимум среди сумм модулей элементов диагоналей, параллельных побочной диагонали матрицы(оформить в виде процидуры). заранее спасибо!

  1. Помогите.Вывести буквы встречающиеся только в первом из двух множеств.

  1. Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

  1. Используя множества сравнить две строки на еквивалентность росположения букв и цыфр.

  1. Мне нужно решить уравнение методом Итерраций, с кодом вроде нет проблем, а вот с уравнением Помогите, как правильно написать его на языке Pascal [BIMG]http://forum.pascal.net.ru/index.php?act=Attach&type=post&id=8246[/BIMG] Нужно ввести Х (на отрезке [0-1]) и вывести получившийся корень

  1. посоветуйте как сделать Вычислить значение функции с точностью ε=10-4, x изменяется от 0 до 0.5 с шагом 0.01.

  1. Помогите, пожалуйста, с решением след.задачи. Дан текст формулы. Определить все идентификаторы в этой формуле. Каждый идентификатор вывести в отдельной строке.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика