作业帮用pascal语言编程(两道题)1.已知一个以坐标原点为中心,以半径r的圆.求M(x,y)是否在这个圆上?2.已知等差数列的第一项为a1,公差为h.求这个等差数m项的乘积?
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 10:30:55
用pascal语言编程(两道题)1.已知一个以坐标原点为中心,以半径r的圆.求M(x,y)是否在这个圆上?2.已知等差数列的第一项为a1,公差为h.求这个等差数m项的乘积?
用pascal语言编程(两道题)
1.已知一个以坐标原点为中心,以半径r的圆.求M(x,y)是否在这个圆上?2.已知等差数列的第一项为a1,公差为h.求这个等差数m项的乘积?
用pascal语言编程(两道题)1.已知一个以坐标原点为中心,以半径r的圆.求M(x,y)是否在这个圆上?2.已知等差数列的第一项为a1,公差为h.求这个等差数m项的乘积?
第一题
var
r,x,y:real;
begin
readln(r);{读入半径}
readln(x,y);{读入坐标}
if sqr(x)+sqr(y)=sqr(r) then writeln('yes') {这个是圆心为原点的圆的标准方程}
else writeln('no');
end.
第二题
var
s,m,h,i:longint;
a:array[1..100000] of longint;
begin
readln(a[1]);{读入a1,用数组读入}
readln(m,h);{读入第m项和公差m}
s:=a[1];{用s记录从a1到第m项的乘积}
for i:=2 to m do
begin
a[i]:=a[i-1]+h;{计算a[i]的值}
s:=s*a[i];{把a[i]乘到s中去}
end;
writeln(s);{输出从a1到am的积}
end.
1.
program hsjd;
var
r,x,y:real;
begin
read(r,x,y);
if abs(sqrt(x*x+y*y)-r)<0.00000001 then
writeln('yes') else writeln('no');
end.
2.
program hsjd;
va...
全部展开
1.
program hsjd;
var
r,x,y:real;
begin
read(r,x,y);
if abs(sqrt(x*x+y*y)-r)<0.00000001 then
writeln('yes') else writeln('no');
end.
2.
program hsjd;
var
now,m,i,a1,h:longint;
ans:int64;
begin
read(a1,h,m);
now:=a1;ans:=a1;
for i:=2 to m do
begin
now:=now+h;
ans:=ans*now;
end;
writeln(ans);
end.
收起