1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Задачка на заполнение матрицы., Не получается решить...
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.
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.
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 -
--------------------
Закон иудеев: Семь раз отмерь, один отрежь. Закон экономии: Семь раз отмерь, семь раз отрежь. Закон программиста: Семь раз отрежь, ошибся, отмерь.
Всем спасибо за помощь, НО как всегда в самый нужный момент у меня не работает Паскаль Кто может, проверьте, работает ли программа Volvo и выдает ли она правильный ответ. Amro, Volvo: спасибо за помощь :yes:
volvo окей, понятно Oleg_Z не верите? сейчас даже специально посмотрю, что пишет Вылезает табличка: "The system file is not suitable for running MS-DOS and Microsoft Windows Applications"...И так далее...