Question

Buna, am nevoie de ajutorul vostru la informatica(programare), trebuie sa rezolv problema data in doua limbaje de programare Pascal si C++, va multumesc :))

Se dau două liste de numere întregi :

a) Să se scrie un subprogram care verifică dacă listele sunt egale;

b) Să se scrie un subprogram care verifică dacă o listă se conține în alta;

c) Să se scrie o funcție care returnează numărul de componente comune ale listelor.

Answer 1

Program Lista;
var a,b :string;
i,l1,l2: integer;
M1,M2 : set of char;
M,N,P : set of char;
x : char;
begin
writeln('Dati prima lista de numere intregi:');
readln(a);
writeln('Dati doilea lista de numere intregi');
readln(b);
l1:=length(a);
l2:=length(b);
M1:=[]; M2:=[];
for i:=1 to l1 do
M1:=M1+[a[i]];
for i:=1 to l2 do
M2:=M2+[b[i]];
M:=M1+M2;
N:=M1*M2;
P:=M1-M2;
writeln('Numere din lista care sunt egale:');
for x:='0' to '9' do
begin
if x in P then
 write(x,' ');
end;
writeln;
writeln('Numere din lista care se contin in alta ');
for x:='0' to '9' do
beginif x in M then
write(x,' ');
end;
writeln;
writeln('Numere din lista care sunt comune');
for x:='0' to '9' do
begin
if x in N then
 write(x,' ');
end;
writeln;
readln;
end.