Табулирование и программирование - Pascal

  1. Помоги написать программу как в задание пожалуйста!!! Составить программу для вычисления значения функции с помощью разложения функции в степенной ряд

textual

Код:

var x,eps,t,y:real;
    n:integer;
begin
repeat
write('Введите |x|<1  x=');
readln(x);
until abs(x)<1;
repeat
write('eps>0 eps=');
readln(eps);
until eps>0;
if eps>=abs(x)then y:=2*x
else
 begin
  n:=0;
  t:=x;
  y:=t;
  while abs(t)/(2*n+1)>eps do
   begin
    n:=n+1;
    t:=t*x*x;
    y:=y+t/(2*n+1)
   end;
  y:=2*y;
 end;
writeln('Сумма=',y:0:6);
write('Аналитически Ln((1+x)/(1-x))=',ln((1+x)/(1-x)):0:6);
end.

Похожие ответы
  1. Не знаю как с помощью цикла for записать данную программу. Подскажите, пожалуйста.

  1. привет помогите плиз мне надо решение задачи на паскале условие такое в строке для различных символом определить количество каждого символа и пожалуйстя на уровне 11 класа

  1. Вводится некоторая произвольная фраза на английском языке. Выделить из фразы две последовательности: гласных и согласных. Вывести исходный текст и результат его обработки.Добавлено через 2 часа 13 минут скажите хотя бы пожалуйста через что работать..

  1. сильно не пинайте, недавно начал программировать. вот собственно задания

  1. добрый вечер! вот это граф который имеет парные вершины. программа должна найти сколько здесь является четных вышек. задавать в программе надо в виде матрицы: если есть пара тогда 1, если нет то 0. 1 2 3 4 5 1 0 1 0 0 1 2 1 0 0 1 0 3 0 1 0 1 0 4 0 0 1 0 1 5 1 0 0 1 0

  1. Решение задач 1. Дана последовательность операторов:

  1. Дана строка, которая состоит из слов, разделенных пропусками. Определить количество слов содержащих ровно три буквы "а" оригинал Дано рядок, що складається із слів, розділених пропусками. Визначити кількість слів, що містять рівно три букви "а".

  1. Программа которая выберет наибольшее число из введенных через Repeat?

  1. Дана строка символов. Группы символов в ней между группами пробелов считаются словами. Определить сколько слов содержат ровно три буквы "е".


Нашли ошибку?
Развитие проекта
Яндекс.Метрика