Pascal ABC

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

Войти

Другие темы раздела
Pascal ABC Заполнить массив десятью первыми числами последовательности Фибоначчи Заполните массив десятью первыми числами последовательности Фибоначчи (первые два члена равны единицы, а каждый следующий равен сумме двух предыдущих). https://www.cyberforum.ru/pascalabc/thread1007974.html https://www.cyberforum.ru/ pascalabc/ thread1299776.html	Pascal ABC Упорядочить последовательность из N чисел по возрастанию 3. Написать программу для решения следующей задачи: упорядочить последовательность из N чисел по возрастанию их элементов. ну уж найти сортировку пузырьком можно было самостоятельно... const N=10; var i, j, k: integer; a: array of integer; begin for i:=1 to N do begin a:=random(20) - 5; ... https://www.cyberforum.ru/ pascalabc/ thread1299590.html
Pascal ABC Движение тел в среде с учетом трения Торпеда, снабженная разгонным двигателем, нацеливается с подводной лодки на стоящий вертикально над ней надводный корабль. Исследовать связь между временем поражения цели формой корпуса (сферической,... https://www.cyberforum.ru/ pascalabc/ thread1299807.html	Pascal ABC Поменять в массиве максимальный и минимальный элементы местами Создать новый одномерный массив B из элементов исходной матрицы A(6, 8), удовлетворяющих условию 0 ≤ cos aij < 0.5. В полученном массиве поменять местами максимальный и минимальный элементы. ... program l1; var A:array of integer; //заданный двумерный массив D:array of integer; //новый одномерный массив k,i,j,m:integer; //i,j,k - счётчики; c:real; // c - переменная для вычисления... https://www.cyberforum.ru/ pascalabc/ thread1299713.html
Pascal ABC Найти сумму и количество элементов в каждом столбце матрицы, удовлетворяющих заданному условию: https://www.cyberforum.ru/ pascalabc/ thread1299751.html (хранить эти значения в одномерных массивах. Найти сумму и количество элементов, являющихся простыми числами.	Моделирование движения небесных тел и заряженных частиц Pascal ABC Разработать модель движения практически невесомой заряженной частицы в электрическом поле, созданном системой нескольких фиксированных в пространстве заряженных тел, в случае, когда заряженные тела...
Pascal ABC Как сделать ,чтобы нажималась клавиша либо#108 или либо #121, а потом закрывалась программа совсем? uses graph,crt,dos; var gd,gm,x,y:integer; k:char; begin gd:=detect; initgraph(gd,gm,'C:\tp\bgi'); setcolor(white); setfillstyle(1,9); x:=getmaxX div 2; y:=getmaxy div 2; Пытаетесь использовать функциональные клавиши? Для F1..F10 выдается так называемый расширенный код. Сначала выдается 0, а затем уже код клавиши. Посмотрите как сделано в исправленном коде. Клавиша... https://www.cyberforum.ru/ pascalabc/ thread1299658.html	Pascal ABC Может кто-нибудь посоветует хороший справочник для изучения Паскаля? https://www.cyberforum.ru/ pascalabc/ thread1299702.html Может кто-нибудь посоветует хороший справочник для изучения Паскаля? Если турбо паскаль, то можно посоветовать "turbo pascal наиболее полное руководство", или другие книги Фаронова. А по PascalABC книг нет (насколько я знаю), а для PascalABC.Net есть "Занимательные...
Pascal ABC Поменять местами первую строку и строку, в которой находится первый нулевой элемент Сделать с помощью массива. const n=5;m=4; var a:arrayof integer; var i,j:integer; i0:integer; f:boolean; begin f:=false; i0:=-1; writeln('исходная'); for i:=1 to n do https://www.cyberforum.ru/ pascalabc/ thread1299759.html	Pascal ABC Вставьте первую строку после строки только с TYPE Вставьте первую строку после строки, в которой находится первый встреченный максимальный элемент (здесь и далее массив просматривается слева направо и сверху вниз).Pascal ABC https://www.cyberforum.ru/ pascalabc/ thread1299599.html
Pascal ABC Как сделать, чтобы эта программа считала, какая гласная используется больше? uses crt; const g=; var x: string; i,k: byte; begin write('введите текст='); readln(x); for i:=1 to length(x) do if x in g then inc(k); write('k=',k); uses crt; const g:string='ауеыоэяиюёАУЕЫОЭЯИЮЁ'; var x: string; a: array of byte; i,k,mx,imx: byte; begin writeln('введите текст='); readln(x); for i:=1 to 20 do https://www.cyberforum.ru/ pascalabc/ thread1299546.html	Pascal ABC Распечатать данные студентов, успевающих на 4 и 5 https://www.cyberforum.ru/ pascalabc/ thread1299728.html Задание: распечатать данные студентов успевающих на 4 и 5 Составить блок схему. Не понятно как учесть сразу три оценки, через and выдает ошибку "lab6.pas(35) : Операция '>' не применима к типам... if (algebra > 3) and (history > 3) and (evm >3) then

Дмитрий199

1 / 1 / 1

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

Сообщений: 50

Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5) - Pascal ABC - Ответ 6846437

