![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
Insomnia |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: ![]() ![]() ![]() |
const n=15; m=20;
var A: array[1..m,1..n] of integer; b: array[1..m] of boolean; По массиву А получить массив b, присвоив его k-тому элементу значение true, если все элементы k-того столбца массива А нулевые, и значение false иначе.
var
A: array[1..m,1..n] of integer;
b: array[1..m] of boolean;
l,i,j:integer;
k:boolean;
begin
writeln('vvedite k');
readln(k);
writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do
readln(A[i,j]);
for i:=1 to m do
for j:=1 to n do
begin
m:=m+1;
b[m]:=A[i,j];
end;
for i:=1 to m do
for j:=1 to n do
if
end.
мне непонятны операции с k . как посчитать к-столбец? |
Lapp |
![]()
Сообщение
#2
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
Вот так:
const
m=20;
n=15;
var
A: array[1..m,1..n] of integer;
b: array[1..m] of boolean;
i,j:integer;
begin
writeln('vvedite massiv');
for i:=1 to m do
for j:=1 to n do
//readln(A[i,j]);
a[i,j]:= Random(Random(Random(2)+1)+1)*Random(10);
for i:=1 to m do begin
for j:=1 to n do Write(a[i,j]:3);
WriteLn
end;
for i:=1 to m do begin
b[i]:=true;
for j:=1 to n do b[i]:=b[i] and (a[i,j]=0)
end;
for i:=1 to m do Write(b[i]:6);
ReadLn
end.
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Insomnia |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 49 Пол: Мужской Репутация: ![]() ![]() ![]() |
a[i,j]:= Random(Random(Random(2)+1)+1)*Random(10); - поясните пожалуйста, каким образом получается генерация массива таким выражением?
for j:=1 to n do b[i]:=b[i] and (a[i,j]=0) - вот эти действия в цикле мне непонятны.. Сообщение отредактировано: Insomnia - 27.12.2010 16:12 |
Lapp |
![]()
Сообщение
#4
|
![]() Уникум ![]() ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: ![]() ![]() ![]() |
a[i,j]:= Random(Random(Random(2)+1)+1)*Random(10); - поясните пожалуйста, каким образом получается генерация массива таким выражением? ![]() Цитата for j:=1 to n do b[i]:=b[i] and (a[i,j]=0) - вот эти действия в цикле мне непонятны.. Это и есть главная часть. Тут происходит проверка на то, что все числа в столбце равны 0. Полагаю b[i] равным TRUE (предыдущий оператор - кстати, не надо было его опускать при цитировании), и потом прохожу по всем элементам столбца. Если хоть один ненулевой - b[i] сбрасывается в FALSE.-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
![]() ![]() |
![]() |
Текстовая версия | 19.07.2025 3:55 |