Описать логическую функцию, проверяющую, все ли числа, на которые ссылаются элементы вектора x, нечетные

@qqwka · Регистрация: 21.02.2015

Студворк — интернет-сервис помощи студентам

Задание: Описать логическую функцию ifodd(x), которая проверяет, все ли числа, на которые ссылаются элементы вектора x, нечетные

Условие:

Pascal

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

Помогите, полную программу надо с использованием указанной в задании функции ifodd(x)

@Puporev · 21.02.2015, 17:32

Pascal

type    ref = ^real;
vector = array[1..10] of ref;
function ifodd(a:vector;n:byte):boolean;
var i:byte;
begin
result:=true;
i:=1;
while(i<=n)and result do
if (frac(a[i]^)<>0)or not odd(trunc(a[i]^))
then result:=false else inc(i)
end;
var a:vector;
    n,i:byte;
begin
repeat
write('Размер вектора от 1 до 10 n=');
readln(n);
until n in [1..10];
writeln('Введите элементы вектора');
for i:=1 to n do
 begin
  new(a[i]);
  readln(a[i]^);
 end;
if ifodd(a,n) then write('Все элементы нечетные')
else write('Не все элементы нечетные')
end.

@qqwka · 21.02.2015, 17:43 **[ТС]**

Все хорошо, благодарю

@qqwka 0 / 0 / 0 Регистрация: 21.02.2015 Сообщений: 8
	21.02.2015, 17:43 [ТС]	3
	Все хорошо, благодарю 0

Опции темы