Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Задача по Pascal'ю на вычисление степени вершин

Автор: pupil 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 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 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 16.11.2008, 12:25

i и j из файла читать не надо
Их там нет
А вместо read(tval); нужно написать read(f, tval);
Ах да, после assign'ов еще надо написать reset(f); rewrite(f1);
И перед writeln(f1,summ); наверное нужно написать readln(f);
Вроде все

Автор: pupil 16.11.2008, 12:45

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

Автор: creer 16.11.2008, 12:59

Отлично

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)