Question

Scrieti un program care introduce de la tastatura 2 multimi A si B cu numere din intervalul 10..99 si calculeaza reuniunea acestor multimi. Programul imi trebue in turbo pascal si 2 exemple de calcul final diferite. va rog foarte tare imi trebue pe luni.!!!!!!!!!!!!!

Answer 1

Ai aici o rezolvare. Am notat cu V1 si V2, A si B iar V3 reprezinta reuniunea. Nu l-am testat ca nu mai am Pascal instalat de ani buni. Principiul de rezolvare e urmatorul:

In vectorul reuniune copiezi primul vector.

Dupa parcurgi al doilea vector element cu element si verifici daca elementul din v2 este sau nu in primul vector. Daca nu este atunci il adaugi la coada la v3.

program HelloWorld;

type vector=array[1..100] of integer;

var v1,v2,v3:vector;

   n1,n2,n3,i,j:integer;

   sem:boolean;

begin

   write('n1=');

   readln(n1);

   for i:=1 to n1 do

       write('v1[',i,']=');

       readln(v1[i]);

   write('n2=');

   readln(n2);

   for i:=1 to n1 do

       write('v2[',i,']=');

       readln(v2[i]);

   n3:=n1;

   for i:=1 to n1 do

       v3[i]:=v1[i];

   for i:=1 to n2 do

       begin

           sem:=false;

           for j:=1 to n1 do

               if(v2[i]=v1[j])then

                   sem:=true;

           if(sem=false)then

               begin

                   n3:=n3+1;

                   v3[n3]:=v2[i];

               end;

       end;

   for i:=1 to n3 do

       write(v3[i],' ');

end.