用pascal判断三条边可否围成三角形vara:array[1..5,1..3]of integer;n,i,j,m,t:integer;beginwhile not eof dobeginfor t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);m:=0;for t:=1 to 5 dobeginn:=a[t,1];i:=a[t,2];j:=a[t,3];if ((n+i)>j)and((n+j)>i)and
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/28 22:59:26
![用pascal判断三条边可否围成三角形vara:array[1..5,1..3]of integer;n,i,j,m,t:integer;beginwhile not eof dobeginfor t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);m:=0;for t:=1 to 5 dobeginn:=a[t,1];i:=a[t,2];j:=a[t,3];if ((n+i)>j)and((n+j)>i)and](/uploads/image/z/6087369-57-9.jpg?t=%E7%94%A8pascal%E5%88%A4%E6%96%AD%E4%B8%89%E6%9D%A1%E8%BE%B9%E5%8F%AF%E5%90%A6%E5%9B%B4%E6%88%90%E4%B8%89%E8%A7%92%E5%BD%A2vara%3Aarray%5B1..5%2C1..3%5Dof+integer%3Bn%2Ci%2Cj%2Cm%2Ct%3Ainteger%3Bbeginwhile+not+eof+dobeginfor+t%3A%3D1+to+5+do+readln%28a%5Bt%2C1%5D%2Ca%5Bt%2C2%5D%2Ca%5Bt%2C3%5D%29%3Bm%3A%3D0%3Bfor+t%3A%3D1+to+5+dobeginn%3A%3Da%5Bt%2C1%5D%3Bi%3A%3Da%5Bt%2C2%5D%3Bj%3A%3Da%5Bt%2C3%5D%3Bif+%28%28n%2Bi%29%3Ej%29and%28%28n%2Bj%29%3Ei%29and)
用pascal判断三条边可否围成三角形vara:array[1..5,1..3]of integer;n,i,j,m,t:integer;beginwhile not eof dobeginfor t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);m:=0;for t:=1 to 5 dobeginn:=a[t,1];i:=a[t,2];j:=a[t,3];if ((n+i)>j)and((n+j)>i)and
用pascal判断三条边可否围成三角形
var
a:array[1..5,1..3]of integer;
n,i,j,m,t:integer;
begin
while not eof do
begin
for t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);
m:=0;
for t:=1 to 5 do
begin
n:=a[t,1];
i:=a[t,2];
j:=a[t,3];
if ((n+i)>j)and((n+j)>i)and((i+j)>n) then n:=n+1;
end;
writeln(n);
end;
end.
用pascal判断三条边可否围成三角形vara:array[1..5,1..3]of integer;n,i,j,m,t:integer;beginwhile not eof dobeginfor t:=1 to 5 do readln(a[t,1],a[t,2],a[t,3]);m:=0;for t:=1 to 5 dobeginn:=a[t,1];i:=a[t,2];j:=a[t,3];if ((n+i)>j)and((n+j)>i)and
你最后应该用m来计数吧
then m:=m+1;
writeln(m);