Формат вывода

@Tonop_0 · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

здравствуйте. вот задача "Напишите программу, увеличивающую каждый элемент матрицы (n,m) в 3 раза и сохраняющую результат в виде второй матрицы."
вот как я её сделал (размеры матрицы произвольные, поэтому выбрал 2,4):

Код

program number_6;
var a:array[1..2]of array [1..4] of integer;i,j:integer;
begin
for i:=1 to 2 do
for j:=1 to 4 do 
begin
writeln('введите a[',i,'',j,']');
readln(a[i,j]);
end;
writeln('новый массив');
for i:=1 to 2 do
for j:=1 to 4 do
begin
a[i,j]:=3*a[i,j];
write(a[i,j],' ');
end;
end.

Вот что в окне вывода проги PascalABCNET
вопрос: почему все элементы двумерного массива выведены в одну строку?
ps. я только учусь

@SuPeR XaKer · 19.12.2011, 19:36

Pascal

for i:=1 to 2 do
 begin
  for j:=1 to 4 do
   begin
    a[i,j]:=3*a[i,j];
    write(a[i,j],' ');
   end;
  writeln;
 end;

@Tonop_0 · 27.12.2011, 16:59 **[ТС]**

немного не в тему, но вот посмотрите пожалуйста, что не так с эти кодом

Pascal

program pro91;
type matr=array[1..10,1..10] of integer;
var
n,m,p,o,i,j:byte;
a,b:matr;
min1,min2:integer;
procedure W(l,k:byte; var x:matr);
begin
writeln ('Введите массив ',l,'*',k);
for i:= 1 to l do
for j:= 1 to k do read (x[i,j]);
end;
procedure Y(l,k:byte;x:matr; var min:integer);
begin
min:=x[1,1];
for i:=1 to l do
for j:=1 to k do
if min>x[i,j] then min:=x[i,j];
writeln ('min=', min);
end;
begin
writeln ('Введите n,m');
readln (n,m);
W(n,m,a);
Y(n,m,a,min1);
writeln ('Введите p,o');
readln (p,o);
W(p,o,b);
Y(p,o,b,min2);
end.

ошибка: Program1.pas(10) : Переменная цикла for должна описываться в том же блоке, что и цикл for

@Tonop_0 0 / 0 / 1 Регистрация: 20.09.2011 Сообщений: 51
		1
	Формат вывода 19.12.2011, 18:42. Показов 1944. Ответов 2 Метки нет (Все метки) здравствуйте. вот задача "Напишите программу, увеличивающую каждый элемент матрицы (n,m) в 3 раза и сохраняющую результат в виде второй матрицы." вот как я её сделал (размеры матрицы произвольные, поэтому выбрал 2,4): Код program number_6; var a:array[1..2]of array [1..4] of integer;i,j:integer; begin for i:=1 to 2 do for j:=1 to 4 do begin writeln('введите a[',i,'',j,']'); readln(a[i,j]); end; writeln('новый массив'); for i:=1 to 2 do for j:=1 to 4 do begin a[i,j]:=3*a[i,j]; write(a[i,j],' '); end; end. Вот что в окне вывода проги PascalABCNET вопрос: почему все элементы двумерного массива выведены в одну строку? ps. я только учусь Миниатюры 0

	27.12.2011, 16:59

Формат вывода

Решение