Anonymous user
Remove duplicate elements: Difference between revisions
→{{header|Pascal}}: add example
(→{{header|Pascal}}: add example) |
|||
Line 951:
vecsort(v,,8)
};</lang>
=={{header|Pascal}}==
<lang pascal>Program RemoveDuplicates;
const
iArray: array[1..7] of integer = (1, 2, 2, 3, 4, 5, 5);
var
rArray: array[1..7] of integer;
i, pos, last: integer;
newNumber: boolean;
begin
rArray[1] := iArray[1];
last := 1;
pos := 1;
while pos < high(iArray) do
begin
inc(pos);
newNumber := true;
for i := low(rArray) to last do
if iArray[pos] = rArray[i] then
begin
newNumber := false;
break;
end;
if newNumber then
begin
inc(last);
rArray[last] := iArray[pos];
end;
end;
for i := low(rArray) to last do
writeln (rArray[i]);
end.</lang>
Output:
<pre>% ./RemoveDuplicates
1
2
3
4
5</pre>
=={{header|Perl}}==
| |||