發表新討論
#9529: pascal答案


lsyyw2002 (袁祎炜)

d059. 數學函數練習 -- jiangsir | From: [222.66.36.252] | 發表日期: 2014-12-17 15:43
var
  a,b,d,e,f,h,x,y,z:longint;
  c,g:real;
begin
  randomize;
  while not eof do begin
    readln(a,b);
    readln(c);
    readln(d);
    readln(e,f);
    x:=a;
  for h:=1 to b do x:=x*a;
  z:=random(f div 2+1)+e;
  writeln(x div a);
  writeln(sqrt(c):0:3);
  writeln(abs(d));
  writeln(z);
  end;
end.
谢谢支持 
#9535: Re:pascal答案


lswmr (吴明睿)

d059. 數學函數練習 -- jiangsir | From: [61.170.211.46] | 發表日期: 2014-12-17 19:37

var
  a,b,d,e,f,h,x,y,z:longint;
  c,g:real;
begin
  randomize;
  while not eof do begin
    readln(a,b);
    readln(c);
    readln(d);
    readln(e,f);
    x:=a;
  for h:=1 to b do x:=x*a;
  z:=random(f div 2+1)+e;
  writeln(x div a);
  writeln(sqrt(c):0:3);
  writeln(abs(d));
  writeln(z);
  end;
end.
谢谢支持 

 

很贊，希望繼續 

#9539: Re:pascal答案


lsyyw2002 (袁祎炜)

d059. 數學函數練習 -- jiangsir | From: [114.91.150.191] | 發表日期: 2014-12-17 20:20

var
  a,b,d,e,f,h,x,y,z:longint;
  c,g:real;
begin
  randomize;
  while not eof do begin
    readln(a,b);
    readln(c);
    readln(d);
    readln(e,f);
    x:=a;
  for h:=1 to b do x:=x*a;
  z:=random(f div 2+1)+e;
  writeln(x div a);
  writeln(sqrt(c):0:3);
  writeln(abs(d));
  writeln(z);
  end;
end.
谢谢支持 

 

很贊，希望繼續 
谢谢。
ZeroJudge Forum