Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на логическую функцию
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Lodar'
Составить логическую функцию proba(A,n) принимающую значение true, если компоненты вектора А образуют арифметическую прогрессию, и значение false - в противном случае.
Вот мои наработки:

program Pr2;
const
maxsize=100;
type
tvector=array [1..maxsize] of integer;
function proba (A: tvector; n:integer):boolean;
var
i:integer;
c:array [1..(maxsize-1)] of integer;
begin
for i:=1 to n-1 do
begin
c[i]:=A[i+1]-A[i];
end;
for i:=1 to n-1 do
begin
if c[i]=c[i+1] then continue
else
begin
result:=false;
exit;
end;
end;
result:=true;
end;

var
B:tvector;
n,i: integer;
D:boolean;
begin
writeln('введите размерность вектора');
readln(n);
for i:=1 to n do
begin
writeln('введите',i,'й элемент вектора');
readln(B[i]);
end;
D:=proba(B,n);
if D then writeln('да, арифметическая прогрессия')
else writeln('нет, не арифметическая прогрессия');
readln;
end.

нормально? или можно что нибудь улучшить чтоб было более рационально? подскажите пожалуйста!
volvo
Цитата
нормально? или можно что нибудь улучшить чтоб было более рационально?
Можно и улучшить... Например, непонятно, зачем тебе еще один массив. Не проще ли запомнить разность между первым и вторым элементами массива, а потом проверять все остальные разности? Вот так как-нибудь:
function proba (A: tvector; n:integer):boolean;
var
i, delta: integer;
begin
delta := a[2] - a[1];
result := false;
for i := 1 to n - 1 do begin
if (A[i+1] - A[i]) <> delta then exit;
end;
result := true;
end;

?
Lodar'
Cпасибо за совет) учту.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.