pascal明明的随机数
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/12 12:24:16
pascal明明的随机数
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤100),对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号。然后再把这些数从小到大排序,按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
【输入文件】
输入文件random.in 有2行,第1行为1个正整数,表示所生成的随机数的个数:
N
第2行有N个用空格隔开的正整数,为所产生的随机数。
【输出文件】
输出文件random.out 也是2行,第1行为1个正整数M,表示不相同的随机数的个数。第2行为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数。
【输入样例】
10
20 40 32 67 40 20 89 300 400 15
【输出样例】
8
15 20 32 40 67 89 300 400
【问题描述】
明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤100),对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号。然后再把这些数从小到大排序,按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
【输入文件】
输入文件random.in 有2行,第1行为1个正整数,表示所生成的随机数的个数:
N
第2行有N个用空格隔开的正整数,为所产生的随机数。
【输出文件】
输出文件random.out 也是2行,第1行为1个正整数M,表示不相同的随机数的个数。第2行为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数。
【输入样例】
10
20 40 32 67 40 20 89 300 400 15
【输出样例】
8
15 20 32 40 67 89 300 400
var a:array[1..100] of integer;
b:array[1..1000] of integer;
s,i,n:integer;
begin
assign(input,'random.in'); reset(input);
assign(output,'random.out'); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do b[a[i]]:=1;
s:=0;
for i:=1 to 1000 do if b[i]=1 then inc(s);
writeln(s);
for i:=1 to 1000 do if b[i]=1 then write(i,' ');
writeln;
close(input);
close(output);
end.
这是完整的,文件读入都有了。你把它复制进一个命名为random.pas的文件中就可以交了哦
b:array[1..1000] of integer;
s,i,n:integer;
begin
assign(input,'random.in'); reset(input);
assign(output,'random.out'); rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
readln;
for i:=1 to n do b[a[i]]:=1;
s:=0;
for i:=1 to 1000 do if b[i]=1 then inc(s);
writeln(s);
for i:=1 to 1000 do if b[i]=1 then write(i,' ');
writeln;
close(input);
close(output);
end.
这是完整的,文件读入都有了。你把它复制进一个命名为random.pas的文件中就可以交了哦
pascal:明明的随机数
(pascal简单题目明明的随机数
pascal随机数
Pascal 中 random随机数产生器的用法?求详细用法.
pascal中如何产生随机数
free pascal怎样产生随机数
Free Pascal怎样产生从1到1000的100个随机数
pascal 让电脑产生两个随机数,并计算他们的最大公约数和最小公倍数!
用随机函数random产生100到1000的随机数,用pascal语言,语句怎么写?
pascal 让电脑产生10个随机数,算出它们的平均数,从小到大排列
产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal
Pascal 也分 Turbo Pascal 和 Free Pascal 的