Решение двух уравнений в одной программе

Death

Дата: Суббота, 24.12.2011, 22:32 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 20

Репутация: 2

Замечания: 0%

Статус: Offline

Рассматриваются два уравнения вида F(x)=0. Программа должна дважды вызывать подпрограмму приближенного решения уравнения, которая своим параметром имеет функцию, определяющую левую часть уравнения.
Первое уравнение: 7x*arctg(x/sqrt(e))-e^(5/3)/(|ln(x)^2|+pi)-5/9
Второе уравнение: (sqrt(x^2+x^4+ln|x-pi|)/(1,4*e^(-x/1,2))-2cosx-1,7
Помогите, пожалуйста!

Seqular

Дата: Воскресенье, 25.12.2011, 10:56 | Сообщение # 2

Хранитель

Группа: Администраторы

Сообщений: 859

Репутация: 35

Статус: Offline

Death, Жесть. )) В общем так, тебе нужно написать 2 функции

Code

F1(X: Real): Real;far;

Code

F2(X: Real):Real;far;

в которые и записать данные уравнения.
Т.е. F1 := 7*X*ArcTan(..... и т.д. Ну и F2 := ... вторую функцию. Оформить их как функции т.е. с дальним вызовом (far;)

Объявляй тип данных Func в разделе Type. И опиши прототип функций. Т.е.

Code

Func = Function (X: Real): Real;

Создай новую функцию, которая в качестве параметра принимает F: Func

И вызывай её из основной программы кодом NewFunction(F1) и NewFunction(F2). Вроде так.

Поддерживаю также проект сообщество молодых сисадминов

		Вторник, 07.01.2025
	Pascal 4 All