срочно нужно реализовать 2 проги на паскале...

[LoL]

завтра экзамен мне самому ещё 15 штук написать надо...
времени ппц нет помогите плз...

1)Вводится две строки из нулей и единиц. В результирующую строку записать сумму двоичных чисел из введенных строк.

2)Заданы два одномерных массива. Постройте массив, содержащий все элементы, которые входят или в первый массив, или во второй, но не в оба вместе. Элементы полученного массива сохранить в файл.

[mihali4]

http://programmersforum.ru/showpost....45&postcount=2

[LoL]

видимо Артамон на 2 универа работает....

[ZVEREV]

имхмо)))))

[NOOB]

перевод из двоичного в целое и обратно

function BinToDec(Bin : string): integer;
var
 i : integer;
 dec : integer;
begin
  dec:=0;
  i:=1;
  while i<=length(Bin) do
  begin
    dec :=dec*2+StrToInt(Bin[i]);
    i:=i+1;
  end;
  Result:=dec;
end;

function DecToBin(Dec : integer): string;
var
 i : integer;
 str,Bin : string;
begin
  while (dec div 2)<>0 do
  begin
    if (dec mod 2)=0 then
    begin
      dec :=dec div 2;
      str:=str+'0';
    end
    else
    begin
      dec :=(dec div 2);
      str:=str+'1';
    end;
  end;
  if dec >0 then str:=str+'1';
  Bin:=str;
  i:=1;
  while i<=length(str) do
  begin
    Bin[length(str)-i+1]:=str[i];
    i:=i+1;
  end;
  Result:=Bin;
end;

Например:

var
x1,x2,y :integer;

x1:=BinToDec(String1);
x2:=BinToDec(String2);
y:=x1+x2;
DecToBin(y); - вернет ответ в двоичной системе в строке

[LoL]

а зачем так сложно? но всёравно спасибо...
со второй помогите плиз...

[Sazary]

Вторая задача:

uses crt;
const m=5; n=8;
var
A : array[1..m] of integer;
B : array[1..n] of integer;
x : array[1..m+n] of integer;
i,j,k : integer;
fl : boolean;
f : text;
begin
clrscr;
assign(f,'fileout.txt');
randomize;
writeln('Massiv A:');
for i:=1 to m do
 begin
 A[i] := random(20);
 write(A[i]:4);
 end;
writeln;
writeln('Massiv B:');
for i:=1 to n do
 begin
 B[i] := random(20);
 write(B[i]:4);
 end;
writeln;
{--------}
k:=1;
for i:=1 to m do
  begin
  fl := false;
  for j:=1 to n do
   if A[i]=B[j] then
     begin
     fl := true;
     break;
     end;
  if fl then continue;
  for j:=i+1 to m do
   if A[i]=A[j] then
     begin
     fl := true;
     break;
     end;
  if fl then continue;
  x[k] := A[i];
  inc(k);
  end;
{--}
for i:=1 to n do
  begin
  fl := false;
  for j:=1 to m do
   if B[i]=A[j] then
     begin
     fl := true;
     break;
     end;
  if fl then continue;
  for j:=i+1 to n do
   if B[i]=B[j] then
     begin
     fl := true;
     break;
     end;
  if fl then continue;
  x[k] := B[i];
  inc(k);
  end;
{-------}
rewrite(f);
for i:=1 to k-1 do
  write(f,x[i]:4);
close(f);
readln;
end.

[NOOB]

Сообщение от LoL

а зачем так сложно?

Ну были у меня уже эти функции реализованы, да и тебе на будущее может быть пригодятся

[LoL]

спасиб))) огромное...