Pascal 输入一个4*4的矩阵
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/02 18:27:39
又是我.vars:string;i:longint;beginreadln(s);ifs[1]''thens[1]:=chr(ord(s[1])-32);fori:=2tolength(s)doifs
varn:longint;beginreadln(n);ifnmod7=0thenwriteln('yes'){除以7取余,是否等于0,等于则输出yes,否则输出no}elsewriteln('no'
问一下:对于数据的顺序有没有什么要求?ForExample:Input: 1234
varn:real;beginreadln(n);writeln('n的平方:',sqr(n):0:6);writeln('n的平方根:',sqrt(n):0:6);writeln('n的3次方根:'
var a:array[1..5,1..5] of integer; i,j,max,ij,x,y:integer;begi
varx,s:real;beginread(x);s:=0;ifx
这个其实可以用多种方法实现方法1:分离数字法varx,l,s:longint;beginread(x);whilex>0dobeginl:=xmod10;inc(s,l);x:=xdiv10;//当前
programyueshuhe;varn,i,s:longint;beginwriteln('inputn:');readln(n);s:=1;fori:=2tondobeginifnmodi=0th
只能告诉你算法,pascla不会定义一个变量sum,记录约数之和得到自然数a,定义变量i从1遍历到a,只要a/i==0,sum=sum+i,最后输出sum就是了
varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!
能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.
p和m不是integer,是real而且输出的时候会用科学记数法显示,所以最好再定义2个变量,把面积和周长存起来,writeln([变量名]:0:2)【意思是保留2位小数】
审题错了吧,求所有素因子意思就像因子分解。比如18=2×3×3你找素因子用的i那个for循环吧,按你的求法,一个因子只能在式子中出现一次。下一次循环i的值就增加了嘛。你可以按照这个思路来:输入k,wh
第四个if那行末尾是)而不是>在错误信息那里有提示错误发生在(14,2)即第14行第2位,在附近(不一定一定在那里)找找就能发现
用字符数组存储这N个数再用ASCII码将字符类型的数字转换成整数数字再加起来即可;vara:array[1..10000]ofchar;i,s,n:longint;beginfori:=1to4dor
varn:longint;beginreadln(n);writeln(abs(n));{绝对值}writeln(sqr(n));{平方}writeln(sqrt(n));{平方根}writeln(p
楼主你想表达什么?输入还是输出?再问:输出图形,输入行数再答:n的范围是不是小于26?再问:是再答:写好了vari,j,n:integer;c:char;beginread(n);c:='a';for
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.
vara:array[1..4,1..4]ofinteger;n,i,j,s:integer;beginfori:=1to4doforj:=1to4doread(a[i,j]);s:=0;fori:=
数字操作:varn,s:integer;beginreadln(n);s:=0;whilen>0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.字符串操