Составить программу(на паскале) - калькулятор, которая запрашивает тип функции: 1-синус, 2-косинус, 3 - тангенс, 4 - котангенс, а также аргумент функции x (в градусах) и вычисляет для x соответствующую функцию. предусмотреть перевод градусов в радианы по формуле z=х*3,14/180.2

ответ:

вот две формулы

xпр=s*cos(a1)*cos(a2)+s*sin(a1)*sin(a2)+x

yпр=s*cos(a1)*sin(a2)-s*sin(a1)*cos(a2)+y

объяснение:

// f# [< entrypoint> ] let main argv =     let getrandomcollection n =         let rand = new system.random()         array.map (fun x -> rand.next(-10, 10)) [| 1..n |]     let input = getrandomcollection 15     let reverse = input |> array.rev     let notchangedcount = array.map2 (fun x y -> x = y) input reverse |> array.filter (fun x -> x) |> array.length     let maxabsnotpositiveelem =         input         |> seq.where (fun x -> x < = 0)         |> seq.maxby (fun x -> system.math.abs x)     system.console.writeline (input |> array.map (fun x -> sprintf "%d" x) |> string.concat " ")     system.console.writeline (reverse |> array.map (fun x -> sprintf "%d" x) |> string.concat " ")     system.console.writeline (notchangedcount |> sprintf "not changed: %d")     system.console.writeline (maxabsnotpositiveelem |> sprintf "max min element: %d")     system.console.readkey true |> ignore     0