博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

文章分类 -  PASCAL练习题

电子表格计算器

摘要：Description 一个电子表格是一个矩阵，其中的元素可以是数也可以是表达式，表达式可以通过赋值而成为数。一个简单的电子表格，其中的数是整数，表达式是由不同的整数、元素的标示符及'＋'，'－'组成。对任一个表达式，若要求用数表示，则可用赋值以后的数值代替。 编程任务：对简单的电子表格进行赋值。Input 　　第一行由2个数据N、M，表示矩阵由N行、M列组成 　　列的标示从大写字母Ａ到Ｔ，行的标... 阅读全文

posted @ 2010-11-14 16:26 桃子在路上 阅读(2470) 评论(0) 推荐(0) 编辑

寻找质因数

摘要：寻找质因数描述 Description给出N个数字，试求质因数最大的数字。输入格式 Input Format第一行，一个整数N，表示数字个数。接下来N行，每行一个整数A_i，表示给出的数字。输出格式 Output Format一个整数，表示质因数最大的数字。样例输入 Sample Input4 36 38 40 42 样例输出 Sample Output38 时间限制 Time Limitatio... 阅读全文

posted @ 2010-10-31 23:35 桃子在路上 阅读(593) 评论(0) 推荐(0) 编辑

寻找第K大数

摘要：【试题描述】 N个小朋友在一起做游戏。 每个小朋友在自己的硬纸板上写一个数，然后同时举起来。 接着，小y老师提一个问题，看哪个小朋友先抢答出来。 问题是：在这N个数中，第K大的是哪个数？请你编程完成。【输入描述】 输入文件的第一行为2个整数，依次为N和K( K <= N <= 10000 )。 下面N行，每行为一个整数，表示从第1个小朋友到第N个朋友分别写的数。假设这些小朋友只知道-3... 阅读全文

posted @ 2010-10-24 09:59 桃子在路上 阅读(876) 评论(0) 推荐(0) 编辑

万年历问题

摘要：【题目】输入年、月、日，求这一天是星期几。【参考程序１】【算法提要】求出这一天离公元１年的元旦有多少天days，然后对7求余constfirst=1; {公元１年为基准}first_week=1; {公元１年的元旦为星期一}yue:array[1..12] of 1..31=(31,28,31,30,31,30,31,31,30,31,30,31);week_:array[0..6] of str... 阅读全文

posted @ 2010-10-19 21:37 桃子在路上 阅读(305) 评论(0) 推荐(0) 编辑

方阵填数

摘要：方阵填数１ 【题目】方阵填数：在一个Ｎ×Ｎ的方阵中，填入１，２，．．．．．Ｎ×Ｎ个数，并要求构成如下的格式：如 Ｎ＝４ Ｎ＝５10 11 12 1 13 14 15 16 19 16 13 2 12 23 24 17 28 15 14 3 11 22 25 18 37 6 5 4 10 21 20 19 4 9 8 7 6 5【参考程序】Varj:Integer;n,i... 阅读全文

posted @ 2010-10-19 21:22 桃子在路上 阅读(1465) 评论(0) 推荐(0) 编辑

字母塔

摘要：【问题】输出由字母组成的“字母塔”。例如：输入Ｃ，则输出： AABAABCBAABCDCBA【参考程序】var i,zimu,j,k:char;beginrepeatwriteln('input a char:');readln(zimu);zimu:=upcase(zimu);until (zimu>='A') and (zimu<='Z');for i:='... 阅读全文

posted @ 2010-10-19 21:17 桃子在路上 阅读(297) 评论(0) 推荐(0) 编辑

K个好人与K个坏人

摘要：现在有一圈人，k个好人站在一起，k个坏人站在一起。从第一个好人开始数数。你要确定一个最小的m，使得在第一个好人被杀死前，k个坏人先被杀死。输入一个k，0<k<14输出一个m样例：输入3输出5另一个样例：输入4输出30program joseph;var n,i,ans:longint; pc:array [1..100] of boolean;procedure init;begin ... 阅读全文

posted @ 2010-10-19 16:30 桃子在路上 阅读(645) 评论(0) 推荐(1) 编辑

猴子选大王

摘要：【问题】n只猴子选大王，选举办法如下：从头到尾１，２，３报数，凡报３的退出，余下的从尾到头１，２，３报数，凡报３的退出．．．如此类推，当剩下两只猴子时，取这时报１的为王，若想当猴王，请问当初应占据什么位置？【测试数据】n │ 7 │ 10│20│100 │位置│2 │ 8│16│ 77 │【参考程序１】const number=3;var n,num,i,total:integer;a:array... 阅读全文

