Размещено: Игорь Владимирович Лашманов - вт, 20/10/2009 - 20:48
Тема: Паскаль «Алгоритмы обмена»
1)с помощью переменнойx
x:=a;
a:=b;
b:=x;
2)без вспомогательной переменной
a:=a+b;
b:=a-b;
a:=a-b;
3)логической переменнойxor
a:=a xor b;
b:=a xor b;
a:=axorb;
Задание: Имеется массив изNцелочисленных элементов, 2<N<100. Поменять местами элементы, стоящие на четных номерах на элементы, стоящие на нечетных номерах.
var
i,n:integer;
a:array[1..11] of integer;
procedure swap(var a,b:integer);
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
begin
assign(input,'input.txt');
assign(output,'output.txt');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
i:=1;
while i<n do
begin
swap(a[i],a[i+1]);
writeln(a[i],' ',a[i+1]);
inc(i,2);
end;
for i:=1 to n do write(a[i],' ');
end.
ДЗ: Составить программу, где условие обмена четность и нечетность соседних элементов.
