Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Найти длину цепи, проведенной через окружности https://www.cyberforum.ru/ pascal/ thread665685.html Приветствую, очередной вопрос, есть задача: В файле есть N строк, каждая строка имеет формат X Y R Где x,Y- координаты и r- радиус данной окружности. Через окружности проведена цепь. Нужно найти длину этой цепи, в принципе, все ясно, но есть два вопроса: 1. Мы считаем длину векторов от одной окр до другой, притом не до центра, а по касательной к этой окр, дальше считаем длину окружности...	Процедура считывания матрицы в шахматном порядке Pascal Что не так в процедуре Matrix_Inpit?? Как ни крутись перед else выдает ошибку. То нехватает точти з запятой а если поставить ее то пишет что нельзя перед элз ее ставить. задание в том что элементы матрицы должны считываться через один а на месте пропуска должны быть нули. program TA_LAB1; uses crt; const c=8; var MX:array of integer; x,y,i,j,k:integer; procedure Main_Menu;
Pascal Используя процедуры и функции получить из матрицы вектор Ребята, выручайте, я сама как-то вообще не разберусь, как в Паскале это написать: Используя процедуры и функции из целочисленной матрицы А (n x m) получить вектор, состоящий из сумм элементов, превосходящих по значению заданное пользователем число в соответствующих строках матрицы. https://www.cyberforum.ru/ pascal/ thread665506.html	Pascal Выдать количество суммируемых элементов, сравнить значения https://www.cyberforum.ru/ pascal/ thread665469.html http://cs403327.userapi.com/v403327215/44f6/2iY5LKgNHgM.jpg первое задание. Даже не знаю с чего начать,и как делать... Для заданного положительного \epsilon *{10}^{-6} , описывается как константа, и заданного x, вводится с клавиатуры, вычислить сумму ряда с точностью \epsilon . Значение полученной суммы сравнить с соответствующим значением в левой части равенства. Также на печать выдать...
Табулирование функции (паскаль) Pascal Решить. Написать программу. Паскаль. И составить алгоритм решения	Pascal Подпрограммы: вычисление значения функции Помогите пожалуйста составить блок-схему алгоритма и программу вычисления значения функции U, зависящей от нескольких аргументов, значения которых выбираются произвольно и задаются по вводу. 27. U = max(min(a, b); min(b, c)), где a=2*y/(4-sqr(x)) b=Ln(Abs(x)-sqr(y)) c=sin(x)+Exp(-y) при 4-sqr(x)<>0,Abs(x)-Sqr(y)>0 https://www.cyberforum.ru/ pascal/ thread665446.html
Pascal Вывести к-ый элемент Приветствую, есть задача, Дано натуральное число k, вывести k-ую цифру из ряда натуральных чисел. Я понимаю,было бы просто - составили строку из этих чисел и вывели,но слишком долго займет обработка https://www.cyberforum.ru/ pascal/ thread665408.html	Pascal Найти приближенно суммы и произведения бесконечных рядов Найти приближенно суммы и произведения бесконечных рядов. 0,25*10^(-4)-точность S=1/3sin(x)-2/4sin(x^2)+3/5sin(x^3)-...
Pascal Вычислить сумму для любого заданного n https://www.cyberforum.ru/ pascal/ thread665029.html Надо вычислить Y=1+1/2+1/3+1/4+...+1/n для любого заданного n используя: а) Оператор цикла с параметром. б) Оператор цикла с постусловием. в) Оператор цикла с предусловием. и вычислить Y=X+X^2/2+X^3/3+X^4/4+...+X^n/n для любых заданных n и x. Заранее спасибо!	Pascal Вычислить выражение https://www.cyberforum.ru/ pascal/ thread665023.html Добрый день! Прошу помощи. Необходимо решить пример. 2)\sum_{i=1}^{100}\sum_{j=1}^{50}\frac{1}{i+j^2} Заранее спасибо!
Локальные максимумы и минимумы Pascal Добрый вечер! Решая задачу: Дана последовательность целых чисел. 0 - признак окончания последовательности. Найти: а) кол-во целых числел; б) кол-во локальных максимумов и минимумов. Пункт а, я выполнил. Я нашёл судя повсему максимумы и минимумы вообще. А вот как найти кол-во лок.максимумов и минимумов, непонятно. Помогите, кто сможет, пожалуйста! program example; var k,n,nmax,nmin:...	Pascal Создать матрицу, элементами которой являются расстояние между каждой парой данных точек https://www.cyberforum.ru/ pascal/ thread664897.html Здравствуйте. Написал программу, требуется переписать используя вместо функции процедеру. Прошу помощи тех, кто в этом разбирается:) Текст задания, по которому написана программа: "На плоскости заданы своими координатами n точек. Создать матрицу, элементами которой являются расстояние между каждой парой точек." (Координаты элемента массива означают точки, между которыми ищется расстояние....

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,562

Записей в блоге: 1

08.10.2012, 07:33

Вычислить сумму ряда с заданной точностью - Pascal - Ответ 3532979

08.10.2012, 07:33. Показов 1245. Ответов 1

Метки (Все метки)

Сообщение было отмечено Reprain как решение

Решение

Pascal

Const e=0.0001;
Var a,s,f,x:real;
    k:integer;
Function F1(n:real;m:byte):real;
Var i:byte;
    p:real;
Begin
    p:=1;
    For i:=1 to m do
     p:=p*n;
    F1:=p;
End;
Begin
    Repeat 
     write('Введите x(0<x<1): ');readln(x);
    Until (0<x)and(x<1);
    k:=0;a:=1;s:=a;f:=1;
    While a>=e do
    Begin
      inc(k);
      f:=f*k;
      if k<3 then a:=F1(2*x,k)/f 
       else a:=F1(k*x,k)/f; 
      s:=s+a;
    End;
    writeln('S = ',s:0:6,' Проверочная функция = ',exp(2*x));
    writeln('Просумируемых членов ряда: ',k)
End.

Добавлено через 22 секунды

Сообщение от Reprain

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

Это сам предусмотришь)Я не знаю когда может зациклится)

Вернуться к обсуждению:
Вычислить сумму ряда с заданной точностью Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

08.10.2012, 07:33

Готовые ответы и решения:

Вычислить сумму ряда с заданной точностью
Даны действительные числа x, ε (x не равно 0, ε>0). Вычислить с точностью ε ...

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста. Необходимо: вычислить сумму ряда при X= -0.35 с точностью ε=0.0001

Вычислить сумму ряда с заданной точностью
составить программу вычисления суммы ряда с точностью до ϵ =10 в — 4 степени: ...

Вычислить сумму ряда с заданной точностью
Задали задачу по паскалю а я не могу решить((( помогите пожалуйста)))

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.10.2012, 07:33

Помогаю со студенческими работами здесь

Вычислить сумму ряда с заданной точностью
Требуется помощь, заранее спасибо. Даны действительные числа x и ε (x≠0, ε>0)....

Вычислить сумму ряда с заданной точностью
w=(N*M)/(L+M) L находится в интервале и вводится рандомно

Вычислить сумму ряда с заданной точностью
Помогите с задачей. Условие : Даны действительные числа x, e (экстриситет) (x<>0, e>0),...

Вычислить сумму ряда с заданной точностью
Укажите правильное направление, как решать задачу: Вычислить...

Наверх