posted @ 2010-10-19 15:21 桃子在路上 阅读(1527) 评论(0) 推荐(0) 编辑

约瑟夫问题

摘要：M个人围成一圈，从第一个人开始报数，数到n的人出圈。再由下一个人开始报数，数到n的人出圈，……输出依次出圈人的编号。M值预先选定，n值由键盘输入。[解题分析]用一个数组存储M个人，先初始化数组，并使数组元素的值等于1，输入n的值。从1到M循环，判断该元素是否为数到n的元素，若是，则输出，并把其值赋为0，表示该元素已从数组中删除。[算法设计](1) 初始化数组a[I],赋... 阅读全文

posted @ 2010-10-19 11:41 桃子在路上 阅读(289) 评论(0) 推荐(0) 编辑

狐狸捉兔子

摘要：狐狸捉兔子 围绕着山顶有10个洞，一只狐狸和一只兔子住在各自的洞里。狐狸总想吃掉兔子。一天，兔子对狐狸说：“你想吃我有一个条件，先把洞从1～10编上号，你从10号洞出发，先到1号洞找我；第二次隔1个洞找我，第三次隔2个洞找我，以后依此类推，次数不限。若能找到我，你就可以饱餐一顿。不过在没有找到我以前不能停下来。”狐狸满口答应就开始找了，它从早到晚进了1000次洞，累得昏了过... 阅读全文

posted @ 2010-10-09 00:00 桃子在路上 阅读(1683) 评论(0) 推荐(0) 编辑

循环结构练习题目4

摘要：9. fibonacci数列的前两项为0、1，以后的每一项都是其前两项之和。计算fibonacci数列前100项的值。 program exRecurrence9_1;var a1, a2, s : double; i : integer;begin a1 := 0; a2 := 1; write(a1:0:0, ' ', a2:0:0, ' '); for i := 3 to 100 do be... 阅读全文

posted @ 2010-10-07 13:46 桃子在路上 阅读(149) 评论(0) 推荐(0) 编辑

循环结构练习题目3

摘要：6. 一个两位数 x，个位上的数字与十位上的数字对调后得到第二个两位数 y；此时， y - x = 36。求所有这样的两位数。 program exExhaustive6_1;const c = 36;var f, s : integer;begin for s := 1 to 9 do for f := 1 to s-1 do if (s*10+f-f*10-s = c) then writel... 阅读全文

posted @ 2010-10-07 13:42 桃子在路上 阅读(165) 评论(0) 推荐(0) 编辑

循环结构练习题目2

摘要：5. 求出 1 - 10000 以内所有所有 10 以内的素数的倍数，统计它们的和。 program exExhaustive5_1;const e = 10000;var i, sum : Longint;begin for i := 2 to e do if (i mod 2 = 0) or (i mod 3 = 0) or (i mod 5 = 0) or (i mod 7 = 0) the... 阅读全文

posted @ 2010-10-07 12:00 桃子在路上 阅读(235) 评论(0) 推荐(0) 编辑

循环结构练习题目1

摘要：1. 将100圆兑换为20, 10, 5, 2, 1，五种不同面额的纸币，输出每种换法，最后输出换法总数。 program exExhaustive1_1;const All = 100;var twenty, ten, five, two, num : integer;begin for twenty := 1 to All div 20 do for ten := 1 to (All - tw... 阅读全文

posted @ 2010-10-07 11:55 桃子在路上 阅读(295) 评论(0) 推荐(0) 编辑

打印图形练习参考程序

摘要：program expicture1_1;const lines = 4;vari, j : integer;beginfor i := 1 to lines dobeginwrite(' ' : i);for j := 1 to 2*(lines-i)+1 dowrite('#');writeln;end;readln;end.program expicture1_1;const MaxChar... 阅读全文

posted @ 2010-10-07 11:31 桃子在路上 阅读(194) 评论(0) 推荐(1) 编辑

打印图形练习

摘要：1、打印以下图形 ############ ### #2、打印以下图形 * +++ *****+++++++ ***** +++ *3、打印以下图形 3 33322222 222 14、 打印以下图形 a bbb ccccc ddddddd eeeeeeeeef f f f f f f f f f f5、打印以下图形 0 101 21012 32101234321012346、打印以下图形 ... 阅读全文

posted @ 2010-10-07 11:28 桃子在路上 阅读(199) 评论(0) 推荐(0) 编辑