Технический форум - Показать сообщение отдельно - Помогите написать эти математические формулы в Pascal

Vladimir_S · 07.04.2013, 12:52

if x<0 then y:=1/Sqr(x) else y:=Sqr(x);

if x<-Pi then y:=-1 else if x>Pi then y:=1 else y:=cos(x);

И не стыдно?

07.04.2013, 12:52	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	if x<0 then y:=1/Sqr(x) else y:=Sqr(x); if x<-Pi then y:=-1 else if x>Pi then y:=1 else y:=cos(x); И не стыдно?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070