Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Матрица + вывод.

Автор: spektr 16.03.2007 21:00


ЗАДАЧА: Дана матрица A(N,M). Получите вектор X(M) равный Р-той строке матрицы и вектор Y(N) равный Q-тому столбцу матрицы.
ОШИБКИ И ВОПРОСЫ:задача по сути не сложная,наверно,но чево-то как-то на нее никак мозг не собирается,мне не нравится строчка for i:=p do но я не знаю чем ее заменить,еще не знаю как бы мне сделать вывод.

КОСЯЧНЫЙ ВАРИАНТ:

Program stem;
VAR
A: array [1..20,1..20] of integer;
X,Y:array [1..20] of integer;
i,j,n,m,p,q : integer;
Begin
Readln (n,m);
for i:=1 to n do
For j:=1 to m do
readln (A[i,j]);
readln (p,q);
for i:=p do
begin
for j:=1 to m do
Writeln (A[i,j]) ........ ;


Автор: Артемий2 16.03.2007 22:32

Может так?

Program stem;
uses crt;
VAR
A: array [1..20,1..20] of integer;
X,Y:array [1..20] of integer;
i,j,n,m,p,q : integer;
Begin
ClrScr;
Readln (n,m);
writeln;
for i:=1 to n do begin
For j:=1 to m do begin
read(A[i,j]);
end;
writeln;
end;
writeln;
readln (p,q);
for m:=1 to 20 do begin
X[m]:=a[p,m];
end;
for n:=1 to 20 do begin
y[n]:=a[n,q];
end;
readln
end.

Автор: spektr 17.03.2007 18:23

ой,неработает,я расставила везде где нужно врайтэленки чтоб не путаться,а оно не работает,я не понимаю почему((((((((((

Автор: volvo 17.03.2007 18:39

Чего ж не работает... Все работает... Только чуть-чуть поправить надо, а то лишние элементы печатаются:

uses crt;
var
A: array [1..20,1..20] of integer;
X,Y:array [1..20] of integer;
i,j,n,m,p,q : integer;

Begin
ClrScr;
Readln (n,m); { <--- N строк, M столбцов }
writeln;

for i:=1 to n do begin
For j:=1 to m do begin
a[i, j] := random(40);
write(a[i, j]:4)
end;
writeln;
end;

writeln;
readln (p,q); { <--- строка № p, столбец № q}
for i:=1 to m do begin
X[i]:=a[p,i];
write(X[i]:4);
end;
writeln;

for i:=1 to n do begin
y[i]:=a[i,q];
write(Y[i]:4);
end;
writeln;

readln
end.


Автор: spektr 18.03.2007 0:54

Спасибо госпада эксперты))))вы мне очень помогли)))