![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
pupil |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Продвинутые Сообщений: 6 Регистрация: 16.11.2008 Город: Казахстан ![]() |
Вот собственно сама задача:
Входной файл graf.in Выходной файл graf.out Степень вершины графа - это количество ребер, идентичных заданной вершине. неориентированный граф задан матрицей смежности. Определить степень каждой вершины. Кратные ребра и петли отсутствуют. Входные данные. В первой строке записано число N - количество вершин графа. В следующих строках расположено описание матрицы: на пересечении строки i и столбца j записана единица, если вершины i и j соединены ребром, и ноль в противном случае. Выходные данные В выходной файл записать N чисел - степень каждой вершины. Пример graf.in 5 0 1 1 0 1 1 0 1 1 0 1 1 0 0 0 0 1 0 0 1 1 0 0 1 0 graf.out 3 3 2 2 2 Я знаю что нужно найти количество единичек в каждой строке(начиная со второй) входного файла, а вот как это сделать не знаю (IMG:style_emoticons/default/sad.gif) А вот как выглядит сам граф: (IMG:http://pascal-for-all.ucoz.ru/_fr/3/7499114.jpg) |
![]() ![]() |
creer |
![]()
Сообщение
#2
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент ![]() |
Хотя бы как так.
Код readln(n); for i:=1 to n do begin summ:=0; for j:=1 to n do begin read(tval); summ:=summ + tval; end; writeln(summ); end; |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 25.5.2025, 17:55 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru