作业帮用PASCAL 计算交点数(jd.pas/in/out)
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/13 23:27:35
用PASCAL 计算交点数(jd.pas/in/out)
用PASCAL
计算交点数(jd.pas/in/out)
平面上有n条直线,且无三线共点,问这些直线能有多少种不同交点数
输入：n（n
program noi2;
var n,m,t,i:integer;
h:array[1..10000] of double ;
temp,head,tail,mid,v:double;
begin
readln(n,m,v);
t:=n*m;
for i:=1 to t do (1)
head:=0;
(2)
while (3) do
begin
(4)
temp:=0;
for i:=1 to t do
if (h[i]
用PASCAL
计算交点数(jd.pas/in/out)
平面上有n条直线,且无三线共点,问这些直线能有多少种不同交点数
输入：n（n
program noi2;
var n,m,t,i:integer;
h:array[1..10000] of double ;
temp,head,tail,mid,v:double;
begin
readln(n,m,v);
t:=n*m;
for i:=1 to t do (1)
head:=0;
(2)
while (3) do
begin
(4)
temp:=0;
for i:=1 to t do
if (h[i]
似乎没那么难.没有测试数据也不知道对不对.
var m,n,i,j:longint;
begin
assign(input,'jd.in'); reset(input);
assign(output,'jd.out'); rewrite(output);
readln(n);
m:=(n*(n-1)) div 2;
writeln('0');
for i:=n-1 to m do
writeln(i);
close(input);
close(output);
end.
var m,n,i,j:longint;
begin
assign(input,'jd.in'); reset(input);
assign(output,'jd.out'); rewrite(output);
readln(n);
m:=(n*(n-1)) div 2;
writeln('0');
for i:=n-1 to m do
writeln(i);
close(input);
close(output);
end.