Новые сообщения · Правила  
Страница 1 из 41234»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Математические задачи
Математические задачи
Помогите написать программу на Паскале пожалуйста:
Составить программу вычисления заданной функции с погрешностью Е путем вычисления указанной суммы ряда. Величину Е выбрать из диапазона 0,01…0,00001. Решение необходимо получить для 3..5 значений x и погрешности Е.
В программе предусмотреть защиту от зацикливания путем задания предельно-допустимого значения повторения цикла.
Рекуррентный множитель:W=X^2/2*(N^2).
Функция: 0,5ln((1+x)/(1-x))
Ряд: x+x^3/3+x^5/5+...+x^(2n+1)/(2n+1)
Диапазон: x<1
1 | Автор: Lionel2394 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]

Как при помощи языка паскаля, написать степень -4/3 и как выразить tg и arctg?
В общем помогите хотя бы написать чему ровняется "a" и чему ровняется "b", дальше думаю сам справлюсь.

2 | Автор: Sanya | 2014-12-20, 10:03 | Изменено: Sanya - Вт, 2009-01-27, 19:47   |  Репутация: [ + 0 ]
2 | Автор: Sanya | 2014-12-20, 10:03 | Изменено: Sanya - Вт, 2009-01-27, 19:47   |  Репутация: [ + 0 ]
Подскажите как преобразовать это выражение,чтобы записать его на языке Паскаль?
log1/3(2x+y-2)>log1/3(y+1)
3 | Автор: Lange | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
записать на языке Паскаль (создать кусочек порграммы)
$$\prod_{i=1,3,5}^{n}[i!*\sum_{j=2,4,6}^{m}\frac{i+j}{2ij}]$$

Добавлено (23.11.10, 17:26)
---------------------------------------------
вся проблема заключается в том, как прописать факториал
я написал, тчо факториал это произведение от с(дополнгительная переменная) до i, под знаком произведения тоже i стоит.
Fact:=1;
for с:=1 to i do
Fact:=Fact*c;

но проблема в том, что i меняется как 1,3,5,7.... и как записать для такой периодичности нахождение факториала я не знаю(((

4 | Автор: president_ml | 2014-12-20, 10:03 | Изменено: president_ml - Вт, 2010-11-23, 17:27   |  Репутация: [ + 0 ]
Написать программу, записывающую с помощью процедуры в типизированный файл значения функций на отрезке [0;1] с шагом h=0,1; с помощью другой процедуры происходит считывание данных значений из файла и вывод их на экран. Все эти процедуры содержатся в отдельно подключаемом модуле.
y = (x + 1)2
5 | Автор: Djoker | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Не могу справиться с задачей, так как не понимаю условия. В методичке был пример решения данной задачи, я попыталась по примеру составить программу, но мало того что выдает ошибку, так еще и понятие "с точностью до е" меня сбивает с толку (я его просто не понимаю).

Найти массив сумм S элементов ряда для каждого значения заданной последовательности Х (с использованием оператора for). Каждую сумму искать с точностью до e.
S=x^3/3-x^5/15+...+((-1)^(n+1))*(x^(2n+1))/(4n^2-1)
x=0.1...1.3, hx=0.3, e=10e-3

Помогите составить правильную программу...

6 | Автор: Mie4ka | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Дана арифметическая прогрессия 1, 3, 5, 7… Составить программу
определения суммы первых пяти ее членов. Вывести значение искомой
суммы и всех ее слагаемых.
7 | Автор: andreis459 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Даны два натуральных числа m и n(m< 9999, n < 9999). Проверить,
есть ли в записи числа m цифры, совпадающие с цифрами
в записи числа n.

P.S еслит числа совпадают то должно вывестись true, если нет то false.

8 | Автор: xit_lis | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Помогите пожалуйста!
Решить методом Гаусса. Вот система:

2x1-x2+3x3=3
3x1+x2-5x3=0
4x1-x2+x3=3
9 | Автор: Poli-007 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
9 | Автор: Poli-007 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Здравствуйте!

Помогите пожалуйста со следующей проблемой.
Дана задача:
На плоскости задается выпуклый N-угольник целочисленными кооpдинатами своих веpшин в порядке обхода по контуpу. Вводятся кооpдинаты точки (X,Y). Опpеделить:
a) является ли она веpшиной N-угольника;
б) пpинадлежит ли она N-угольнику.
Все работает, находит.Вот только не получается составить условие, при котором точка принадлежит ребру многоугольника. У меня выводит это сообщение, когда точка лежит внутри многоугольника.

uses crt;
type
tpoint=record
x,y:integer;
end;
var
PG: array[1..100] of TPoint;
n,i: integer;
result: boolean;
x,y:integer;
begin
clrscr;
write('количество вершин многоугольника*: ');
readln(n);

for i:=1 to n do begin
write('введите координаты x ',i,'ой точки: ');
readln(pg[i].x);
write('введите координаты y ',i,'ой точки: ');
readln(pg[i].y);
end;

write('введите координату x искомой точки: ');
readln(x);
write('введите координату y искомой точки: ');
readln(y);

for i:=1 to n do
if (X=PG[i].X) and (Y=PG[i].Y) then begin
writeln('’®зЄ* (',x,',',y,') пў«пҐвбп ®¤*®© Ё§ ўҐаиЁ* ¬*®Ј®гЈ®«м*ЁЄ*');
repeat until keypressed;
exit;
end;

Result := False;

for i:=1 to n-1 do
begin
{ if (Y > PG[i].Y) <> (Y <= PG[i+1].Y) then Continue;
if (X - PG[i].X) < (Y - PG[i].Y)*(PG[i+1].X - PG[i].X)/(PG[i+1].Y - PG[i].Y)
then Result := not Result; }

if (Y >= PG[i].Y) <> (Y< PG[i+1].Y) then Continue;
writeln('’®зЄ* (',x,',',y,') **находится на ребре');
if (X - PG[i].X) < (Y - PG[i].Y)*(PG[i+1].X - PG[i].X)/(PG[i+1].Y - PG[i].Y)
then Result := not Result;
end;

if Result then
writeln('точка* (',x,',',y,') **находится внутри многоугольника*')
else
writeln('точка* (',x,',',y,') **находится за пределами многоугольника*');
repeat until keypressed;
end.
10 | Автор: enigmatic | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Заданы векторы a,b,c,d размерностью n Получить новый вектор, элементами которого являются длины заданых векторов,расположенных в порядке убывания.
Заранее спабос..


Бэмс
11 | Автор: fELskiy | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Подскажите написать программу на табулирования сложной функции по формуле.Я как понял надо сделать по переменной, посчитать бы цыклом значение каждой суммы и прибавить их, а для Х в степени n функцию а там просто в формулу подставить вот немного написал

x:=-2;
z:=x/2*(x/2+x^2/4+x^3/6+x^4/8+x...)+(x^2+1)/3*(x^2/4+x^4/8+...);
x:=x+0,5;
12 | Автор: emilg | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Помогите пожалуйста решить.
Вычислить сумму:

S = K^2 - (2K)^2 + (3K)^2 - ... + (-1)^(n - 1) * (KN)^2

Заранее благодарю

Добавлено (09.05.12, 18:53)
---------------------------------------------
помогите плиз =)

