Задача по Pascal'ю на вычисление степени вершин > Информатика / Программирование

Помощь - Поиск - Пользователи - Календарь

Полная версия: Задача по Pascal'ю на вычисление степени вершин > Информатика / Программирование

Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование

pupil

Сообщение #21538 16.11.2008, 5:59

Вот собственно сама задача:
Входной файл 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

Я знаю что нужно найти количество единичек в каждой строке(начиная со второй) входного файла, а вот как это сделать не знаю

А вот как выглядит сам граф:

creer

Сообщение #21549 16.11.2008, 9:17

Хотя бы как так.

Код

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

Сообщение #21576 16.11.2008, 11:21

я сделал, только почему то программа не читает из файла переменные 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

Сообщение #21585 16.11.2008, 12:25

i и j из файла читать не надо

Их там нет

А вместо read(tval); нужно написать read(f, tval);

Ах да, после assign'ов еще надо написать reset(f); rewrite(f1);
И перед writeln(f1,summ); наверное нужно написать readln(f);
Вроде все

pupil

Сообщение #21588 16.11.2008, 12:45

Спс, все работает

creer

Сообщение #21589 16.11.2008, 12:59

Отлично

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.