这道是pascal的读程序题目,我要的是过程,不是单单一个答案读程序10、Program ex10;var a:string; n:integer; procedure getnext(var str:string); var l,i,j,k:integer; \x05temp:char; begin \x05L := length(str); \x05k := L - 1; while
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 21:27:00
![这道是pascal的读程序题目,我要的是过程,不是单单一个答案读程序10、Program ex10;var a:string; n:integer; procedure getnext(var str:string); var l,i,j,k:integer; \x05temp:char; begin \x05L := length(str); \x05k := L - 1; while](/uploads/image/z/9299760-24-0.jpg?t=%E8%BF%99%E9%81%93%E6%98%AFpascal%E7%9A%84%E8%AF%BB%E7%A8%8B%E5%BA%8F%E9%A2%98%E7%9B%AE%2C%E6%88%91%E8%A6%81%E7%9A%84%E6%98%AF%E8%BF%87%E7%A8%8B%2C%E4%B8%8D%E6%98%AF%E5%8D%95%E5%8D%95%E4%B8%80%E4%B8%AA%E7%AD%94%E6%A1%88%E8%AF%BB%E7%A8%8B%E5%BA%8F10%E3%80%81Program+ex10%3Bvar+a%3Astring%3B+n%3Ainteger%3B+procedure+getnext%28var+str%3Astring%29%3B+var+l%2Ci%2Cj%2Ck%3Ainteger%3B+%5Cx05temp%3Achar%3B+begin+%5Cx05L+%3A%3D+length%28str%29%3B+%5Cx05k+%3A%3D+L+-+1%3B+while)
收录互联网各类作业题目,免费共享学生作业习题
头条考试网手机作业共收录了 千万级 学生作业题目
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/12 21:27:00