Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на масивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
ATAMAH
Помогите плиз найти ошибку в программе. Задание следующие:
Дан двумерный массив действительных чисел размером NxN. Поменять местами строки с номерами 1 и 3, 4 и 6, 7 и 9 и т. д.

Сама программа:
 
uses crt;
const n=9;
type mas=array [1..n,1..n] of integer;
procedure vvod(var m:mas);
var j,i:integer;
begin
for i:=1 to n do
for j:=1 to n do
m[i,j]:=random(15);
end;
procedure vivod(var m:mas);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
write(m[i,j]:3);
writeln;
end;
writeln;
end;
procedure ssort (var m:mas);
var j,i,k,p,d:byte;
begin
k:=3; i:=1;
while k <= n do
begin
for j:=1 to n do
begin
p:=m[i,j];
m[i,j]:=m[k,j];
m[k,j]:=p;
end;
i:=i+k;
k:=k+k;
end;
end;
var m:mas;
begin
randomize;
ClrScr;
vvod(m);
vivod(m);
ssort(m);
vivod(m);
readln;
end.

ATAMAH
Программа работает но стандартна не меняет последние 2 строки!! Я хотел это узнать!
Ozzя
k:=k+k;

?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.