завтра экзамен, КТО НИББУДЬ!!! отзовитесь!!!!!ПАСКАЛЬ....

[/Mari/]

это задание по пакалю, одномерные массивы, помогите пожалуйста.. выдает ошибку
Дано натуральное число n. Получить сумму тех чисел вида exp(3*ln(i))-3*sqr(n)+n , i=1,2,3...n , которые являются удвоенными нечётными. При отсутствии таких чисел искомая сумма равна нулю.
я написала программу, но он ошибку 26 выдает, посмотрите пожалуйста
program primer;
uses crt;
var s,i,n: integer;
a: array [1..25] of integer;
begin
write('n');
read(n);
s:=0;
for i:= 1 to n do
begin
a[i]:= exp (3*ln(i))- 3*i*sqr(n) +n;
if a[i] mod 2 =0 then if ((round(a[i]/2)mod 2=1)) then
s:= s+a[i] else s:=0;
end;
write ('s=',s);
readkey;
end.

[кусака]

1)у вас все переменные типа integer а оператор round работает с типом real. отсюда несоответствие.
2) у вас a[i] должно быть удвоеным т.е. 2*a[i]

[/Mari/]

а что делать, mod работает только с integer

[baster128]

Сто лет на Паскале не писал. Но почему массив ограничен 25, если N будет =26 то будет ошибка. Сделай динамический массив:

A:array of integer;
begin
....
SetLength(a,n);
...
end.

Мне думается будет тип-топ.

[baster128]

Сообщение от кусака

1)у вас все переменные типа integer а оператор round работает с типом real. отсюда несоответствие.
2) у вас a[i] должно быть удвоеным т.е. 2*a[i]

Кстати Round игнорирует integer только что проверил. Никакой ошибки.

[/Mari/]

ну помогите!!!!!

[/Mari/]

почему меня все игнорируют, если у вас получилось, скажите как пожалуйста!!!!

[baster128]

Сообщение от /Mari/

почему меня все игнорируют, если у вас получилось, скажите как пожалуйста!!!!

Я не знаю получилось или нет. Просто попробуй, что я предложил

program primer;
uses crt;
var s,i,n: integer;
a: array of integer;
begin
write('n');
read(n);
SetLength(a,n);
s:=0;
for i:= 1 to n do
begin
a[i]:= Round(exp (3*ln(i))- 3*i*sqr(n) +n);
if a[i] mod 2 =0 then if ((round(a[i]/2)mod 2=1)) then
s:= s+a[i] else s:=0;
end;
write ('s=',s);
SetLength(a,0);
readkey;
end.

Проверил на Делфи вроде компелится.

[tools]

a[i]:= exp (3*ln(i))- 3*i*sqr(n) +n

вот тут когда экспоненту считаем уже не целое число получается, а массив объявлен как array of integer, поменять надо и дальше идет операция mod, тоже для целых чисел. И кстати раз уж массив динамический, то длина N, а цикл от 0 до N-1.
Если правильно понял задание, то вот,посмотри такой вариант:

var
 i,n:integer;
 arr:array of real;
 summ:real;
 
 function nechet_X_2(b:real): boolean;
 var
   a:integer;
 begin
   nechet_X_2:=false;
   a:=round(b);
   if (a mod 2 = 0) and odd(a div 2) then                                    
      nechet_X_2:=true
 end;
 
begin
  summ:=0;
  write('Введите размерность массива:');
  readln(n);
  setlength(arr,n);
for i:=0 to n-1 do
begin
  arr[i]:=exp(3*ln(i))-3*sqr(n)+n;
  if nechet_X_2(arr[i]) then
  begin
    summ:=summ+arr[i];
    writeln(arr[i]:4:2);
  end;
end;
  writeln(#13#10'Сумма:',summ:4:2)  
end.

[/Mari/]

СПАСИБО ВСЕМ !!!!!! СПАСИБО ОГРОМНОЕ, вы просто супер!!!!