Lista 04 - UFMG

program l4p29;
var
M, N, C, I, offset : integer;
varA: array [1..30] of real;
varB: array [1..20] of real;
varC: array [1..50] of real;
begin
write('Digite o valor de M: ');
readln(M);
for C := 1 to M do
begin
write('Digite o ',C,'. valor da variavel A: ');
readln(varA[C]);
varC[C] := varA[C];
end;
offset := M;
write('Digite o valor de N: ');
readln(N);
for C := 1 to N do
begin
write('Digite o ',C,'. valor da variavel B: ');
readln(varB[C]);
for I := 1 to M do
if (varB[C] = varA[I]) then
I := M + 1 ; {para o loop}
if (I = M) then {O loop anterior terminou sem encontrar B = A}
begin
offset := offset + 1;
varC[offset] := varB[C];
end;
end;
writeln('Os valores da variavel composta A sao:');
for C := 1 to M do
write(varA[C]:6:3,' ');
writeln('');
writeln('Os valores da variavel composta B sao:');
for C := 1 to N do
write(varB[C]:6:3,' ');
writeln('');
writeln('Os valores de A U B sem elementos repetidos sao:');
for C := 1 to offset do
write(varC[C]:6:3,' ');
end.
UFMG – ICEx – DCC – Programação de Computadores – 2º. Sem 2005 – David Menoti 46