Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.11.2009, 03:29   #11
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Цитата:
Что мне в 1 строку все записать?
посмотри как Виталий написал код, и как ты.
уважай других(и себя) форматируй код.
Цитата:
И что за отладчик?
начнем с построчного выполнения кода и контроля за переменными(их значение просматриваем).
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума
Старый 16.11.2009, 22:25   #12
Branbal
Заблокирован
 
Регистрация: 10.11.2009
Сообщений: 20
По умолчанию

Нарооод помогите плзз, мне сдавать надо работку)) Как записать в паскале действие, чтобы просмотреть всю матрицу и сравнить есть ли в ней эти самые числа с разрядностью???? Столько дней прошло....

Код:
Var A: array [1..10,1..10] of integer;
R,m,n,I,J,k,l,Z,Q,S : integer;
B: array [1..10] of integer; F: Boolean;
Begin
Readln (m,n);
For I:=1 to m do 
For J:=1 to N do
Read (A[I,J]);K:=0;
For I:= 1 to m do Begin
F:=False; For J:=1 to N do
Begin
Z:=A[I,J]; R:=0;
While Z<>0 do Begin
R:=R+1; Z:=Zdiv10
end;
If J=1 then Q:=R;
For J:=1 to N do Begin S:=0;
If Q=A[I,J] then
S:=S+1
end;
If S=A[I,J] then F:=true;
If F=true then
Begin
K:=K+1;B[k]:=I
end;
For I:=1 to k do writeln (B[i])
end.
Ну вот поменял...

Ну помогите уже решить кто-нибудь плзз...

ну ппц неделю ждал и никто толком не помог....

Последний раз редактировалось Stilet; 18.11.2009 в 08:54.
Branbal вне форума
Старый 18.11.2009, 08:56   #13
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
просмотреть всю матрицу
Чтож ты код то пишешь абыкак. Думаешь его читать удобно?
Код:
For I:=1 to m do For J:=1 to N do begin Read (A[I,J]);K:=0;write(a[i,j]:5);end;
И вообще непонятно что и когда ты смотреть хочешь.
I'm learning to live...
Stilet вне форума
Старый 18.11.2009, 12:16   #14
Branbal
Заблокирован
 
Регистрация: 10.11.2009
Сообщений: 20
По умолчанию

Нароод, силет, где ошибки?)) Помогите исправить плз, сижу на курсах....
Branbal вне форума
Старый 18.11.2009, 12:40   #15
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Branbal
Ты во-первых программу форматируй читабельно, иначе читать ее никто не захочит
Во-вторых: У тебя там такие ошибки, что прощее ее заново написать, плюс к тому что непонятно что она делать должна...
Цитата:
силет
Наконец то я узнал как мой ник по китайски звучит. )

За кросспост тему закрываю.
I'm learning to live...

Последний раз редактировалось Stilet; 18.11.2009 в 12:43.
Stilet вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерный и двумерный массив Almost456 Паскаль, Turbo Pascal, PascalABC.NET 6 25.12.2012 18:30
Одномерный и двумерный массив [Паскаль] Ximer Помощь студентам 6 15.05.2009 16:15
Одномерный массив Ximer Паскаль, Turbo Pascal, PascalABC.NET 0 13.05.2009 19:54
Двумерный массив... slim5 Помощь студентам 2 20.06.2008 23:16
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные ProWinD Паскаль, Turbo Pascal, PascalABC.NET 2 16.06.2008 20:12