Помощь - Поиск - Пользователи - Календарь
Полная версия: Задачка на заполнение матрицы.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Shaddix
19.10.2004 18:47
Задача такая: Заполнить матрицу по правилу
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
volvo
19.10.2004 19:12
А так ? ;)

Код

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 20:02
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) Прости не доглядел, а так прога так же как и моя работает!!!!
Shaddix
19.10.2004 21:00
Всем спасибо за помощь, НО как всегда в самый нужный момент у меня не работает Паскаль angry.gif Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ.
Amro, Volvo: спасибо за помощь :yes:
volvo
19.10.2004 21:04
вообще-то я проверяю программы перед тем, как оставить пост на форуме :p2:
Altair
19.10.2004 21:04
Цитата
не работает Паскаль

товарищи, вы видели что-бы язык не работал? lol.gif
Shaddix
19.10.2004 21:17
volvo
окей, понятноsmile.gif
Oleg_Z
не верите? smile.gif сейчас даже специально посмотрю, что пишетsmile.gif
Вылезает табличка: "The system file is not suitable for running MS-DOS and Microsoft Windows Applications"...И так далее...
volvo
19.10.2004 21:37
Shaddix

а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ???
Shaddix
19.10.2004 22:44
volvo
а поможет?
Shaddix
19.10.2004 22:45
то есть просто скопировать?
volvo
19.10.2004 22:48
:yes:

просто скопировать.
должно помочь. (мне помогало)
Shaddix
20.10.2004 0:52
Спасибо за совет...Сделал...помогло smile.gif
Altair
20.10.2004 10:15
Хех... возьмем на заметку...
вот глюченные XP!
Леший
17.06.2005 23:21
Цитата(volvo @ 19.10.04 17:37)
Shaddix

а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ???


Пацаны :thanks:

Вы просто Гении....

Огромное вам спасибо!!!
-Станислав-
8.11.2012 0:05
Цитата(Shaddix @ 19.10.2004 20:52) *

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

можешь объяснить, куда заходдить (конкретно) и как вообще это нужно сделать?и точно ли поможет?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.