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

> Прочтите прежде чем задавать вопрос!

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.


Помогите, пожалстаsmile.gif Ни как не могу разобраться... sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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


--------------------
Закон иудеев: Семь раз отмерь, один отрежь.
Закон экономии: Семь раз отмерь, семь раз отрежь.
Закон программиста: Семь раз отрежь, ошибся, отмерь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Shaddix
сообщение 19.10.2004 17:00
Сообщение #4





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

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


Всем спасибо за помощь, НО как всегда в самый нужный момент у меня не работает Паскаль angry.gif Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ.
Amro, Volvo: спасибо за помощь :yes:

Сообщение отредактировано: Shaddix - 19.10.2004 17:01
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 19.10.2004 17:04
Сообщение #5


Гость






вообще-то я проверяю программы перед тем, как оставить пост на форуме :p2:
 К началу страницы 
+ Ответить 
Altair
сообщение 19.10.2004 17:04
Сообщение #6


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

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

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


Цитата
не работает Паскаль

товарищи, вы видели что-бы язык не работал? lol.gif


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





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

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


volvo
окей, понятноsmile.gif
Oleg_Z
не верите? smile.gif сейчас даже специально посмотрю, что пишетsmile.gif
Вылезает табличка: "The system file is not suitable for running MS-DOS and Microsoft Windows Applications"...И так далее...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
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
а поможет?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Shaddix
сообщение 19.10.2004 18:45
Сообщение #10





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

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


то есть просто скопировать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
volvo
сообщение 19.10.2004 18:48
Сообщение #11


Гость






:yes:

просто скопировать.
должно помочь. (мне помогало)
 К началу страницы 
+ Ответить 
Shaddix
сообщение 19.10.2004 20:52
Сообщение #12





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

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


Спасибо за совет...Сделал...помогло smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 20.10.2004 6:15
Сообщение #13


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

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

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


Хех... возьмем на заметку...
вот глюченные XP!


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


Гость






Цитата(Shaddix @ 19.10.2004 20:52) *

Спасибо за совет...Сделал...помогло smile.gif

можешь объяснить, куда заходдить (конкретно) и как вообще это нужно сделать?и точно ли поможет?
 К началу страницы 
+ Ответить 

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

 



- Текстовая версия 28.03.2024 13:52
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"