;Литеральные константы
@abcString = constant [27 x i8] c"Vvedite parametri X, Y, Z\0A\00"
@aString = constant [5 x i8] c"A = \00"
@bString = constant [5 x i8] c"B = \00"
@cString = constant [5 x i8] c"C = \00"
@doubleString = constant [4 x i8] c"%lf\00"
@zeroValueString = constant [41 x i8] c"Oshibka: parameter ne mojet bit raven 0\0A\00"
@yString = constant [24 x i8] c"f(%lf, %lf, %lf) = %lf\0A\00"

;Объявление функций ввода-вывода printf, scanf
declare i32 @printf(i8*, ...)
declare i32 @scanf(i8*, ...)

;Ввод вещественного числа
;%string - приглашение ко вводу числа
;Возвращает считанное значение
define double @readDouble([5 x i8]* %string)
{
%stringPtr = getelementptr [5 x i8], [5 x i8]* %string, i32 0, i32 0
call i32 (i8*, ...) @printf(i8* %stringPtr)
%doubleStringPtr = getelementptr [4 x i8], [4 x i8]* @doubleString, i32 0, i32 0
%valuePtr = alloca double
call i32 (i8*, ...) @scanf(i8* %doubleStringPtr, double* %valuePtr)
%value = load double, double* %valuePtr
ret double %value
}

;Ввод вещественного числа, значение которого отлично от нуля
;%string - приглашение ко вводу числа
;Возвращает считанное значение, не равное нулю
define double @readNoZeroDouble([5 x i8]* %string)
{
%value = call double @readDouble([5 x i8]* %string)
%isZero = fcmp oeq double %value, 0.0
br i1 %isZero, label %readDoubleAgain, label %returnValue
readDoubleAgain:
%zeroValueStringPtr = getelementptr [41 x i8], [41 x i8]* @zeroValueString, i32 0, i32 0
call i32 (i8*, ...) @printf(i8* %zeroValueStringPtr)
%newValue = call double @readNoZeroDouble([5 x i8]* %string)
ret double %newValue
returnValue:
ret double %value
}

;Возведение числа в целую степень
;%x - число, которое необходимо возвести в степень
;%a - показатель степени
;Возвращает вещественное число в указанной степени
define double @pow(double %x, i32 %a)
{
%isZero = icmp eq i32 %a, 0
br i1 %isZero, label %returnOne, label %calculatePow
calculatePow:
%isNegative = icmp slt i32 %a, 0
br i1 %isNegative, label %setOneDivideByX, label %setX
setOneDivideByX:
%1 = add i32 %a, 1
%value1 = call double @pow(double %x, i32 %1)
%2 = fdiv double 1.0, %x
%pow1 = fmul double %value1, %2
ret double %pow1
setX:
%3 = sub i32 %a, 1
%value2 = call double @pow(double %x, i32 %3)
%pow2 = fmul double %value2, %x
ret double %pow2
returnOne:
ret double 1.0
}

;Функция 10 варианта 2 самостоятельной работы
;%a - аргумент a
;%b - аргумент b
;%c - аргумент c
;Возвращает вычисленное значение функции
define double @y(double %a, double %b, double %c)
{
%1 = call double @pow(double %a, i32 3)
%2 = call double @pow(double %b, i32 6)
%3 = fmul double %1, %2
%4 = fmul double %3, 3.0
%5 = call double @pow(double %a, i32 2)
%6 = call double @pow(double %c, i32 4)
%7 = fmul double %5, %6
%8 = fmul double %7, 17.0
%9 = fsub double %4, %8

%10 = call double @pow(double %a, i32 2)
%11 = fmul double %10, 3.0
%12 = call double @pow(double %b, i32 2)
%13 = fmul double %12, 7.0
%14 = fadd double %11, %13

%15 = fdiv double %9, %14

%16 = call double @pow(double %a, i32 2)
%17 = call double @pow(double %b, i32 2)
%18 = fmul double %16, %17
%19 = fmul double %18, 8.0
%20 = fadd double %19, 10.0

%21 = call double @pow(double %b, i32 4)
%22 = fmul double %21, 12.0
%23 = call double @pow(double %c, i32 2)
%24 = fmul double %23, 3.0
%25 = fsub double %22, %24

%26 = fdiv double %20, %25

%27 = fadd double %15, %26

ret double %27
}

;Точка входа в программу: ввод аргументов, вычисление и вывод значения функции
define void @main()
{
%abcStringPtr = getelementptr [27 x i8], [27 x i8]* @abcString, i32 0, i32 0
call i32 (i8*, ...) @printf(i8* %abcStringPtr)
%a = call double @readNoZeroDouble([5 x i8]* @aString)
%b = call double @readNoZeroDouble([5 x i8]* @bString)
%c = call double @readNoZeroDouble([5 x i8]* @cString)
%yStringPtr = getelementptr [24 x i8], [24 x i8]* @yString, i32 0, i32 0
%y = call double @y(double %a, double %b, double %c)
call i32 (i8*, ...) @printf(i8* %yStringPtr, double %a, double %b, double %c, double %y)
ret void
}