PASCAL小程序

8关注506浏览

展开全部
收起
5回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 潇潇暮雨

    20人对此回答表示赞同

    简单程序 既没给给写体程 if(a+b<=c||b+c<=a||a+c<=b) printf("错误"); else if(相等) printf("等边") else if(两相等) printf(等腰) else if(a*a+b*b==c*c) printf(直角三角形) else printf(普通三角形)
    展开
    20
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Ethan

    16人对此回答表示赞同

    var a:array[1..3]of real;
    d:real;
    i,j:integer;
    b:boolean;
    z:array[1..3]of boolean;
    begin
    for i:=1 to 3 do read(a[i]);
    if (a[1]+a[2]>a[3])and(a[1]+a[3]>a[2])and(a[2]+a[3]>a[1]) then b:=true
    展开
    16
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 祖师爷

    13人对此回答表示赞同

    很简单的一个程序
    既然没有给分,那只给写大体过程
    if(a+b<=c||b+c<=a||a+c<=b)
    printf("错误");
    else
    if(相等的话)
    printf("等边")
    else
    if(两个相等的话)
    printf(等腰)
    else
    if(a*a+b*b==c*c)
    printf(直角三角形)
    else
    展开
    13
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Zoey

    6人对此回答表示赞同

    这样试试:
    program sjx (input,output);
    var a,b,c:real;
    begin
    readln(a,b,c);
    if a<>0 then
    if b<>0 then
    if c<>0 then
    if (a+b>c) and (a+c>b) and (b+a>c) then
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Simon叔

    5人对此回答表示赞同

    var
    a,b,c:real;
    begin
    readln(a,b,c);
    if a<>0 then
    if b<>0 then
    if c<>0 then
    if (a+b>c) and (a+c>b) and (b+a>c) then
    if a=b and b=c the
    展开
    5
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部