Задачка на заполнение матрицы., Не получается решить... |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задачка на заполнение матрицы., Не получается решить... |
Shaddix |
19.10.2004 14:47
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Задача такая: Заполнить матрицу по правилу
1 2 3 ... 10 0 1 2 ... 9 0 0 1 ... 8 ...... 0 0 0 ... 1 Программа выдает другой результат. Код Var f:array[1..10,1..10] of Integer; i,j,m:integer; begin for i:=1 to 10 do begin m:=1; for j:=1 to 10 do begin if i<j then f[i,j]:=m; if i=j then f[i,j]:=1; if i>j then f[i,j]:=0; write(f[i,j],' '); end; writeln; end; end. Помогите, пожалста Ни как не могу разобраться... |
Shaddix |
19.10.2004 17:17
Сообщение
#2
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
volvo
окей, понятно Oleg_Z не верите? сейчас даже специально посмотрю, что пишет Вылезает табличка: "The system file is not suitable for running MS-DOS and Microsoft Windows Applications"...И так далее... |
Текстовая версия | 28.04.2024 15:33 |