Помогите пожалуйста написать код программы ** языке паскаль, учитывая некоторые...

Question

Помогите пожалуйста написать код программы на языке паскаль, учитывая некоторые методические требования

---

Comments

Вот методические указания

---

При выполнении заданий решить задачу одного из следующих типов:- табуляция (получить таблицу значений функции y=f(x) при изменении х наотрезке [a;b] с шагом h)или сумма или произведение (вычислить сумму илипроизведение значений функции y=f(x), удовлетворяющих заданнымограничениям, при изменении х на отрезке [a;b] с шагом h );

---

- Объявить в программе тип используемых переменных (целый иливещественный) в соответствии с содержанием задачи. Использоватьвещественные переменные с одинарной точностью;- Использовать в качестве параметра цикла переменную целого типа (счётчикчисла повторений цикла);- Во всех вариантах заданий вывести значения аргумента и функции в видетаблицы с заголовком столбцов.

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

Var
 i:integer;
 y,x:real;
begin
 x:=-pi;
 writeln('i  x    y');
 for i:=1 to 17 do
  begin
   if ((1/(x-2*pi)-sin(x))>0) then
    begin
     y:=1/(x-2*pi)-sin(x);
     writeln(i,' ',x:0:2,' ',y:0:2);
    end
    else
     writeln('При x=',x:0:2,' y<=0'); <br>  x:=x+pi/8;
  end;
end.