fork download
copy 
  1. program metszetkepzes_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(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 metszetét!(kozos elemeit)
  24.   k:=0;
  25.   for i:=1 to n do begin
  26.     j:=1;
  27.     while (j<=m) and (a[i]<>b[j]) do
  28.       j:=j+1;
  29.     if j<=m then begin
  30.       l:=1;
  31.       while (l<=k) and (c[l]<>a[i]) do
  32.         l:=l+1;
  33.       if l>k then begin
  34.         k:=k+1;
  35.         c[k]:=a[i];
  36.       end;
  37.     end;
  38.   end;
  39.   writeln('az a es b metszete a c tombben: ');
  40.   for i:=1 to k do
  41.     write(c[i], ' ');
  42.   readln;
  43. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
4 6 5 5 4 7 6 6 0 5 
4 3 5 1 7 6 7 0 7 5 4 5 
az a es b metszete a c tombben: 
4 6 5 7 0
https://ideone.com/sgR7yq
language:
Pascal (gpc 20070904)
created:
8 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!