Задачка на заполнение матрицы., Не получается решить... |
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. Помогите, пожалста Ни как не могу разобраться... |
volvo |
19.10.2004 15:12
Сообщение
#2
|
Гость |
А так ? ;)
Код 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 j < i then f[i, j] := 0 else begin f[i, j] := m; inc(m); end; write(f[i,j],' '); end; writeln; end; end. |
Amro |
19.10.2004 16:02
Сообщение
#3
|
Пионер Группа: Пользователи Сообщений: 146 Пол: Мужской Репутация: 2 |
volvo
Оригинально но не рационально, а если матрица будет размерностью не 10 а к примеру 20, что тагды, твоя прога строит её уже не правильно!!!??? Лучше сделать так, для любого вида матриц!!! Код uses crt; Const N=20; Var f:array[1..N,1..N] of Integer; i,j,k:integer; begin clrscr; for i:=1 to N do begin k:=1; j:=i; repeat f[i,j]:=k; inc(k); inc(j); until (j>N); end; for i:=1 to N do begin writeln; for j:=1 to N do write(f[i,j]:3); end end. Пардон!!! Я ошибся volvo просто у тебя вывод тагды не так write(f[i,j],' ') а лучше так write(f[i,j]:3) Прости не доглядел, а так прога так же как и моя работает!!!! Сообщение отредактировано: Amro - 19.10.2004 16:08 -------------------- Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь. |
Shaddix |
19.10.2004 17:00
Сообщение
#4
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Всем спасибо за помощь, НО как всегда в самый нужный момент у меня не работает Паскаль Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ.
Amro, Volvo: спасибо за помощь :yes: Сообщение отредактировано: Shaddix - 19.10.2004 17:01 |
volvo |
19.10.2004 17:04
Сообщение
#5
|
Гость |
вообще-то я проверяю программы перед тем, как оставить пост на форуме :p2:
|
Altair |
19.10.2004 17:04
Сообщение
#6
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Цитата не работает Паскаль товарищи, вы видели что-бы язык не работал? -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Shaddix |
19.10.2004 17:17
Сообщение
#7
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
volvo
окей, понятно Oleg_Z не верите? сейчас даже специально посмотрю, что пишет Вылезает табличка: "The system file is not suitable for running MS-DOS and Microsoft Windows Applications"...И так далее... |
volvo |
19.10.2004 17:37
Сообщение
#8
|
Гость |
Shaddix
а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ??? |
Shaddix |
19.10.2004 18:44
Сообщение
#9
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
volvo
а поможет? |
Shaddix |
19.10.2004 18:45
Сообщение
#10
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
то есть просто скопировать?
|
volvo |
19.10.2004 18:48
Сообщение
#11
|
Гость |
:yes:
просто скопировать. должно помочь. (мне помогало) |
Shaddix |
19.10.2004 20:52
Сообщение
#12
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Спасибо за совет...Сделал...помогло
|
Altair |
20.10.2004 6:15
Сообщение
#13
|
Ищущий истину Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: 45 |
Хех... возьмем на заметку...
вот глюченные XP! -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
Леший |
17.06.2005 19:21
Сообщение
#14
|
Гость |
Цитата(volvo @ 19.10.04 17:37) Shaddix а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ??? Пацаны :thanks: Вы просто Гении.... Огромное вам спасибо!!! |
-Станислав- |
7.11.2012 20:05
Сообщение
#15
|
Гость |
|
Текстовая версия | 28.03.2024 13:52 |