протабулировал функцию!надо дополнительное задание сделать!

[IceFlame1292]

VAR
x,y,h:REAL;
i:INTEGER;
BEGIN
h:=0.1;
For i:=0 to 10 do
begin
x:=h*i;
y:=ABS(cos(2*x)/((3*x)-pi))+2.54;
WriteLn(x:3:1,y:15:5);
end;
ReadLn;
END.
функцию протабулировал а еще надо вычислить произведение и количество всех значений у,для которых выполняются неравенства у>0.4 или y<-3.С вот этим у меня возникла проблема незнаю что и в какое место надо вписать в програмее что бы сделать это дополнительное задание!помогите пожалуста!заранее огромное спасибо!

[Valio]

в какое место надо вписать в програмее что бы сделать это дополнительное задание

For i:=0 to 10 do
begin
x:=h*i;
y:=ABS(cos(2*x)/((3*x)-pi))+2.54;

// Сюда.

WriteLn(x:3:1,y:15:5);
end;

Для этого надо будет ввести ещё две переменых. Одну для произведения, а вторую для кол-ва всех значений.

[IceFlame1292]

основные условия протабулировать функция (сама функция написана в программе выше) на отрезке [0;3] с шагом h=0.1*3.результаты вывести на экран в виде таблицы пар чисел x,y.посотрите может и протабулировал не так!потому что таблицу выводит а правильная она или нет я точно незнаю!

[Valio]

Конечно не правильно.

на отрезке [0;3] с шагом h=0.1*3

Поразмышляй над этой фразой и ответь на вопросы:

1. Чему равно приращение x при каждой итерации цикла.
2. Сколько итерация цикла нужно для того чтоб дойти от 0 до 3.

PS: и судя по всему лучше воспользоваться немного другим циклом... Repeat .. until например.

[IceFlame1292]

а переменну произведение и количество можно обозначить любыми символами или какими то определенными??? место я понял и переменные введу !!!а что именно прописать в это место??? подскажите пожалуста

[IceFlame1292]

т е i:=0 to 30 do а приращение х при кадой интерции цикла вообще не понятно!я просто по програмированию не очень !все вот пытаюсь свою семестровую сделать!

[IceFlame1292]

можете помочь переделать программу что б все правильно выходило

[Valio]

а переменну произведение и количество можно обозначить любыми символами или какими то определенными???

Обозначить можно теми символами, которые допускаются правилами компилятора.

proizv : Real; - произведение
kol : Integer; - количество

а что именно прописать в это место???

Вероятно какието математические операции )

proizv := proizv * y;
k := k + 1;

При этом в начале программы нужно задать proiz := 1 а k := 0.
А также учесть

для которых выполняются неравенства у>0.4 или y<-3

блоком If ... Then.

[IceFlame1292]

спасибо)и еще 1!можете обяснить что означает :"чему равно прирощение х при каждой интерции цикла"???

[Valio]

на отрезке [0;3] с шагом h=0.1*3

Шаг h = 0.1*3 = 0,3 - прирощение х при каждой интерции цикла

Тогда потребуется 3/0.3= 10 итерация цикла.

Тоесть должно быть так:

h:=0.3;
For i := 1 to 10 do
begin
x:= x + h;