fork download
copy 
  1. program uniokepzes_egyedielemek;
  2. const n = 10;
  3.       m = 12;
  4. var a: array [1..n] of integer;
  5.     b: array [1..m] of integer;
  6.     c: array [1..n+m] of integer;
  7.     i, j, k, l: integer;
  8. begin
  9.   randomize;
  10.   //tömbök elkészítése
  11.   for i:=1 to n do
  12.   begin
  13.     a[i]:=random(7);
  14.     write(a[i], ' ');
  15.   end;
  16.   writeln;
  17.   for j:=1 to m do
  18.   begin
  19.     b[j]:=random(7);
  20.     write(b[j], ' ');
  21.   end;
  22.   writeln;
  23.   //írjuk ki a c-be az a és b unióját!(egyesítsünk)
  24.   k:=0;
  25.   for i:=1 to n do begin
  26.     l:=1;
  27.     while (l<=k) and (c[l]<>a[i]) do
  28.       l:=l+1;
  29.     if l>k then begin
  30.       k:=k+1;
  31.       c[k]:=a[i];
  32.     end;
  33.   end;
  34.   //writeln(k);
  35.   for j:=1 to m do begin
  36.     i:=1;
  37.     while (i<=n) and (a[i]<>b[j]) do
  38.       i:=i+1;
  39.     if i>n then begin
  40.       l:=1;
  41.       while (l<=k) and (c[l]<>b[j]) do
  42.         l:=l+1;
  43.       if l>k then begin
  44.         k:=k+1;
  45.         c[k]:=b[j];
  46.       end;
  47.     end;
  48.   end;
  49.   writeln('az a es b unioja a c tombben: ');
  50.   for i:=1 to k do
  51.     write(c[i], ' ');
  52.   readln;
  53. end.
  54.  
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3 4 2 3 1 6 6 4 1 0 
6 2 6 3 0 1 3 0 3 1 1 1 
az a es b unioja a c tombben: 
3 4 2 1 6 0
https://ideone.com/dTtaeY
language:
Pascal (gpc 20070904)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!