博文
- fortran-抛硬币产生随机数，建立动态分配内存的数组
- PROGRAM MAIN IMPLICIT NONE !动态地为数组分配内存 !REAL,DIMENSION(:,:),ALLOCATABLE :: A !与下面的语句等价 REAL,ALLOCATABLE :: A(:,:) REAL :: U !随机地产生u CALL RANDOM_NUMBER(U) !对u的判断 IF(U 0.5)THEN ALLOCATE(A(5,8)) ELSE ALLOCATE(A(7,4)) END IF !数据输出，位置为屏幕 PRINT * ...
- 第一次写博文，纪念一下吧！
- 热度 1
- 一直都是在看别人的博客，自己从来没有写过。有时候写出来怕人家笑话，有时候感觉写出来也没什么意义。可能我对博客还是缺乏了解。这是我的第一篇博文，以此来纪念！
