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

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


textual

Код к задаче: «Табулирование и программирование - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.700 из 5



Похожие ответы
  1. В заданной строке текста слова разделены произвольным числом пробелов. Выписать все слова, в которых отсутствуют буквы(б,в,г,д,с,л,м,н,р).

  1. Составить программу для вычисления значения функции y=ln(1-x) с помощью разложения функции в степенной ряд: Ln(1-x) =-x/1-(x)^2/2-(x)^3/3-(x)^4/4...-(x)^n/n+... Помогите пжл.

  1. Помогите решить 0,1sin(x)+x^2-1=0 С точностью Е=10^-4 Интервал изоляции [0,8;1,0] Зарание спасибо!

  1. Составить программу. Пусть дан массив из n элементов.Каждый отрицательный элемент замените полусуммой тех двух элементов, которые стоят с ним справа и слева. Помогите пожалуйста.

  1. Доброго дня всем. Такое вот задание: Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц, время работы в месяц). Составить программу, определяющую общее время простоя на заводе, списки станков, не имеющих простоя, относительное время простоя всех и каждого станка. Похожие уже написанные программы смотрел, под редактирование не подошли. Помогите пожалуйста с написанием

  1. Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m логического вектора B={b}_{i},i=1/n,где {b}_{i} имеет значение true, если наибольший элемент в строке с номером i матрицы А не больше заданного Х,и значение false-в противном случае

  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Для введенного с клавиатуры произвольного целого числа определить все возможные целые делители, кроме 1 и самого числа. Если число не имеет таких делителей, сообщить об этом. (Например: для 20 – 2,4,5,10; для 21 - 3,7; для 23 – «нет делителей»).

  1. - Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.

  1. Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если треугольник существует, определить его тип (равносторонний, равнобедренный, прямоугольный) и вычислить все углы в градусах. Напечатать длины сторон с противолежащими углами.