// F# [<EntryPoint>] let main argv = let generateTable n m = Array2D.init n m (fun i j -> (i+1) * (j+1)) let printMatrix (matrix:int[,]) = printf " " for i = 0 to (Array2D.length1 matrix) - 1 do printf "%4d " (i+1) printf "\n" printf " " for i = 0 to (Array2D.length1 matrix) - 1 do printf "" printf "\n" for j = 0 to (Array2D.length2 matrix) - 1 do printf "%2d |" (j+1) for i = 0 to (Array2D.length1 matrix) - 1 do printf "%4d " matrix.[i, j] printf "\n" printf "\n" let inputArray = generateTable 10 10 printMatrix inputArray System.Console.ReadKey true |> ignore 0
Merkuloff78
16.12.2020
<HTML> <HEAD> <SCRIPT> <!-- function btnClick() { s=""; for (i=1; i<=9; i++) for (j=0; j<=9; j++) if (i != j) for (k=0; k<=9; k++) if ((k != i) && (k != j)) { a = i*100+j*10+k; s = s+a+" "; } document.frm.res.value=s; } //--> </SCRIPT> </HEAD> <BODY> <H1>Документ с JavaScript</H1> <FORM name=frm> <INPUT type="button" name="bt" value="Щелкни здесь!" onClick="btnClick();"> <BR> Результат: <BR> <TEXTAREA name="res" cols="80" rows="35"> </TEXTAREA> </FORM> </BODY> </HTML>
[<EntryPoint>]
let main argv =
let generateTable n m =
Array2D.init n m (fun i j -> (i+1) * (j+1))
let printMatrix (matrix:int[,]) =
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " (i+1)
printf "\n"
printf " "
for i = 0 to (Array2D.length1 matrix) - 1 do
printf ""
printf "\n"
for j = 0 to (Array2D.length2 matrix) - 1 do
printf "%2d |" (j+1)
for i = 0 to (Array2D.length1 matrix) - 1 do
printf "%4d " matrix.[i, j]
printf "\n"
printf "\n"
let inputArray = generateTable 10 10
printMatrix inputArray
System.Console.ReadKey true |> ignore
0