Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Переписать числовые данные из текстового файла в одномерный массив https://www.cyberforum.ru/ pascalabc/ thread1360441.html Добрый день. Поставлена задачка к скорему времени, помогите пожалуйста: При обработке информации числовые данные к заданию должны храниться в текстовом файле, который создается самим студентом любым способом. Необходимо переписать числовые данные из текстового файла в: 1. одномерный массив, 2. типизированный файл, 3. линейный динамический список. Сама задачка: Просуммировать и удалить...	Вычислить значения функций Pascal ABC Помогите пожалуйста,не могу найти ошибку,вот задание: Вычислить значения функций f1(x) и f2(x) для значений аргументов.f2(x) вычислить для ряда точностей ,для указанных точностей определить количество N элементов ряда, суммируемых для достижения заданной точности. Результаты расчетов свести в следующую таблицу. Для аргумента , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений...
Pascal ABC Вывести на экран строку с максимальной суммой элементов и столбец с минимальной суммой элементов 1. Создать текстовый файл, в который построчно записать квадратный массив massivnn, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размер массива n задать константой. Границы диапазона v_min и v_max задать с консоли. Вывести на экран строку с максимальной суммой элементов и столбец с минимальной суммой элементов. При чтении из файла считать размеры массива... https://www.cyberforum.ru/ pascalabc/ thread1360280.html	Pascal ABC Вывести все слова из текста, которые оканчиваются на определенные символы (найти ошибку) https://www.cyberforum.ru/ pascalabc/ thread1360221.html var s:string;p:char;mn1,mn2:set of char;i,n,v:integer; begin cls; mn1:=; mn2:=; writeln('ââåäèòå ñòðîêó ');readln(s);s:=s+' ';i:=1; while s<>' ' do begin if s in mn1 then begin n:=i-1;v:=1; if s in mn2 then begin
Pascal ABC Найти сумму бесконечного ряда с заданной точностью помогите пожалуйста найти ошибку: program aaa; var r,s,i,f:real; begin r:=3.14/3; s:=0; i:=0; repeat i:=i+2; r:=r-((3.14/3)(3.14/3)/2i(2*i+1));	Pascal ABC Вывести максимальное число, составленное из цифр заданного числа С экрана вводится число (от двузначного до десятизначного), нужно вывести из цифр этого числа максимальное число. Например исходное число 152773, тогда конечное будет 775321 https://www.cyberforum.ru/ pascalabc/ thread1360050.html
Pascal ABC Найти количество очков команды, исправить код program lh; const n=5; var a: array of real; i, imin: integer; begin for i:=1 to n do begin Write(' введите очки за ',i,' команду: '); read(a); https://www.cyberforum.ru/ pascalabc/ thread1360016.html	Определить, помещается ли круг в квадрат Pascal ABC Ув. форумчане, доброго времени суток, я написал небольшую громадную программу, в смысле она предполагалсь меньше, но на сократить знаний не хватает, плюсом ко всему это написано коряво, вообщем посмотрите что не так, укажите на ошибки. И если не трудно подскажите как оптимизировать и исправить. Uses GraphABC; var Skv, Skr:real; ...
Pascal ABC Подогнать текст под размер окна Как вывести текст в окне graphabc так чтобы он был под размер окна, то есть чтобы не приходилось растягивать окно и тп https://www.cyberforum.ru/ pascalabc/ thread1359840.html	Pascal ABC Программа, которая переводит строчные в прописные, некорректно работает с русскими буквами Вот программа,которая переводит строчные в прописные.С английскими буквами все хорошо,но когда ввожу рууские,то переводит только последнюю букву в чем ошибка. И еще такой вопрос.Есть противоположная функция для upCase?Тоесть,как написать программу,которая переводила бы прописные в строчные?Program lab7; var str: string; i: integer; ch: char; begin write('Введите слово: '); ... https://www.cyberforum.ru/ pascalabc/ thread1359836.html
Pascal ABC Смоделировать поверхность Помогите пожалуйста написать программу. Оси координат имеют следующую ориентацию: ОY - слева направо, ОZ - снизу вверх, ОX - "перпендикулярно" к ним, то есть влево и вниз. z=y^2 \cdot sin \,\left\|\frac{x}{3} \right\| \cdot \sqrt{a^3-x^2-y^2}\;,\;a=10	Pascal ABC Найти все возможные сочетания фигур каждого вида https://www.cyberforum.ru/ pascalabc/ thread1359767.html Из N счетных палочек построили треугольники, квадраты и домики, так, что счетных палочек осталось не больше двух. Найти все возможные сочетания фи- гур каждого вида. Нужно решить задачу тремя циклами, for, while, repeat.

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

23.01.2015, 21:08

Вычислить arctg(x) с заданной точностью - Pascal ABC - Ответ 7142363

23.01.2015, 21:08. Показов 3648. Ответов 1

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

Ответ

Так это разложение в ряд функции arcctg(x);

Pascal

var x,e,t,s:real;
    n:integer;
begin
write('x=');
readln(x);
n:=0;
e:=0.005;
t:=1/x;
s:=t;
while abs(t)/(2*n+1)>e do
 begin
  n:=n+1;
  t:=-t/x/x;
  s:=s+t/(2*n+1);
 end;
writeln('s=',s:0:4);
write('arcctg=',arctan(1/x):0:4);
end.

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

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.01.2015, 21:08

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

Вычислить сумму с заданной точностью
1/x^3*k^2 k равно 1 и стремиться к бесконечности Вычислить сумму с точностью е при заданном x:...

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

Вычислить выражения с заданной точностью
Вычислить выражения z=1+2\sum_{k=1 }^{\propto}{(-1)}^{k}{e }^{(-2kx)} при х= 0,986 с точностью...

Вычислить число Пи с заданной точностью
Нужно вычислить число Пи с заданной точностью по формуле: \frac{2}{\pi...

	23.01.2015, 21:08

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.01.2015, 21:08

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

Вычислить интеграл с заданной точностью
Имеется программа, которая рассчитывает значение интеграла на отрезке и записывает значение в...

Вычислить факториал с заданной точностью
Дано выражение \sum_{i=1}^{6}{i}^{0.4}\sum_{j=1}^{\infty}\frac{{10}^{0.1ij}}{j!-{j}^{2}+5.2}...

Вычислить сумму с заданной точностью
вычислить сумму с заданной точностью e (e>0 b e<1) от 0 до бесконечности (-2)^i/i! вот что у меня...

Вычислить сумму ряда с заданной точностью
Program lab3; Const eps=5e-5; var h,s,p:real; f,n,n1,st,b:integer; begin p:=pi/3; h:=p;...

Наверх