返回以二维数组周边元素之和为函数值

出二维数组周边元素之和作为函数值返回

出二维数组周边元素之和作为函数值返回

第一个for循环用于计算矩阵最上一行和最下一行的总和,第二个for循环则计算除两头元素以外的最左一列和最右一列的元素的和。最后,将这两个求和结果相加得到周边元素的和。

〔源程序〕

#include

#include

#define M 4

#define N 5

int fun(int a[M][N])

{int sum=0,i;

for(i=0;i

sum+=a[0][i]+a[M-1][i];

for(i=1;i

sum+=a[i][0]+a[i][N-1];

return sum ;

}

main()

{ int aa[M][N]={{1,3,5,7,9},

{2,9,9,9,4},

{6,9,9,9,8},

{1,3,5,7,0}};

int i,j,y;

clrscr();

printf("The original data is :\n");

for(i=0;i

{for(j=0;j

printf("\n");

}

y=fun(aa);

printf("\nThe sum: %d\n",y);

printf("\n");

}

二维数组靠边元素之和

private function Anyl(A()() AS INTEGER,byval m as integer,byval n as integer) as long

tol=sum_side(A,m,n)

print tol

if m=n then

sd=Diag(A,m)

sid=InDiag(A,m)

print sd

print sid

else

print "m≠n"

end if

end function

private function Sum_side(A()() AS INTEGER,byval m_side as integer,byval n_side as integer) as long

dim sum as long

sum=0

n_side=n_side-1

for i=0 to n step 1

sum=sum+A(0)(i)

next i

m=m-2

for i=1 to m step 1

sum=sum+A(i)(0)

sum=sum+A(i)(n)

next i

m=m+1

for i=0 to n step 1

sum=sum+A(m)(i)

next i

sum_side=sum

end function

private function Diag(A()() AS INTEGER,byval m as integer) as long

dim Sum_Diag as long

m=m-1

Sum_Diag=0

FOR i=0 to m step 1

Sum_Diag=Sum_Diag+A(i)(i)

next i

Diag=Sum_Diag

end function

private function InDiag(A()() AS INTEGER,byval m as integer) as long

dim Sum_InDiag as long

m=m-1

Sum_Diag=0

FOR i=0 to m step 1

Sum_InDiag=Sum_InDiag+A(i)(m-i)

next i

InDiag=Sum_InDiag

end function

以上就是返回以二维数组周边元素之和为函数值的详细内容,更多请关注【创想鸟】其它相关文章!

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至253000106@qq.com举报,一经查实,本站将立刻删除。

发布者:PHP中文网,转转请注明出处:https://www.chuangxiangniao.com/p/2529277.html

(0)
上一篇 2025年3月5日 20:20:19
下一篇 2025年3月5日 20:20:26

AD推荐 黄金广告位招租... 更多推荐

相关推荐

  • 如何解决电脑分辨率过高导致CAD工具栏重叠

    电脑分辨率太高cad工具栏都挤在一起怎么办 降低屏幕分辨率的方法与步骤: 开机时,要及时按下F8键进入“高级模式”,因为系统选项界面仅显示短暂时间。为了确保不错过时机,建议提前按下F8键。 2,进入“高级模式”后,先选择“安全模式”这一项,…

    2025年3月5日
    000
  • 适合初学IT电脑编程的书籍推荐

    初学it电脑编程适合那种书籍 Java编程入门类 对于没有Java编程经验的程序员要入门,推荐选择一本适合初学者的入门书籍。在这个阶段,重点是快速掌握Java的基础语法和基本用法,就像是“囫囵吞枣不甚解”,先对Java有一个基本的了解。花一…

    2025年3月5日
    200
  • 使用alt键打出一串数字,属于哪种输入法?

    按住alt一串阿拉伯数字打字算不算是什么输入法 这不是输入法。而是把系统的内码(ASCII码)字库调出来了。按Alt+小键盘区的数字键 这个也能打字,还能打出特别符号,请问怎样灵活运用这个打字和符号,有什么窍门吗? 首先,汉字编码是计算机处…

    2025年3月5日
    200
  • 如何使用VB将本地的SQL数据库传输到远程SQL

    使用VB怎么能把本地的SQL数据库传到远程的SQL中 确定你的空间有数据服务连接 源错误: 行 29: ConnectionStringSettings setting = System.Configuration.Configuratio…

    2025年3月5日
    200
  • 传输苹果手机通讯录至电脑的方法

    还有很多方法,下面的你方法你可以试一下。 第一法:文件法 例如,如果你想将手机A上的通讯录导入到手机B上,你可以将a.vcf文件导出到手机A的SD卡中,然后将此文件复制到手机B的SD卡中。最后,在手机B上双击该文件即可完成导入操作。 第二法…

    2025年3月5日
    200
  • 详解一道关于反三角函数的定积分题

    一道反三角函数的定积分题目麻烦详细过程 ∫ (arcsinx)² dx = x(arcsinx)² – ∫ x d(arcsinx)² = x(arcsinx)² – ∫ x • 2(arcsinx) • 1/√(1…

    2025年3月5日
    200
  • 修复网卡异常的方法

    网卡不正常怎么修复 电脑网卡2113驱动程序不正常的解决方法: 1、重启电脑: 有些时候网卡驱动出现问题,是由于在电脑启动时加载驱动程序不正确,只需要我们重启电5261脑。 2、windows update更新: windows系统实时更新…

    2025年3月5日
    200
  • U盘安装新系统的步骤详解

    如何用U盘给电脑重新装系统 自己下载安装个大白菜U盘制作工具 首先得有个U盘 格式是USB-ZIP 按"DEL"键进入BIOS (主机大多数是DEL有的是F2或F1.请按界面提示进入),选择BIOS FEATURES SETUP,将Boot…

    2025年3月5日
    200
  • 计算机为何无声输出?

    计算机怎么没声音啊 电脑没有声音: 电脑没声音可以按以下步骤来进行分析: 首先要确认硬件无问题。你已经确认喇叭和声卡都正常,如果你已经在其他机器上测试过并且正常,那么可以继续进行下一步。 二、确认所有的连接线完全正确。然后将音箱电源打开,音…

    2025年3月5日
    200
  • iPhone5无法连接WiFi,其他手机可以连接网络

    我的iPhone5在连接WiFi时显示无法加入网络其他手机都可以连接 苹果wifi连不上解决方法一:加入网络 请确认您已经启用了无线局域网,并且已经成功连接到了一个无线网络。如果您需要进行设置,请点击屏幕上的“设置”按钮,然后选择“无线局域…

    2025年3月5日
    200

发表回复

登录后才能评论