有道题不会,求解
pascal吧
全部回复
仅看楼主
level 5
baby王小粑 楼主
一个宾馆里有100个房间编号为1~100,也有100个服务员,1号服务员把所有门都开了,2号服务员把编号为2的倍数的房间门关了,3号服务员把编号为3的倍数的房间门相反处理(开的关,关的开)以此类推,到第100名服务员结束
2015年01月16日 12点01分 1
level 7
题目不完整。
2015年01月16日 15点01分 2
level 11
【分析】此题较简单,只要设置一个表示门是开的还是关的标志数组,只有二种状态采用布尔型更直观。由于有固定的循环次数,用for循环显得简练。
程序如下:Program ex5_4;const n=100;var a : array[1..n]of Boolean; i,j,k : integer;begin for i : =1 to n do a[i] : =true; //可用fillchar(a,sizeof(a),true)代替 for i : =2 to n do for j : =1 to n do if j mod i =0 then a[j] : = not(a[j]); for j : =1 to n do if a[j]=true then write(j : 5); //可写成: if a[j] then write(j : 5); readlnend.
2015年01月17日 15点01分 3
level 11
【分析】此题较简单,只要设置一个表示门是开的还是关的标志数组,只有二种状态采用布尔型更直观。由于有固定的循环次数,用for循环显得简练。
程序如下:
Program ex5_4;
const n=100;
var
a : array[1..n]of Boolean; i,j,k : integer;
begin
for i : =1 to n do a[i] : =true; //可用fillchar(a,sizeof(a),true)代替
for i : =2 to n do
for j : =1 to n do
if j mod i =0 then a[j] : = not(a[j]); for j : =1 to n do
if a[j]=true then write(j : 5); //可写成: if a[j] then write(j : 5); readln;
end.
2015年01月17日 15点01分 4
level 9
5年级的题目?
2015年01月19日 01点01分 8
level 7
两个FOR搞定。
2015年01月19日 06点01分 9
level 1
在屏幕上输出n个"*"号,20个一行.
输入
读入一个n,表示"*"的个数.
输出
请20个一行输出所有"*"
求解
2016年04月24日 13点04分 10
program exe1; var i,j,n:integer; begin readln(n); j:=0; for i:=1 to n do begin j:=j+1; write('*'); if j mod 20 = 0 then writeln; end; readln; end.
2016年04月27日 14点04分
1