|
Вопрос # 5 309/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
Как сделать красивый ввод - вывод матрицы, вот где исходная матрица...?
Приложение: Переключить в обычный режим- program kvmat;
- uses crt;
- var x:array [1..100,1..100] of integer;
- n,m,i,j,s:integer;
- begin
- clrscr;
-
- readln(n,m); s:=0;
- for i:=1 to n do
- for j:=1 to m do begin {1}
- write('x[',i,',',j,'] = '); read(x[i,j]); end; {1}
-
- for i:=1 to n do
- for j:=1 to m do begin {2}
- writeln('x[',i,',',j,'] =',x[i,j]);
- if odd(x[i,j])=true then s:=s+x[i,j]; end; {2}
-
- readkey;
- end.
 |
Вопрос задал: Олег FunkyMen (статус: Посетитель)
Вопрос отправлен: 23 мая 2011, 16:03
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 2; последнее сообщение — 23 мая 2011, 16:10; участников в обсуждении: 2.
|
|
Олег FunkyMen (статус: Посетитель), 23 мая 2011, 16:09 [#1]:
Я видел вводило и выводило красиво т.е.
Тест :
введи размерность m * n
5 5
Исходная матрица :
1 2 3 4 5
2 3 4 5 6
3 4 6 7 8
8 7 6 4 3
6 5 4 3 2
|
|
min@y™ (статус: Доктор наук), 23 мая 2011, 16:10 [#2]:
Ввод матриц вручную - это всегда некрасиво, муторно и долго. Я, обычно, когда отлаживаю функции для работы с матрицами, заполняю исходную матрицу случайными числами. Вывод же я форматирую с помощью оператора ":". Вот пример:
procedure MakeMatrix(const ARows, ACols: Integer);
var
i, j: Integer;
begin
SetLength(FMatrix, ARows, ACols);
for i:= 0 to ARows - 1 do
for j:= 0 to ACols - 1 do
FMatrix[i, j]:= RandomRange(-50, 51);
end;
procedure PrintMatrix(const X: TMatrix);
var
Row, Col: Integer;
begin
for Row:= 0 to High(X) do
begin
for Col:= 0 to High(X[0]) do
Write(X[Row, Col]: 4);
WriteLn;
end;
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
23 мая 2011, 16:16: Статус вопроса изменён на решённый (изменил автор вопроса — Олег FunkyMen): Проехали...
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
