DUzun's Web
Programare, proiecte personale, divertisment

Program p31b_4;    {Pag. 57}

{--------------------------------------------------------------

    Se dau doi vectori de numere intregi, 

    fiecare reprezentand o multime.

    La citirea componentelor, algoritmul va urmari ca 

    vectorul sa fie multime.

    Sa se determine:

        b) Intersectia multimilor

 --------------------------------------------------------------}

​

uses CRT;

const

     Max_Elem = 1000;

​

     {Elementul nr 0 din orice multime va indica nr de elemente din multime}

type

     Elemente = 0..Max_Elem;

     Multime = array[Elemente]of integer;

​

var

    i, j, ne: Elemente;

    a, b, m: Multime;

    msg: string;

​

begin

 a[0] := 0;

 Writeln('Introdu nr de elemente din multimea A (0..', max_elem, ')');Readln(ne);

 for i := 1 to ne do begin

  Write(i, ') '); Readln(a[a[0]+1]);

  j := 1; while(j<a[0])and(a[a[0]+1]<>a[j])do inc(j);

  if(a[0] = 0)or(a[a[0]+1]<>a[j])then inc(a[0]);

 end;

 b[0] := 0;

 Writeln('Introdu nr de elemente din multimea B (0..', max_elem, ')');Readln(ne);

 for i := 1 to ne do begin

  Write(i, ') '); Readln(b[b[0]+1]);

  j := 1; while(j<b[0])and(b[b[0]+1]<>b[j])do inc(j);

  if(b[0] = 0)or(b[b[0]+1]<>b[j])then inc(b[0]);

 end;

​

{b)}

 m[0] := 0;

 for i := 1 to a[0] do for j := 1 to b[0] do if a[i] = b[j] then begin

  inc(m[0]);

  m[m[0]] := a[i];

 end;

​

  Msg := 'Intersectia A si B: ';

  Write(Msg);

 for i := 1 to m[0] do begin

  if WhereY = hi(windmax)then begin

   Writeln('Apasa o tasta!');

   readkey;

   clrscr;

  end;

  Write(m[i]:8);

 end;

 writeln;

​

readkey

end.

​

​