用fortran写出99乘法表并打印在date.txt

Question

请问如何用fortran写出99乘法表并打印在date.txt.文件中

Answer 1

c++实现
void fun()
{
    std::ofstream of;
    of.open("./data.txt", std::ios::out);
    for (int i = 1; i <= 9; i++)
    {
        for (int j = 1; j <= i; j++)
        {
            std::cout << j << "*" << i << "=" << i * j << "\t";
            int value = i * j;
            of << j << "*" << i << "=" << value << "\t";
        }
        std::cout << std::endl;
        of<<std::endl;
    }
    of.close();
}