Форум «Всё о Паскале» > Переход на новую строку

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы

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.

Altair

30.10.2004 19:12

не влияет. ТОлько нервничать зачем? я же спокойно разговариваю ... я просто часто забываю ставить смайлики

я просто не согласен с фразой:

Цитата

Ошибка на еденичку

ошибки ведь нет.

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:

suriv

30.10.2004 20:06

Aita

Altair

30.10.2004 20:59

[offtop]
Отлично. Это замечательно, когда люди находят взаимопонимание!!! :yes: :p4:
[/offop]

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.