Помогите решить!Составить программу вычисления значений функции F(x) ** отрезке [a,b] с...

Question

Помогите решить!
Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат первое значение аргумента второе- соответствующая значению функция.
записать в паскале (не через массив)
Задание 1. номер 9

---

Answer 1

Var
  a, b, h, x: real;
  i, n: integer;

begin
  writeln('Введите границы интервала (a,b)и шаг табуляции h:');
  readln(a, b, h);
  n := Trunc((b - a) / h) + 1;
  writeln('    x          F(x)');
  for i := 1 to n do
  begin
    x := a + h * (i - 1);
    writeln(x:9:6, '  ', 2 * tan(x / 2) + 1:9:6)
  end
end.

Тестовое решение:

Введите границы интервала (a,b)и шаг табуляции h:
-2 3 0.25
    x          F(x)
-2.000000  -2.114815
-1.750000  -1.394843
-1.500000  -0.863193
-1.250000  -0.442969
-1.000000  -0.092605
-0.750000   0.212747
-0.500000   0.489316
-0.250000   0.748690
 0.000000   1.000000
 0.250000   1.251310
 0.500000   1.510684
 0.750000   1.787253
 1.000000   2.092605
 1.250000   2.442969
 1.500000   2.863193
 1.750000   3.394843
 2.000000   4.114815
 2.250000   5.185143
 2.500000   7.019139
 2.750000  11.083831
 3.000000  29.202840

Comments

Ну и что же плохого? Если они не в одной куче будут, никому не помешают. А популярность сайта возрастет.

---

Да нет, в адресе ничего менять не надо, он соответствует, только в заголовке "Школьные" убрать или изменить. А решать или не решать, дело добровольное ведь, никто не заставляет. Я, допустим, туда не пойду, а кому-то (тем же студентам) интересно порешать и отточить навыки будет.

---

1 прочитайте хорошо правила. В правилах указано, что максимальное количество заданий в одном вопросе - 2! Если там больше заданий, то мы их удаляем! А Вы не решайте такие пачки, чтобы потом к Вам не было претензий

---

2 если вопрос не полный и не ясный то не нужно его решать. Отмечаете как нарушение и ищите себе качественный вопрос. Если в вопросе не указан язык на котором должна быть написана программа. то пользователь не имеет права требовать от Вас изменения. Это его проблемы. Такие нарушения мы снимаем.

---

3 у нас задают задания с университетов, если их решат то пусть будет, если нет сами удалятся. Пока что мы не планируем ничего добавлять или изменять в предметах или уровнях образования

---

Спасибо! Но, кажется, вопросы не школьной программы удаляются модераторами. Так ведь, Алвико?

---

не всегда

Answer 2

Var
   a,b,h,x,f:real;
begin
write('Введите a,b,h: ');
readln(a,b,h);
x:=a;
writeln('x':8,'F(x)':12);
repeat
  f:=tan(x/2)+2*cos(x);
  writeln(x:10:3,f:10:3);
  x:=x+h;
  until x>b;
end.