Автор: suriv 30.10.2004 18:08
Дан массив из 100 чисел. Заполнить его случаными значениями и распечатать его по 10 чисел в строке.
Код
program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if i mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.
В чем моя ошибка?
Эскизы прикрепленных изображений
Автор: Altair 30.10.2004 18:15
поменяй местами строки:
Цитата
if i mod 10 = 0 then writeln;
и
Цитата
write(m[i]:5);
ТО есть код такой:
Код
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
write(m[i]:5);
if i mod 10 = 0 then writeln;
{write(m[i]:5);}
end;
readln;
end.
Странно, вроде знакомый какой-то код
Автор: xds 30.10.2004 18:16
Ошибка на еденичку: надо
Код
...
if (i - 1) mod 10 = 0 then
...
Автор: Altair 30.10.2004 18:31
ничего подобного! xds, ты не прав! Посмотри скрин, все нормально!
Автор: xds 30.10.2004 18:37
Я имел в виду одно из возможных изменений в коде suriv'а.
Автор: Altair 30.10.2004 18:54
Код suriv'a работает правильно (по заданию).
А что дала бы строка, которую ты предложил? 9 столбцов было бы.
А по задания 10
Автор: xds 30.10.2004 19:07
Смещение i не влияет на цикличнось модуля... Если ты все еще считаешь, что я неправ, запусти и посчитай колонки...
Код
program k;
var
m:array[1..100]of integer;
i:byte;
begin
randomize;
for i:=1 to 100 do
begin
m[i]:=random(200);
if (i - 1) mod 10 = 0
then
writeln;
write(m[i]:5);
end;
readln;
end.
Автор: xds 30.10.2004 19:20
Цитата(Oleg_Z @ 30.10.04 14:54)
А что дала бы строка, которую ты предложил? 9 столбцов было бы.
А я просто не согласен с ложным утверждением
Автор: Altair 30.10.2004 19:27
Тогда и я:
Цитата
Смещение i не влияет на цикличнось модуля
Фраза смысла не имеет.
:D
Оба мы тут много "наморозили" :D
Есть ли смысл дальше продолжать спорить?
Автор: xds 30.10.2004 19:39
Нет, т. к. поставленная цель - код, работающий в соответствии с заданием - достигнута.
:p4:
Автор: Altair 30.10.2004 20:59
[offtop]
Отлично. Это замечательно, когда люди находят взаимопонимание!!! :yes: :p4:
[/offop]