Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Объявления о найме специалистов > Помогите решить задачу на Pascal

Автор: magistr 18.1.2005, 15:16

Здравствуйте. Мне нужно написать прогу, время поджимает, а у меня ни как не получается smile

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

Автор: ~FoX~ 18.1.2005, 19:50

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

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

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

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

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

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

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

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

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

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

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

Автор: Pakshin A. S. 18.1.2005, 19:53

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

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

Автор: Fedor 19.1.2005, 08:24

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

Автор: Pakshin A. S. 19.1.2005, 19:02

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

Автор: Guest 20.12.2005, 20:32

Памагите ктонить решить задачу по практике, до четверга 22.12.05 оч надо, не пойму чё не так делаю smile

, Задача так звучит:Дана целочисленная квадратная матрица порядка 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.

Автор: BearBeer 20.12.2005, 22:16

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

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