13.11.2014, 19:14. Показов 1894. Ответов 1

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

Author24 — интернет-сервис помощи студентам

PureBasic

Function f(x As Single) As Single
f=1+Cos(x)/(3-Sin(x)-0.5)
End Functioin
Sub решениеуравнения()
 Dim x As Integer, y As Integer, y1 As Integer, b As Integer
 'Range(a,b)
 a=-3
 b=3
 h=1
For x=a To b Step h
 y1=y2
 y2=f(x+h)
 If y1*y2<=0 Then  
 Debug.Print x, x+h
  'For x=a To x+h
 End If
 Next
  y=f(x)'=(1+Cos(x))/(3-Sin(x) -0.5)
End Sub 
 Sub coren()
 
 e=0.0001
 y1=f(a)
 While (b-a)>2*e
 x=(a+b)/2
 y=f(x)
 If y*y1<=0 Then b=x Else a=x
 y1=y
 Debug.Print x
 End Sub

Вернуться к обсуждению:
Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5) Pascal ABC

Следующий ответ

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

13.11.2014, 19:14

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

Численные методы. Решить нелинейное уравнение методом половинного деления
решение нелинейных уравнений. метод половинного деления. 2^x-3x-2=0 Добавлено через 5 часов 13 минут с рисунками Добавлено...

Вычислить сумму значений функцииz=f(sin(x)+cos(y),x+y)+f(sin(x),cos(y))+(x-y,x)+f(sin^2(x)-2,a)+f(a+3,b+1)
Вычислите z-сумму значений функции z=f(sin(x)+cos(y),x+y)+f(sin(x),cos(y))+(x-y,x)+f(sin^2(x)-2,a)+f(a+3,b+1),где f(u,t)=u+t,если...

Решить уравнение методом половинного деления
Ребят помогите пожалуйста написать программу на паскале, я уже не знаю как все перепробовал( Помогите пожалуйста)

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

13.11.2014, 19:14

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

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

Методом половинного деления решить уравнение с заданной точностью "Е".
Методом половинного деления решить уравнение с заданной точностью "Е". X*X - cos(x)=0; (Значение ввод-ся с клавиатуры). Решите...

Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5=0
Function f(x As Single) As Single f=(1+Cos(x))/(3-Sin(x))-0.5 End Functioin Sub решениеуравнения() Dim x As Integer, y As Integer,...

Решить уравнение любым методом(методом половинного деления,методом простой интеграции,методом касательных)
Решить уравнение: 0,1*x^2-x*ln(x)=0 любым методом(методом половинного деления,методом простой интеграции,методом касательных)

Решить уравнение методом итераций, методом ньютона и методом половинного деления
решить уравнение методом итераций,методом ньютона и методом половинного деления x-1 / (3 + sin (3.6*x)) = 0 интервал изоляции корня...

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

Наверх