pascal程序填空题_第1页
pascal程序填空题_第2页
pascal程序填空题_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

pascalpascal 程序填空题程序填空题 发表日期 2007 年 9 月 13 日 编辑录入 wwz107 1 题目 输入一个正整数 然后与它倒过来的数相加 程序说明 先将读入的正整数进行数字分离 分离出的个位 十位 百位 数字 依次存 放到 a 10 a 9 a 8 各下标变量中 然后再将它们合并成一个倒过来的数 y 再与原数相加 程序 program t4 1 input output var a array 1 10 integer i j x x1 y integer begin readln x x1 x j 1 while 2 do begin j j 1 a j x mod 10 x 3 end y 0 for i 4 do y y 10 a i x 5 writeln x end 2 题目 读入 N 个不相同且不为 0 的数 1 N 100 求出其中第 R 个大的数 1 R N 例如 输入 3 14 22 15 17 6 其中第 3 个大的数为 15 程序说明 以数组 A 100 记录读入的 N 个数 并以 0 为结束 0 本身不是 N 个数中的 然后从第一个数开始 将它与其余的数进行比较 并记录出比它大的数的个数 存 于变量 y 中 若 y R 1 时 得到所求结果 否则对下一个数进行同样的处理 程序 program t4 1 input output var a array 1 100 integer i j k x y integer begin read R j 0 read x while 1 do begin j 2 a j x read x end i 0 repeat i i 1 x a i y 0 for k 1 to 3 do if xmaxi then ma
人人文库> 全部分类> 教育资料 > 中学教育

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论