PDA

Просмотр полной версии : ОЧЕНЬ НУЖНА ПОМОЩЬ С ПАСКАЛЕМ



heiress
09.03.2008, 14:47
заданы 2 числовых массива без повторений.Сформировать третий, в который поместить числа:
а)содержащиеся в обоих массивах
б)содержащиеся в первом , но отсутствующие во втором
в)содержащиеся хотя бы в одном из двух массивов,т.е или в первом, или во втором (если числа есть в обоих массивах, в новом массиве оно должно появиться один раз).
пожалуйста помогите!!!

Medved
09.03.2008, 15:06
program lalala;
const maxn=100;
type arr=array[1..maxn] of integer;
var a,b:arr;
n1,n2,j:integer;
function numberin(x,size:integer;y:arr):boolean;
var i:integer;
begin
i:=1;
while (i<=size)and(y[i]<>x) do inc(i);
numberin:=(i<=size);
end;

begin
writeln('Количество чисел 1-го массива');
read(n1);
writeln('Числа:');
for j:=1 to n1 do
read(a[j]);
writeln('Количество чисел 2-го массива');
read(n2);
writeln('Числа:');
for j:=1 to n2 do
read(b[j]);
{Задание a) }
Write('В обоих массивах:');
for j:=1 to n1 do
if numberin(a[j],n2,b) then write(a[j],', ');
writeln;
{Задание б) }
writeln('В первом есть, во втором нет:');
for j:=1 to n1 do
if not numberin(a[j],n2,b) then write(a[j],', ');
writeln;
{Задание в) }
writeln('Есть хотя бы в одном массиве');
for j:=1 to n1 do write(a[j],', ');
for j:=1 to n2 do
if not numberin(b[j],n1,a) then write(b[j],', ');
writeln;
readln;
end.

heiress
09.03.2008, 15:42
Medved
programmer спасибо большое!!!