块结构语句.ppt

块结构语句三、说明1、THEN后面不能有除了注释语句以外的其他任何语句2、语句块可以包括0、1、或多个语句行3、ELSE部分可有可无4、建议语句块向内缩进若干列,ELSE独占一行5、IF…THEN与EDNIF必须成对使用1、THEN后面不能有除了注释语句以外的其他任何语句2、语句块可以包括0、1、或多个语句行3、ELSE部分可有可无4、建议语句块向内缩进若干列,ELSE独占一行5、IF…THEN与EDNIF必须成对使用例1:求解一元二次方程开始输入a,b,cd=b^2-4*a*cd>=0X1=(-b+sqr(d))/(2*a)输出X1,X2输出“wushigen”结束j是否X2=(-b-sqr(d))/(2*a)FileEditViewSearchRunDebugOptionsHelpUntitledD:\QBASIC\“SHURUA,B,C”;A,B,CD=B^2-4*A*CIFD>=0THENX1=(-B+SQR(D)/(2*A)X2=(-B-SQR(D)/(2*A)PRINT“X1=”;X1;“X2=”;X2ELSEPRINT“WUSHIGEN”ENDIFENDSHURUA,B,C?X1=-2X2=-31,56,Pressanykeytocontinue例2:由键盘输入a,b,c,将a,b,c作为三角形三边的长,用下面的公式编程求三角形的面积。其中:P=(a+b+c)/2开始输入a,b,ca+b>cANDa+c>bANDb+c>aP=(a+b+c)/2输出S输出“wushigen”结束是否s=sqr(p*(p-a)*(p-b)*(p-c))FileEditViewSearchRunDebugOptionsHelpUntitledD:\QBASIC\“SHURUA,B,C”;A,B,CIFA+B>CANDA+C>BANDB+C>ATHENP=(A+B+C)/2S=SQR(P*(P-A)*(P-B)*(P-C))PRINT“S=“;SELSEPRINT“SHURUCHUOWU”ENDIFENDSHURUA,B,C?S=63,45,Pressanykeytocontinue