sos110---怎样在1---21中任7个数靠电脑选出下7个啊啊啊不用得

您所在位置：社区首页 — PASCAL语言讨论区 — sos110---怎样在1---21中任7个数靠电脑选出下7个啊啊啊不用得

回帖发新帖刷新版面

主题：sos110---怎样在1---21中任7个数靠电脑选出下7个啊啊啊不用得

qqzhu [专家分：0] 发布于 2005-07-03 15:39:00

[em18][em18][em18][em18][em18][em18][em1]

本帖地址： http://bbs.pfan.cn/post/83417.html

回复列表（共4个回复）

沙发

def [专家分：3380] 发布于 2005-06-11 23:14:00

program example;
var i,n:integer
begin
  for i:=1 to 7 do
    begin
      randomize;
      n:=trunc(random*(21-1))+1
      write(' ',n);
    end;
  readln
end.[em12]

板凳

QQ331373582 [专家分：1500] 发布于 2005-06-18 11:00:00

3 楼

zhengruiw02 [专家分：20] 发布于 2005-06-23 18:18:00

一楼的，你编的那个不行。显示出来的是七个一样的数！

4 楼

Keita [专家分：30] 发布于 2005-06-23 18:47:00

三楼的，你错了，你见不到randomize这句吗？

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：sos110---怎样在1---21中任7个数靠电脑选出下7个啊啊啊不用得

回复列表（共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：sos110---怎样在1---21中任7个数靠电脑选出下7个啊啊啊不用得

回复列表 （共4个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共4个回复）