 Задача по Pascal'ю на вычисление степени вершин, Помогите решить |
Здравствуйте, гость ( Вход | Регистрация )
| pupil |
  16.11.2008, 5:59
Сообщение
#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) |
   |
 
|
  |
Ответов
| pupil |
16.11.2008, 11:21
Сообщение
#2
|
|
Новичок Группа: Продвинутые Сообщений: 6 Регистрация: 16.11.2008 Город: Казахстан |
я сделал, только почему то программа не читает из файла переменные i и j, что не так?
Код Program stepeni_vershin; var n,tval,summ: integer; i,j: byte; f,f1:text; begin assign(f,'graf.in'); reset(f); assign(f1,'graf.out'); rewrite(f1); readln(f,n,i,j); for i:=1 to n do begin summ:=0; for j:=1 to n do begin read(tval); summ:=summ + tval; end; writeln(f1,summ); end; close(f); close(f1); end. |
|
|
|
Сообщений в этой теме
pupil Задача по Pascal'ю на вычисление степени вершин 16.11.2008, 5:59
creer Хотя бы как так.
readln(n);
for i:=1 t... 16.11.2008, 9:17 creer i и j из файла читать не надо :)
Их там нет :)
А в... 16.11.2008, 12:25
pupil Спс, все работает 16.11.2008, 12:45 creer Отлично :) 16.11.2008, 12:59 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 20:34 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru