Автор: Shaddix 19.10.2004 14: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.
Помогите, пожалста
Ни как не могу разобраться...
Автор: volvo 19.10.2004 15: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 16: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 17:00
Всем спасибо за помощь, НО как всегда в самый нужный момент у меня не работает Паскаль Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ.
Amro, Volvo: спасибо за помощь :yes:
Автор: volvo 19.10.2004 17:04
вообще-то я проверяю программы перед тем, как оставить пост на форуме :p2:
Автор: Altair 19.10.2004 17:04
Цитата
не работает Паскаль
товарищи, вы видели что-бы язык не работал?
Автор: volvo 19.10.2004 17:37
Shaddix
а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ???
Автор: Shaddix 19.10.2004 18:45
то есть просто скопировать?
Автор: volvo 19.10.2004 18:48
:yes:
просто скопировать.
должно помочь. (мне помогало)
Автор: Shaddix 19.10.2004 20:52
Спасибо за совет...Сделал...помогло
Автор: Altair 20.10.2004 6:15
Хех... возьмем на заметку...
вот глюченные XP!
Автор: Леший 17.06.2005 19:21
Цитата(volvo @ 19.10.04 17:37)
Shaddix
а скопировать autoexec.nt и config.nt из %systemroot%\repair в %systemroot%\system32 ???
Пацаны :thanks:
Вы просто Гении....
Огромное вам спасибо!!!
Автор: -Станислав- 7.11.2012 20:05
Цитата(Shaddix @ 19.10.2004 20:52)
Спасибо за совет...Сделал...помогло
можешь объяснить, куда заходдить (конкретно) и как вообще это нужно сделать?и точно ли поможет?