IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> двумерный массив, Заполните двумерный массив нулямиБ измените 1,3,5,7,9 строку на едениц
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


var aa:array[1..9,1..9]of integer;
i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
if i=1 then
aa[i,j]:=1;
aa[i,j]:=random(0);
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write(aa[i,j]:3)
end;
writeln
end;
end.
Получается поменять только одну строку, при попытке ввести : if (i=1) and (i=3) then вообще ничего не меняет, кто подскажет ход решения? Пожалуйста.
P.S Пытаюсь учится заочно, если перед глазами есть конкретный пример то всё норм, если нет то....
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 466
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


Можно заменять на 1 нечётные строки. Odd(i) равна true при нечётном i.
program test;

const
N = 9;
type
TArray = array[1..N, 1..N] of integer;

var
i, j: integer;
A: TArray;
begin
{заполните массив нулями}
for i := 1 to N do
for j := 1 to N do
A[i, j] := 0;
{1,3,5,7,9 строку на единицы}
for i := 1 to N do
if odd(i) then
for j := 1 to N do
A[i, j] := 1;
{вывод результата}
for i := 1 to N do
begin
for j := 1 to N do
Write(A[i, j]: 2);
writeln;
end;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 11
Пол: Мужской
Реальное имя: Юрий

Репутация: -  0  +


Цитата(Федосеев Павел @ 28.05.2017 20:00) *

Можно заменять на 1 нечётные строки. Odd(i) равна true при нечётном i.
program test;

const
N = 9;
type
TArray = array[1..N, 1..N] of integer;

var
i, j: integer;
A: TArray;
begin
{заполните массив нулями}
for i := 1 to N do
for j := 1 to N do
A[i, j] := 0;
{1,3,5,7,9 строку на единицы}
for i := 1 to N do
if odd(i) then
for j := 1 to N do
A[i, j] := 1;
{вывод результата}
for i := 1 to N do
begin
for j := 1 to N do
Write(A[i, j]: 2);
writeln;
end;
end.


Спасибо за подсказку , пытался решать когда ещё не дошёл до пользовательских типов и констант.... Сейчас должно всё получиться
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 17.01.2018 15:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"