pascal
1 随机产生50个100-200之间均匀分布的整数 存入file1中 从file1中读出这50个数 选出其中的素数存入file2中 分别把file1和file2内容输出的终端上 用text或者整型文件完成此题~ 2 读入2个字符串 然后打印 a 在任1串中至少出现1次的字母和数字 b 在2个串中至少出现1次的字母和数字 c 只在1个串中出现的字母和数字 d 从未出现的字母和数字 3 基本图形 运用pascal图形库 画圆弧直线矩形三角形圆形椭圆等 并且上色 画各国国旗~~
program pk(input,output);
var a:array[1。。50]of integer;
i,j,k,m,n:integer;
function aa(i:integer):boolean;
var j:integer;
begin
aa:=true;
for j:=2 to round(sqrt(i)) do
if i mod j=0 then
aa:=false;
end;
begin
assign(output,'file1。
txt');
reset(output);
randomize;
for i:=1 to 50 do
a[i]:=(random(101)+100);
for i:=1 to 50 do
write(a[i]:4);
close(output);
assign(output,'file2。
txt');
reset(output);
for i:=1 to 50 do
if aa(a[i]) then
write(a[i]:4);
close(output);
end。
答：小伙~~自己不愿意动脑筋，编程就是要自己多动手啊； 上面的题目要用到random随机数，和输入输出的知识，你到书上找找。详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
