Код
type ref = ^integer;
vector = array[1..17] of ref;
vector = array[1..17] of ref;
Описать логическую функцию Fod(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, четные и отрицательные.
Полная версия: про элементы вектора
Не догоню я ее никак!
Описать логическую функцию Fod(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, четные и отрицательные.
Описать логическую функцию Fod(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, четные и отрицательные.
Где-то я это уже видел...
Function Fod(x:Vector):Boolean;
Var
i:Integer;
Begin
Fod:=False;
For i:=1 To 17 Do
If Not Odd(x[i]^) Then
Exit
Else
If x[i]>=0 Then
Exit;
Fod:=True
End;
Код
Function Fod(x:Vector):Boolean;
Var
i:Integer;
Begin
Fod:=False;
For i:=1 To 17 Do
If Not Odd(x[i]^) Then
Exit
Else
If x[i]>=0 Then
Exit;
Fod:=True
End;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.