 Задача по 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) |
   |
 
|
| creer |
16.11.2008, 9:17
Сообщение
#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; |
|
|
|
| pupil |
16.11.2008, 11:21
Сообщение
#3
|
|
Новичок Группа: Продвинутые Сообщений: 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. |
|
|
|
| creer |
16.11.2008, 12:25
Сообщение
#4
|
|
Студент Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент |
i и j из файла читать не надо (IMG:style_emoticons/default/smile.gif)
Их там нет (IMG:style_emoticons/default/smile.gif) А вместо read(tval); нужно написать read(f, tval); (IMG:style_emoticons/default/wink.gif) Ах да, после assign'ов еще надо написать reset(f); rewrite(f1); И перед writeln(f1,summ); наверное нужно написать readln(f); Вроде все (IMG:style_emoticons/default/smile.gif) |
|
|
|
| pupil |
16.11.2008, 12:45
Сообщение
#5
|
|
Новичок Группа: Продвинутые Сообщений: 6 Регистрация: 16.11.2008 Город: Казахстан |
Спс, все работает
|
|
|
|
| creer |
16.11.2008, 12:59
Сообщение
#6
|
|
Студент Группа: Продвинутые Сообщений: 121 Регистрация: 28.10.2007 Город: Екатеринбург Учебное заведение: УГТУ-УПИ Вы: студент |
Отлично (IMG:style_emoticons/default/smile.gif)
|
|
|
|
|
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | Сейчас: 25.5.2025, 20:57 |
Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.
Русская версия Invision Power Board
v2.1.7 © 2025 IPS, Inc.
Зеркало сайта Решебник.Ру - reshebnik.org.ru