Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Penkode
0 / 0 / 0
Регистрация: 29.12.2014
Сообщений: 1
#1

Решение уравнения - Turbo Pascal

29.12.2014, 17:55. Просмотров 320. Ответов 1
Метки нет (Все метки)

Пожалуйста помогите написать уравнение в паскале. Очень нужно, так как начинаю осваивать программирование, а базы и примеров нет, простейшее могу написать, а посложнее уже проблема.
Уравнения:

c=b2\a2 - (b+2a)sin(ea), если cos(a)<b

c=b2\a2 - (sin(b)+a)sin(ea), если cos(a)=b

c=b2\a2 - (b+a)lg(ea), если cos(a)>b
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2014, 17:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Решение уравнения (Turbo Pascal):

Решение уравнения
Написать программу для решения предложенной ниже задачи. Пользователь вводит...

Решение уравнения
вычислить y x=1 y -не вычисляется x&gt;0 y=2*x x&gt;-1 and x&lt;10 y=1-sin(x) x&lt;-1...

Решение уравнения
Помогите пожалуйста написать программку на Паскале. У самой не получается....

Решение уравнения
Помогите срочно решить это уравнение, просьба расписать все от начала до конца,...

Решение уравнения |x-A|+B=0
|x - A| + B = 0. A и B переменные два целых числа A и B (-2*10степень9 ≤...

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

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,653
Записей в блоге: 1
31.12.2014, 07:21 #2
Лучший ответ Сообщение было отмечено Penkode как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var a,b,c:real;
Begin
    write('a,b: ');readln(a,b);
    if a=0 then writeln('Не допустимые данные')
    else
    Begin
      if cos(a)<b then c:=b*b/(a*a)-(b+2*a)*sin(exp(a))
       else if cos(a)=b then c:=b*b/(a*a)-(sin(b)+a)*sin(exp(a))
        else c:=b*b/(a*a)-(b+a)*ln(exp(a));
    End;
    writeln('C = ',c:0:4);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2014, 07:21
Привет! Вот еще темы с решениями:

Решение уравнения
Составить программу для решения уравнения A*X^2=B Вроде не сложно....но не могу

Решение уравнения
Решить методом интерации уравнение вида x=f(x). Очередное приближение корня...

Решение уравнения
Как решить такое уравнение ? Каждое значение Х из правой части подставлять в...

Решение кубического уравнения
ax^3 +bx=0 для произвольных a ,b скажите пожалуйста как решать?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru