разветляющиеся алгоритмы - Паскаль, Turbo Pascal, PascalABC.NET

arai uzbekova · 03.03.2013, 20:23

для данного х вычислить значение функции:

Stilet · 03.03.2013, 20:36

Наработки? Попытки?

domovou · 03.03.2013, 22:17

Код:

var x:real; begin readln(x); if x>=3 then writeln(sqr(-x)+3*x+9)else writeln(x/(exp(ln(x)*3)-6)); end.

Mad_Cat · 03.03.2013, 22:48

Цитата:

exp(ln(x)*3)

при отрицательном x - Будет вылет
лучше уж x*x*x и короче и понятнее

03.03.2013, 20:36	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Наработки? Попытки? I'm learning to live...

03.03.2013, 22:17	#3
domovou Пользователь Регистрация: 01.09.2012 Сообщений: 88	Код: `var x:real; begin readln(x); if x>=3 then writeln(sqr(-x)+3x+9)else writeln(x/(exp(ln(x)3)-6)); end.` Программист - это не тот, кто пишет программы, а тот, чьи программы работают.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
алгоритмы	Lunozwetka	Общие вопросы C/C++	1	31.07.2012 13:03
Комбинаторные алгоритмы и алгоритмы на гра-фах	Ника-Вероника	Паскаль, Turbo Pascal, PascalABC.NET	0	13.03.2012 19:07
Алгоритмы	nukede	Помощь студентам	2	27.09.2011 09:27
Задача из раздела Комбинаторные алгоритмы и алгоритмы на гра-фах в Паскале	Klik_1602	Помощь студентам	1	04.01.2011 01:18
Алгоритмы	Levhik	Общие вопросы Delphi	7	14.01.2009 17:38