Алгоритмическое*описание, запись программ циклических структур алгоритмов.

[timanurgaliyev]

1. Реализовать задачу с использованием бесконечного цикла. Дополнить

программу по задаче номер 1 из предыдущей темы возможностью

многократного использования программы в пределах одного запуска.

2. Реализовать программу вывода последовательности натуральных четных чисел

в заданном диапазоне. При указании неверных входных данных оповещать

пользователя об ошибке и предлагать ввести данные снова.

3. Реализовать программу нахождения экстремумов функции на заданном

интервале. Функция: y = x * Sin(x) — x/2 * Cos(x/2).

4. Обсуждение «Целесообразность использования циклических структур в

вычислительных задачах».

[p51x]

Зачем вы выкладывает сюда свои задачи? Раздел фриланса ниже.

[newerow1989]

3:

function f(x:real):real;
begin
   Result:=x*Sin(x)-x/2*Cos(x/2);
end;

const a=-30;
      b=30;
      dx=0.0001;
var x,y1,y2,y3:real;
begin
   x:=a-dx;
   Repeat
      x:=x+dx;
      y1:=f(x-dx);
      y2:=f(x);
      y3:=f(x+dx);
      If (y1<y2) and (y2>y3) then
         Writeln('max  x = ',x:2:4,' y = ',y2:5:8);
      If (y1>y2) and (y2<y3) then
         Writeln('min  x = ',x:2:4,' y = ',y2:5:8);
   Until x>=b;
   Readln;
end.