fork download
copy 
  1. program uniokepzes;
  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: 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(8);
  14.     write(a[i], ' ');
  15.   end;
  16.   writeln;
  17.   for j:=1 to m do
  18.   begin
  19.     b[j]:=random(8);
  20.     write(b[j], ' ');
  21.   end;
  22.   writeln;
  23.   //írjuk ki a c-be az a és b unióját!
  24.   //(egyesítünk)
  25.   for i:=1 to n do
  26.     c[i]:=a[i];
  27.   k:=n;
  28.   for j:=1 to m do begin
  29.     i:=1;
  30.     while (i<=n) and (a[i]<>b[j]) do
  31.       i:=i+1;
  32.     if i>n then begin
  33.       k:=k+1;
  34.       c[k]:=b[j];
  35.     end;
  36.   end;
  37.   writeln('az a es b unioja a c tombben: ');
  38.   for i:=1 to k do
  39.     write(c[i], ' ');
  40.   readln;
  41. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
5 6 1 6 3 1 7 3 5 0 
3 2 0 2 4 4 5 7 0 2 0 0 
az a es b unioja a c tombben: 
5 6 1 6 3 1 7 3 5 0 2 2 4 4 2
https://ideone.com/FyAxB9
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!