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

> Правила раздела!

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

 
 Ответить  Открыть новую тему 
> Переход на новую строку
сообщение
Сообщение #1


Бывалый
***

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

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


Дан массив из 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.


В чем моя ошибка? blink.gif


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
Хочу в репу !

Cмотри,а то ведь получишь!
Админ.

Не получит - его фиг догонишь!
Админ №2.

P.S Вы еще третьего админа притащите сюда :D
ваш аффтар :D
Звали? :D (админ № не помню какой)

ха больше нифига не напишете
афтар

Уверен? (Moderator)
А еще можно ? (супмодер)
Хватит его мучать ! Избили уж... (админ)
Не хватит. я тоже напишу (тоже Админ)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

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

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


поменяй местами строки:
Цитата
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.


Странно, вроде знакомый какой-то код blink.gif blink.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


N337
****

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

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


Ошибка на еденичку: надо
Код
 ...
 if (i - 1) mod 10 = 0 then
 ...


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Ищущий истину
******

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

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


ничего подобного! xds, ты не прав! Посмотри скрин, все нормально!


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


N337
****

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

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


Я имел в виду одно из возможных изменений в коде suriv'а.


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Ищущий истину
******

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

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


Код suriv'a работает правильно (по заданию).
А что дала бы строка, которую ты предложил? 9 столбцов было бы.
А по задания 10 smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


N337
****

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

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


Смещение i не влияет на цикличнось модуля... Если ты все еще считаешь, что я неправ, запусти и посчитай колонки... angry.gif

Код
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.


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Ищущий истину
******

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

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


не влияет. ТОлько нервничать зачем? я же спокойно разговариваю ... я просто часто забываю ставить смайлики smile.gif smile.gif smile.gif smile.gif smile.gif smile.gif smile.gif
я просто не согласен с фразой:
Цитата
Ошибка на еденичку

ошибки ведь нет. smile.gif smile.gif smile.gif :D


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


N337
****

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

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


Цитата(Oleg_Z @ 30.10.04 14:54)
А что дала бы строка, которую ты предложил? 9 столбцов было бы.

А я просто не согласен с ложным утверждением blink.gif


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Ищущий истину
******

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

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


Тогда и я:
Цитата
Смещение i не влияет на цикличнось модуля

Фраза смысла не имеет.
:D

Оба мы тут много "наморозили" :D
Есть ли смысл дальше продолжать спорить? smile.gif


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


N337
****

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

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


Нет, т. к. поставленная цель - код, работающий в соответствии с заданием - достигнута.

:p4:


--------------------
The idiots are winning.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Бывалый
***

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

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


smile.gif Aita smile.gif

Сообщение отредактировано: suriv -


--------------------
Хочу в репу !

Cмотри,а то ведь получишь!
Админ.

Не получит - его фиг догонишь!
Админ №2.

P.S Вы еще третьего админа притащите сюда :D
ваш аффтар :D
Звали? :D (админ № не помню какой)

ха больше нифига не напишете
афтар

Уверен? (Moderator)
А еще можно ? (супмодер)
Хватит его мучать ! Избили уж... (админ)
Не хватит. я тоже напишу (тоже Админ)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Ищущий истину
******

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

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


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 29.03.2024 4:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name