pascal 输入三角形的3个边,判断他是直角三角形,等边三角形还是普通三角形

设输入的是a,b,c那麼以下3个条件同时成立即可1a+b>c2b+c>a3c+a

vara:array[1..1000]ofinteger;n,i,j,k:integer;beginreadln(n);j:=1;fori:=1tondobeginread(a[i]);ifa[i]

programsample;vari,x,s,q:longint;begins:=0;q:=0;fori:=1to30dobeginread(x);inc(s,x);inc(q,sqr(x));end

eginreadln(n);fori:=1tondoread(a[i]);k:=1;fori:=1ton-1doifa[k]再问：说明部分也写一下再答：beginreadln(n);{读入一共多少个数

vari,k,n1,n2:integer;beginn1:=0;n2:=0;fori:=1to20dobeginreadln(k);ifk>0thenn1:=n1+1elseifk

求数据的方差,汗-_-|||programfangcha;var\x05n,sum:integer\x05x,s:real\x05a:array[1..1000]ofinteger;begin\x05

楼上两位全错了……不解释,不信自己手算.定理：求前n个奇数的总和=n的平方varn:longint;beginreadln(n);writeln(n*n);end.

#include#include"math.h"intmain(void){\x09printf("请输入三角形的三条边:\n");\x09floata,b,c,s,sum=0;\x09scanf("

能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.

vara:array[1..3]oflongint;x,n,i,t:longint;beginreadln(n);fori:=1tondobeginread(x);ifxin[1..3]theninc

varn,s,m:longint;beginread(n);s:=0;m:=0;whilen-1dobeginifnmod2=0thenbegins:=s+n;m:=m+1;end;read(n);e

p和m不是integer,是real而且输出的时候会用科学记数法显示,所以最好再定义2个变量,把面积和周长存起来,writeln([变量名]：0：2)【意思是保留2位小数】

1+2+3+……+n的和可以看成是一个上底是1下底是n的梯形的面积.|1||2|||3||||4…………所以1+2+3+……+n=n*（1+n）/2.1)programsum1;varb,i:long

设a[0](等于0)到a[i]的部分和为s[i],则只要求出s[0],s[1],…,s[n]之间的关系即可.而他们之间的关系可以用有向图表示,且在有向图中连成环的即为无解.对于a[i]至a[j]的和的

varp,s,a,b,c:real;beginreadln(a,b,c);if(a>0)and(b>0)and(c>0)and(a+b-c>0)and(abs(a-b)

programt1；vara,b,c,n:integer;beginn:=a+b+c;if(a+b>c)and(b+c>a)and(a+c>b)thenwriteln(n)elsewriteln('N

varn,i,j,k:integer;beginreadln(n);fori:=1tondobeginforj:=1to3dobeginwrite('':n-i+1);fork:=1toi+i-1do

主要有三个问题,一个是你的YUSHU函数应该用值参而不是用形参,就是说要把VAR去掉；还有就是你的循环体里A:=B是不对的,想一下,如果这样赋值,一进循环体,A,B就相等了,显然不对,应该定义一个中间

#include"stdafx.h"#include"stdio.h"#includeintmain(intargc,char*argv[]){doublex,y,z,s,c,p;scanf("%lf

case用法错误sqr(a)+sqr(b)=sqr(c);writeln('zhijiaosanjiaoxing');你没用beginend怎么一起输出?你这样写还不如写ifthen再问：对不起。我还