Протабулировать функцию у = f(x) на отрезке [0; 24] с шагом h — 2,4

[tarhun69]

PascalABC
Протабулировать функцию у = f(x) на отрезке [0; 24] с шагом h — 2,4, . Результаты вычислений вывести на экран в виде таблицы пар чисел х, у. Вычислить количество и произведение тех значений функции у, для которых выполняется неравенство 1,13 < у < 5. Задачу решить с использованием оператора с параметром For.
Смог написать через while , попытался переделать на For но не получилось
Функция y=10.8*|cos(x^2/1.13)|*sin(x+1.4)

var
  col,umn,x,y:real;
begin
  x:=0;
  col:=0;
  umn:=1;
  for x:=0 to 24 do begin
  begin
    Y:=10.8*abs(cos(x*x/1.13))* sin( x+1.4);
    Write(x:3:1,' ');
    write(y:6:2);
    if (Y>1.3) and (Y<5) then
    col:=col+1;
    if (Y>1.3) and (Y<5) then
    Umn:=umn*y;
    
    X:=X+2.4;
    writeln;
  end;
  writeln('Количество: ',col);
  writeln('Умножение: ',umn:4:2);
  readln;
 
end;
end.

[type_Oleg]

Зачем у вас 2 шт begin:

for x:=0 to 24 do begin
  begin

И зачем 2 шт end в конце ? Хотя, есле это у вас модуль unit, а не program, то да , 2 шт.

Ну и главная ошибка, даже 2 шибки - переменная-счетчик в for - не ординарного типа ( x:real), а во вторых вы её еще и ставите в левую часть оператора приваивания X:=X+2.4;

Так что добавьте в var

i:Integer;

и поменяйте

for i:=0 to 10 do

и заработает.

Ну и кроме того, я не проверял саму арифметику и умножения для Y - неохота.
Кстати, вместо

col:=col+1;

есть

Inc(col);

[newerow1989]

const a=0;
      b=24;
      h=2.4;
var
  umn,x,y:real;
  col,i:integer;
begin
  col:=0;
  umn:=1;
  for i:=a to Round(b/h) do
  begin
    x:=i*h;
    Y:=10.8*abs(cos(x*x/1.13))* sin( x+1.4);
    Write(x:3:1,' ');
    write(y:6:2);
    if (Y>1.13) and (Y<5) then
    begin
       col:=col+1;
       Umn:=umn*y;
    end;
    writeln;
  end;
  writeln('Количество: ',col);
  writeln('Умножение: ',umn:4:2);
  readln;
end.