如何用COBOL语言生成随机数？如何截取字符串？知道的大哥大姐告诉一下，谢谢O(∩_∩)O~

Posted 2023-05-12

随机数的生成：
使用cobol内置的函数RANDOM函数就可以了。
函数返回值类型 SV9(18) COMP-3
字符串的截取：
变量（1：5）→从第一位开始截取“变量”的5个字符 参考技术A 截取字符串A
01 A PIC X(10) value '1234567890'.
01 B PIC X(5).
MOVE A(1:5) TO B.
DISPLAY B.
结果输出应该是'12345'

随机数的话就不太清楚了，可以考虑做个伪随机，比如说用当前系统时间除以一个数（比如π） 参考技术B 01 abcdefg
05 abc
05 def
05 g
move "abcdefg" to abcdefg
display abc
display def
display g
还有一种方法我给忘了 呵呵抱歉追问

还有一种是不是 unstring? 那个怎样产生随机数呢？

追答

随机数 不太会 呵呵 我是做金融软件的 还没有接触过这个。。好像不是这个 另外一种好像是把x型的数据变成数组 然后提取

参考技术C 建议去百度或GOOGLE搜索一下，看看有没有相关信息或资料可以帮你。本回答被提问者采纳

如何用C语言生成（0，1）之间的随机浮点数

参考技术A

很简单，用rand（）%x,x取某整数，就会生成一个0~x-1的整数，再用小数乘之即可，我这里生成了10个0~1的随机数

#include<stdio.h>

#include<stdlib.h>

void main()

    float b;

for(int i=0;i<10;i++)

b=(rand()%100000)*0.00001;

printf("%f\\n",b);