Паскаль. Массивы

[VD1988]

Спасибо огромное!!! Как сделать, чтобы массив выводился через пробел?

[Lemo]

См предвидущий пост(код)

[VD1988]

СПАСИБО!!! Как с паскаля вытащить текст программы (поместить его на форум, чтобы не печатать)?

[Lemo]

Сообщение от VD1988

СПАСИБО!!! Как с паскаля вытащить текст программы (поместить его на форум, чтобы не печатать)?

Обводишь текст, копируешь(Cntr+C), "идешь" на форум и потом в вставляешь(Cntr+V) в теги (при нажатии на #)!
ЗЫ: вопрос по теме закрыт!

[VD1988]

В заданной матрице поменять местами первую строку и первый столбец. Не могу никак понять почему меняются только два значения, а не три! Подскажите пожалуйста в чём ошибка?

program matr;
const n=3;
m=3;
type tmatr=array[1..n,1..m] of real;
var a:tmatr;
x:real;
pos,i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
read (a[i,j]);
readln
end;
writeln ('исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:10:2);
writeln
end;
begin
for i:=1 to n do
for j:=1 to m do
begin
x:=a[1,j];
a[1,j]:=a[i,1];
a[i,1]:=x;
end;
end;
writeln('перестановка столбцов:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:10:2);
writeln
end;
readln
end.

[VD1988]

Подскажите пожалуйста!!!

[Lemo]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const n=3;
m=3;
type tmatr=array[1..n,1..m] of real;
var a:tmatr;
x:real;
pos,i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
read (a[i,j]);
readln
end;
writeln ('исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:10:2);
writeln
end;
begin
for i:=n downto 1 do
for j:=1 to m do
begin
x:=a[1,j];
a[1,j]:=a[i,1];
a[i,1]:=x;
end;
end;
writeln('перестановка столбцов:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:10:2);
writeln
end;
readln
end.

ЗЫ: в следующий раз, создавайте новую тему!

[VD1988]

Большое спасибо!!!

[VD1988]

Скажите пожалуйста какой смысл несут c, b в программе? Например i - это переменная цикла, k - это заменяемая компонента.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=10;

var
a:array[1..n] of integer;
i,k,max,c,b:integer;
flag:Boolean;

begin

randomize;
for i := 1 to n do
begin
a[i]:=random(25)+1;
write(a[i],' ');
end;

writeln;
write('k= ');
readln(k);


c:=0;
max:=a[1];
for I := 1 to n do
begin
if max<a[i] then
begin
max:=a[i];
c:=i;
end;


end;

write('max= ', max);
writeln;

for I:= 1 to n do
begin
if a[i]=k then
begin

writeLn('K ege est` v massive');
break;

end;
end;



for I:= 1 to n do
begin
if a[i]<>k then
begin

b:=a[c];
a[c]:=k;
k:=a[c];

end ;
end;



for i := 1 to n do
begin

write(a[i],' ');
end;
writeln;



readln;
end.

[Lemo]

C запоминает индекс, максимального елемента(для перестановки елема)
B дополнительная переменная для обмена елемами массива!