Показать сообщение отдельно
Старый 06.04.2014, 17:46   #2 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 766
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

подключаем библиотеку math

x := strtofloat(Edit1.text);
If (x=2) or (x=3) then y:= sqrt(x)+(3/power(x,2));
If x>5 then y:= 25*(power(x,2))+sin(x);
If not (x=2) or not (x=3) or not (x>5) then y:= sqrt(3*power(x,3)-sqrt(x)); или эту строку можно написать вот так:
If (x=4) or (x<2) then y:= sqrt(3*power(x,3)-sqrt(x));
Ну и понятно, что выводит y в label.

Писал из головы, по этому не проверял в компиляторе.
Gruvi вне форума   Ответить с цитированием
Ads

Яндекс

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