Ссылки

[maks77]

Помогите сделать:

1. Условие:

type	tof = ^real;
vector = array[1..10] of tof;

Задание: Описать логическую функцию same(z), которая проверяет, есть ли в векторе x хотя бы две одинаковые ссылки.

2. Условие:

type	Link = ^Node;
	Node = record
	X : integer;
	Next: Link;
end;
var	L: Link;

Задание:
Из очереди L создайте две новые очереди: L1 и L2. При этом в первую из них поместите все чётные элементы исходной очереди, а во вторую – все нечетные.

[Stilet]

Описать логическую функцию same(z), которая проверяет, есть ли в векторе x хотя бы две одинаковые ссыл

function same(z:Vector):Boolean; var i,j,k:integer;
begin
 k:=0;
 for i:=1 to 10 do for j:=i+1 to 10 do begin
  if z[i]=z[j] then inc(k);
  if k>1 then begin same:=true; exit;end;
 end;
 same:=false;
end;

[maks77]

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

function same(z:Vector):Boolean; var i,j,k:integer;
begin
 k:=0;
 for i:=1 to 10 do for j:=i+1 to 10 do begin
  if z[i]=z[j] then inc(k);
  if k>1 then begin same:=true; exit;end;
 end;
 same:=false;
end;

А не сможешь пожалуйста полностью всё написать?

[Stilet]

Это и есть полное описание по условию.

Из очереди L создайте две новые очереди: L1 и L2.

var k:Link;
...
L1:=nil; L2:=nil;
while L<>nil do begin
 new(k);
 k^.x:=L^.x;
 if odd(L^.x) then begin
  if L1<>nil then L1^.next:=k;
  L1:=k;
 end else begin
  if L2<>nil then L2^.next:=k;
  L2:=k;
 end;
 L:=L^.next;
end;

[maks77]

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

function same(z:Vector):Boolean; var i,j,k:integer;
begin
 k:=0;
 for i:=1 to 10 do for j:=i+1 to 10 do begin
  if z[i]=z[j] then inc(k);
  if k>1 then begin same:=true; exit;end;
 end;
 same:=false;
end;

Сможешь написать полностью работающую программу(чтобы массив надо было вручную вводить - это по первому заданию)?

[Stilet]

Нет, не смогу. Только не спрашивай почему )