文章分类 -  noip上机编程作业

摘要：1：从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。 program p1; var a:array [1..10] of integer; i,s:integer; begin for i:=1 to 10 do read(a[i]); for i:=10 downto 1 do write(a[i],' '); writeln; ... 阅读全文

摘要：上机编程作业5 二维数组 （2008、11、25） 1、 输入N个同学的语、数、英三科成绩，计算他们的总分与平均分，并统计出每个同学的名次，最后以表格的形式输出。 2、输入10个学生的姓名，编一程序将它们按字母的顺序排列。 3、 输出杨辉三角的前N行(N<10)。 1 1　1 1　2　1 1　3　3　1 1　4　6　4　1... 阅读全文

摘要：上机编程作业4 数 组（2008、11、18） 1、 从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。 2、从键盘输入10个数，将这10个数从大到小的顺序输出。 3、用筛法求100以内的素数（质数）。 4、随机产生20个100以内的数，输出；按从小到大的顺序排序，输出。 5、有一组数，其排列形式如下：11，19，9，12，5，20，1，18，4，16，6... 阅读全文

摘要：1、 从键盘读入一个数，判断它的正负。是正数，则输出"+"，是负数，则输出"-"。 2、 输入两个数a,b，输出较大数的平方值。 3、 铁路托运行李规定：行李重不超过50公斤的，托运费按每公斤0.15元计费；如超50公斤，超过部分每公斤加收0.10元。编一程序完成自动计费工作。 4、 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过... 阅读全文

摘要：上机编程练习： 1、计算下列式子的值： （1）1+2+……+100 （2）1*3*5+……+19 2、输入一个四位数，求它各位上数字的和。 3、求水仙花数。所谓水仙花数，是指一个三位数abc，如果满足a^3+b^3+c^3=abc，则abc是水仙花数。 4、宰相的麦子：相传古印度宰相达依尔，是国际象棋的发明者。有一次，国王因为他的贡献要奖励他，问他想要什么。达依尔说：“只要... 阅读全文

摘要：第一题 program jhsz; var a,b,t:integer; begin writeln('input a and b '); readln(a,b); writeln(a,' ',b); begin t:=a; a:=b; b:=t; writeln(a,' ',b); end; end. 第二题 program lx12; ... 阅读全文

摘要：1、 从键盘上输入a,b,然后交换后分两行输出(比方说a=5,b=10). 2、 a,b,c分别等于1、12、123，把它们按向左对齐、向右对齐的方式打印出来。 3、 输入一个四位整数，把它的各位数字倒序输出。（提示：用MOD和DIV运算完成） 4、 从键盘上读入一个小写的字母,利用CHR（）和ORD（）函数，输出对应的大写字母。 5、 从键盘上读入一个实数，利用ROUND（）和TRUNC（）函数... 阅读全文