Версия для печати темы

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

Форум «Всё о Паскале» _ Задачи _ двумерный массив

Автор: bel100 24.05.2017 1:43

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 Пытаюсь учится заочно, если перед глазами есть конкретный пример то всё норм, если нет то....

Автор: Федосеев Павел 29.05.2017 1: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.

Автор: bel100 29.05.2017 3:39

Цитата(Федосеев Павел @ 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.


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