Процедура в Delphi,сумма элементов массива кратных трем.

[spectrum988]

Задание:Ввести массив F[0..6] и число C. Для каждого элемента массива вычислить функцию G=tg (F[i]/F[i]+C) . Найти сумму элементов введенного массива кратных 3.

procedure]TForm1.Button2Click(Sender: TObject);
var s,a: extended;
begin
C:=StrToInt(edC.Text);
s:=0;
  for i:=1 to N do
    F[i]:= StrToFloat(strgrF.Cells[0,i]);
  for i:=1 to N do begin
    a:=F[i]/F[i]+C;
    G[i]:=sin(a)/cos(a);
    strgrG.Cells[0,i]:=FloatToStrF(G[i],ffFixed,2,2);
    if (F[i] mod 3 = 0)
    Then S=F[i]+s;
  end;
Edit1.Text=S;

end;

end.

Выбивает ошибку в if (F[i] mod 3 = 0)

[Unique_Maks]

Самое очевидное

Then S := F[i] + s;
...
Edit1.Text := S;

[Serge_Bliznykov]

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

Выбивает ошибку в if (F[i] mod 3 = 0)

понятие кратности определено только для ЦЕЛЫХ чисел.
у Вас же вещественные числа.
Например, число 0.333 кратно трём?!

А если подходить формально, то можно избавится от ошибки, которую Вам выдаёт компилятор, например, так:

f (trunc(F[i]) mod 3 = 0) then ....

но ещё раз повторю - Вы, скорее всего, неправильно поняли условия задачи!

Ну, или автор задачи некомпетентен!

[spectrum988]

Спасибо исправил на trunc(F(I)),запускается но вот после нажатия кнопки выбивает ошибку.С чем это может быть связано?

[Аватар]

Найти сумму элементов введенного массива кратных 3.

Скорее элементов массива с индексом кратным трем.

после нажатия кнопки выбивает ошибку.С чем это может быть связано?

Видимо с секретной ошибкой в программе

[spectrum988]

Безымянный.jpg
Нет именно элементов,а не индексов.Столько уже над ней работаю,но все время одна и таже ошибка,что только не пробовал,может кто сталкивался ?

[Аватар]

Нет именно элементов,а не индексов

Не бывает плавающих кратных трем. Согласно этому условию в ответе ноль А в сообщении об ошибке все сказано, добавить нечего

[BDA]

Вы где-то пустую строку пытаетесь в число преобразовать. Наверное, в oncreate формы берете значения из edit'ов.

[Streletz]

Проблема в том, что mod работает только с целыми числами. Подробнее можно прочитать здесь.
Вы же ему вместо положенного integer, подсовываете float вещественное число.

[spectrum988]

Извиняюсь,что ранее не показал новый код,отредактированный и более правильный.
BDA:Я вообще опустил OnCreate свел задачу к минимуму

......................
const N=6;
type
 Mas1=array[1..N] of integer;
........
var
  F:Mas1;
...............
procedure TForm1.Button1Click(Sender: TObject);
var a,s,i:integer;
begin
S:=0;
  for i:=1 to N do
    F[i]:= StrToInt(StringGrid1.Cells[0,i]);
  for i:=1 to N do
  begin
    If (trunc(F[i]) mod 3=0)
    Then
    begin
    S:=F[i]+S;
    Edit1.Text:=IntToStr(S);
    end;
  end;
end;

Но без изменений,я уже вообще убрал считывание из Edit'ow.