13 | Автор: briz | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
1 Введите три числа. Если они могут быть длинами сторон остроугольного треугольника, выведите их в порядке убывания и вычислите площадь полученного треугольника.
2 Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами разностороннего остроугольного треугольника, вычислите его площадь.
3 Пусть даны координаты трех точек на плоскости. Если они могут быть вершинами равнобедренного остроугольного треугольника, вычислите его площадь. Длины сторон и площадь вывести в порядке возрастания значений.
14 | Автор: Lenohka))) | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Здравствуйте. Задали написать кучу программ и некоторые для меня совсем не понятны. Помогите plz)))
Даны целые числа p, m и действительные а и b.Найти a^p - b^m. Для вычисления х^n использовать рекурсивную функцию, определенную как: http://mif.vspu.ru/books/pascal-tasks/pic11/image006.gif )))
15 | Автор: BadWolf | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
15 | Автор: BadWolf | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
пожалуйста помогите с решением задачи

Найти количество целых решений, удовлетворяющих неравенству: A < B*x + C < D.
В единственной строке заданы четыре целых числа: A, B, C и D (0 ≤ A, B, C, D ≤ 1018, B ≠ 0).
Выведите одно число – количество целых решений данного неравенства.
16 | Автор: link313 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Даны действительные числа \(\chi\), \(\varepsilon\) \(\chi \neq 0\), \(\varepsilon\) > 0 ). Вычислить с точностью \(\varepsilon\):
\(\sum_{k=0}^{\propto}\frac{x^{k}}{k^{\frac{3}{2}}}\)
17 | Автор: Freyka | 2014-12-20, 10:03 | Изменено: Freyka - Вс, 2012-10-21, 14:50   |  Репутация: [ + 0 ]
Задана последовательность неповторяющихся целых чисел, содержащая положительные и отрицательные элементы (предусмотреть проверку на повторение; в случае, если есть повторяющиеся элементы (кроме нуля) - запросить новый ввод последовательности). Сформировать из нее два массива по следующим правилам. Первый массив содержит в порядке возрастания положительные элементы последовательности, после чего указвается ноль, а затем идут номера, которые они занимали в заданной последовательности. Второй массив содержит в порядке убывания отрицательные элементы последовательности, после чего указывается ноль, а затем идут номера, которые они занимали в заданной последовательности. Пусть, например, задана следующая последовательность: 1, -7, 6, 0, 2, -2, 0, 5, 7, -12, -8, 9, 0, 4. Тогда первый массив имеет вид: (1, 2, 4, 5, 6, 7, 9, 0, 1, 5, 14, 8, 3, 9, 12); аналогично для второго массива имеем: (-2, -7, -8, -12, 0, 6, 2, 11, 10).
18 | Автор: FORZE1 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
18 | Автор: FORZE1 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
помогите решить пожалуйста в pascal abc
Все натуральные числа выписали подряд без промежутков:
1234567891011121314151617181920212223...
Определите по данному числу n, какая цифра стоит в этом ряду на n-м месте.
Формат входных данных: На вход программа получает натуральное число n, не превосходящее 2×109.
Формат выходных данных: Программа должна вывести единственную цифру.
Пример: Вход Выход
6 6
10 1
35 2
19 | Автор: egorxx87 | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Приветсвую... Пожалуйста помогите!!!

Вводится N чисел.Вывести на экран те числа делителем которых является целое число A.

Заранее Спасибо!
20 | Автор: Pablo_Eskabar | 2014-12-20, 10:03   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Математические задачи
Страница 1 из 41234»
Поиск: