open List;; let primer = [(1.,2.);(2.,3.);(3.,4.)];; let print_para_list primer = Printf.printf "\n ["; iter (fun (a,b) -> print_string "("; print_float a; print_string ","; print_float b; print_string ")"; print_string ";") (primer); print_string "]";; print_para_list primer;; let print x = Array.iter (Printf.printf "%d ") x; print_newline ();; (* печать списка*) let rec printf l = Printf.printf "%s" "["; (match l with (a,b,c)::ls-> Printf.printf "%s" "("; Printf.printf "%d" (int_of_float a); Printf.printf "%s" ","; Printf.printf "%d" (int_of_float b); Printf.printf "%s" ")"; Printf.printf "%s" ";"; printf ls |[]->Printf.printf "%s" "]" );;