Question

Pascal nhập xuất file:

Cho trước 2 dãy số nguyên. Hãy tìm các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2.

Dữ liệu nhập: Cho trong file DAYSO.INP gồm 4 dòng:

-Dòng đầu chứa số nguyên dương M(1<=M<=100)

-Dòng thứ hai chứa M số nguyên của dãy thứ nhất

-Dòng thứ ba chứa số nguyên dương N(1<=n<=100)

-Dòng thứ tư chứa N số nguyên của dãy thứ 2

Dữ liệu ra: cho trong file DAYSO.OUT chứa các số thuộc dãy thứ nhất mà không thuộc dãy thứ 2 hoặc thông báo"no solution" nếu không tìm thấy

Giúp mình nhé sắp thi rồi!!

Answer 1

const fi='dayso.inp';
fo='dayso.out';
var f1,f2:text;
a,b,c,d:array[1..100]of integer;
m,n,i,j,dem,kt,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
for i:=1 to m do
read(f1,a[i]);
readln(f1);
readln(f1,n);
for j:=1 to n do
read(f1,b[j]);
c[1]:=b[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if b[i]=c[j] then kt:=1;
if kt=0 then
begin
inc(dem);
c[dem]:=b[i];
end;
end;
dem1:=0;
for i:=1 to m do
for j:=1 to dem do
if a[i]=c[j] then
begin
inc(dem1);
d[dem1]:=a[i];
end;
if dem1=0 then writeln(f2,'no solution')
else begin
for i:=1 to dem1 do
write(f2,d[i]:4);
end;
close(f1);
close(f2);
end.