Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Моделирование движения небесных тел и заряженных частиц https://www.cyberforum.ru/ pascalabc/ thread1299821.html Разработать модель движения практически невесомой заряженной частицы в электрическом поле, созданном системой нескольких фиксированных в пространстве заряженных тел, в случае, когда заряженные тела находятся в одной плоскости и в ней же находится движущаяся частица. Добавлено через 22 часа 49 минут помогите пожалуйста	Движение тел в среде с учетом трения Pascal ABC Торпеда, снабженная разгонным двигателем, нацеливается с подводной лодки на стоящий вертикально над ней надводный корабль. Исследовать связь между временем поражения цели формой корпуса (сферической, полусферической, каплевидной и т.д.).
Pascal ABC Заполнить массив десятью первыми числами последовательности Фибоначчи Заполните массив десятью первыми числами последовательности Фибоначчи (первые два члена равны единицы, а каждый следующий равен сумме двух предыдущих). https://www.cyberforum.ru/ pascalabc/ thread1299776.html	Pascal ABC Поменять местами первую строку и строку, в которой находится первый нулевой элемент https://www.cyberforum.ru/ pascalabc/ thread1299759.html Сделать с помощью массива.
Найти сумму и количество элементов в каждом столбце матрицы, удовлетворяющих заданному условию: Pascal ABC (хранить эти значения в одномерных массивах. Найти сумму и количество элементов, являющихся простыми числами.	Pascal ABC Распечатать данные студентов, успевающих на 4 и 5 Задание: распечатать данные студентов успевающих на 4 и 5 Составить блок схему. Не понятно как учесть сразу три оценки, через and выдает ошибку "lab6.pas(35) : Операция '>' не применима к типам integer и boolean" Program lab_6; Uses crt; Type Student = record Name : string; https://www.cyberforum.ru/ pascalabc/ thread1299728.html
Pascal ABC Поменять в массиве максимальный и минимальный элементы местами https://www.cyberforum.ru/ pascalabc/ thread1299713.html Создать новый одномерный массив B из элементов исходной матрицы A(6, 8), удовлетворяющих условию 0 ≤ cos aij < 0.5. В полученном массиве поменять местами максимальный и минимальный элементы. Помогите создать программу. :(	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; https://www.cyberforum.ru/ pascalabc/ thread1299658.html	Pascal ABC Вставьте первую строку после строки только с TYPE https://www.cyberforum.ru/ pascalabc/ thread1299599.html Вставьте первую строку после строки, в которой находится первый встреченный максимальный элемент (здесь и далее массив просматривается слева направо и сверху вниз).Pascal ABC
Pascal ABC Упорядочить последовательность из N чисел по возрастанию 3. Написать программу для решения следующей задачи: упорядочить последовательность из N чисел по возрастанию их элементов.	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); https://www.cyberforum.ru/ pascalabc/ thread1299546.html

Дмитрий199

1 / 1 / 1

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

Сообщений: 50

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

13.11.2014, 19:14. Показов 1872. Ответов 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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

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-сумму значений функции...

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

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

	13.11.2014, 19:14

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

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...

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

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

Наверх