Здравствуйте. Мне нужно написать прогу, время поджимает, а у меня ни как не получается .
Помогите,пожалуйста, не дайте пропасть. Вот задание: "Напишите и используйте в программе процедуру поиска в ши-рину в графе, заданном списками инцидентности. Выведите на экран номера всех вершин в порядке очередности просмотра." . Всем спасибо.

magistr
Надоело!!!!!!!!!!!!!!!!!!!!

Цитата(magistr @ 18.1.2005, 15:16)

Мне нужно написать прогу, время поджимае

Тебе нужно, ты и пиши............................А остальное..- В раздел "Работа".

Цитата(magistr @ 18.1.2005, 15:16)

в ши-рину в графе, заданном списками инцидентности.

Используй поиск в разделе "Алгоритмы"

..............

Цитата(magistr @ 18.1.2005, 15:16)

сками инцидентности. Выведите на экран номера всех вершин в порядке очередности просмо

..............
Сам напишешь, не маленький!!!

Модератор: ууу... грубова-то с новичками... можно было просто не писать...


magistr, у вас уже есть какие-нибудь идеи и коды? покажите, поправим и доработаем...

Это сообщение отредактировал(а) Pakshin A. S. - 18.1.2005, 19:54

Или мне 2 WMZ. Я напишу. Если захочещь, в приват

М	Торги пошли.... перемещаем...

Памагите ктонить решить задачу по практике, до четверга 22.12.05 оч надо, не пойму чё не так делаю , Задача так звучит:Дана целочисленная квадратная матрица порядка N, столбец(в этой матрице) назовём отмеченным если он находится на главной диагонали или ниже неё, и если элементы этого столбца не отрицательны и оканчиваются на цифру 7. Подсчитать кол-во таких столбцов(отмеченных).




Рrogram xz;
Type mas=array[1..30,1..30] of integer;
Var
a:mas;
s,n,i,j,k:integer;
Begin
writeln('ввести размерность массива ');
readln(n);
writeln('ввести элементы массива ');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=1 to n do
begin
if(i=j) or (i<j) then
begin
if (a[i,j]>=0) and (a[i,j] mod 10 = 7) then inc(k);
end;
if k=n-j+1 then inc(s);
end;
writeln(s);
end.

бегин-энд во внешнем цикле в конце программы добавь.
ПОпробуй.

Хотя стоит говорить, что за ошибка вылетает, а то не понятно, от чего тебя спасать.