Доброго времени суток, уважаемые форумчане.
Задача.
В матрице mxn есть столбец (скажем первый), где элементы повторяются нужно удалить повторяющиеся строки.
Ввод - вывод в файл. Кажется я запутася в циклах.
Вот что у меня получилось.
Если у Вас будет время, пожалуйста, помогите найти ошибку.
Если строка плохая, то вы в Y копируете весь хвост X, а если строка хорошая, то в Y ничего не пишется, это ошибка.
Подскажите, где она, эта ошибка? Что исправить?
Ошибка примерно тут:
{Esli o4erednoi element massiva X[i] raven posledyysemy, to}
if X[i,j]=X[i+1,j] then
begin
{delete element massiva s nomerom i}
for k:=i+1 to n+1 do
Y[i,j]:=X[i,j+1]; {Ymensaem razmer massiva}
n:=n-1
end
else i:=i+1;
Я немного упростил код, но все равно ничего не пойму.
Я постоянно путаюсь в индексах.
Логически все понятно: если 1-й элемент в 1-й строке не равен 2-му в 1-й строке, тогда
запишем его в новую матрицу под тем же номером(а следовательно и всю строку с ним), если нет, то проигнорируем (а следовательно всю эту строку выкинем из матрицы).
Но в итоге ничего не работает.
Помогите пожалуйста.
Вот новый код.
Program date_term;
const
e=5; g=3;
Type
mas=array[1..e,1..g] of integer;
var
X,Y:mas;
k,i,j,n,m:integer;
f:text; name,name1:string [10];
BEGIN
writeln ('Write name data file');
readln(name);
assign(f,name); reset(f);
for i:=1 to n do
for j:=1 to m do
read(f,X[i,j]);
readln(f);
close(f);
writeln ('Write 2 name output file');
readln(name1);
assign(f,name1); rewrite(f);
For i:=1 to n do
if X[i,j]<>X[i+1,j] then
begin
for i:=1 to n do begin
for j:=1 to m do
Y[i,j]:=X[i,j];
end;
end;
writeln (f,'New matrisa Y');
for i:=1 to n do begin
for j:=1 to m do
write(f,Y[i,j]:3);
writeln(f);
end;
close(f);
END.
Так ты же в коде ничего не поменял, только n:=n-1 убрал.
Давай как в статье, напиши функцию Good (i) (проверка строки на "хорошесть" - нужно ли её сохранять), функцию копирования одной строки...