перевод массивов.Паскаль

[dimka123]

помогите плиз...дан двумерный массив(размерность любая и ввод элементов любой);сформироваться из него одномерный ,так что бы не было одинаковых элементов .т.е
1 2 3 4
2 3 4 5
6 7 8 9
10 12 13 14
одномерный -1 2 3 4 5 6 7 8 9 10 11 12 13 14 (повторяющиеся элементы что бы не выводил!

[Mad_Cat]

const n=4;
var Mx:array[1..n,1..n] of integer;
vc:array[1..n*n] of integer;
i,j,k,m:integer;
f:boolean;
begin
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
f:=true;
Mx[i,j]:=random(n*n)+1;
for m:=1 to k do
if vc[m]=mx[i,j] then begin f:=false;break;end;
if f then begin k:=k+1; vc[k]:=mx[i,j]; end;
write(mx[i,j],' ');
end;
writeln;
end;
For i:=1 to k do write(vc[i],' ');
readln;
end.

результат

2 7 10 14
16 16 2 4
11 11 10 4
2 15 7 11
2 7 10 14 16 4 11 15

[dimka123]

спасиб огромное!

[dimka123]

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

const n=4;
var Mx:array[1..n,1..n] of integer;
vc:array[1..n*n] of integer;
i,j,k,m:integer;
f:boolean;
begin
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
f:=true;
Mx[i,j]:=random(n*n)+1;
for m:=1 to k do
if vc[m]=mx[i,j] then begin f:=false;break;end;
if f then begin k:=k+1; vc[k]:=mx[i,j]; end;
write(mx[i,j],' ');
end;
writeln;
end;
For i:=1 to k do write(vc[i],' ');
readln;
end.

результат

объясни плиз. училка придралась к некоторым вещам.... как цикл может работать от 1 до 0 и что к чему мы присваиваем(какие именно элементы)...или лучше по проще написать программу..оч надо...!

[Mad_Cat]

или лучше по проще написать программу

куда уж проще

как цикл может работать от 1 до 0

а он и не работает

[dimka123]

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

куда уж проще
а он и не работает

эм..тогда в чем смысл данного цикла и дальше.... сначала что к А[m] мы присваиваем какие элементы и какие к А[k]
и какое идет условие после F:=true а какое после false

[Zer0]

можно решить чуточку элегантнее

const n=5;
var a1:array[1..n,1..n] of byte;
     a2:array[1..n*n] of byte;
     d:set of byte;
     i,j,k:integer;
begin
randomize;
k:=0;
d:=[];
for i:=1 to n do
 for j:=1 to n do begin
   a1[i,j]:=random(n*n);
   if not (a1[i,j] in d) then begin
      inc(k);
      a2[k]:=a1[i,j];
      d:=d+[a1[i,j]];
   end;
 end;

for i:=1 to k do write (a2[i],' ');
writeln;
end.

Mad_Cat, а кто говорил что будет легко

[Mad_Cat]

Zer0, а при наличие отрицательных элементов вся ваша элегантность летит((

[dimka123]

а мжет просто объясните мальчику,как и что получается......и что для чего нужно и что к чему присваивается......к завтрому надо....срочняк.

[Mad_Cat]

а мжет просто объясните мальчику

а может мальчик почитает учебник по паскалю и попробует написать свой вариант проги?