- 博客(12)
- 收藏
- 关注
RSS订阅原创 Pascal【入门】编程求解1+1/2+1/3+...+1/n
题目描述：读入一个数n，编程求1+1/2+1/3+...+1/n。输入：输入一行，只有一个整数n(1<=n<=200) 。输出：输出只有一行（这意味着末尾有一个回车符号），包括1个实数。(保留3位小数)样例输入：5样例输出：2.283代码实现：var n,i:longint; s:real;begin readln(n)...
2018-07-23 12:14:35
3230
1
原创 Pascal【入门】求出100至999范围内的水仙花数。
题目描述：所谓水仙花数，就是指各位数字立方之和等于该数的数；a^3称为a的立方，即等于a*a*a的值。例如：因为153=1^3+5^3+3^3，所以153是一个水仙花数。请编程求出100至999范围内的所有水仙花数。输入：没有输入。输出：若干行，每行一个整数，表示该范围内的所有水仙花数。按从小到大的顺序输出。代码实现：var i,j,s,b,g:longint;be...
2018-07-23 12:01:51
1299
原创 Pascal【入门】任意输入一正整数N，要求把它拆成质因子的乘积。
题目描述：任意输入一正整数N，求出它的所有质因子。如：10＝（2*5）；20=（2*2*5）。输入：输入只有一行，包括1个整数。输出：输出只有一行，各质因子以一个空格隔开。样例输入：36样例输出：2 2 3 3代码实现：var n,k,i:longint;begin readln(n); k:=n; ...
2018-07-23 11:51:25
3143
1
原创 Pascal【入门】判断素数
题目描述：任意输入一个整数，判断它是否为素数。是的话输出"T",不是的话输出"F"。输入：输入只有一行，包括1个整数(在longint范围内）。输出：输出只有一行。样例输入：57样例输出：F提示：若从2到A的平方根的范围内，没有一个数能整除A，则A是质数。代码实现：var x,i:longint; f:boolean;begin ...
2018-07-23 11:43:09
1693
原创 Pascal【入门】两个自然数M和N的最大公约数和最小公倍数。
题目描述：求两个整数M和N的最大公约数和最小公倍数。输入：输入一行，包括两个整数。输出：输出只有一行，最大公约数和最小公倍数，包括2个整数，中间空格分开。样例输入：45 60样例输出：15 180代码实现：var n,m,i:longint;begin readln(n,m); for i:=n downto 1 d...
2018-07-22 08:59:41
1772
原创 Pascal【入门】分糖果
题目描述：某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。输入：输入一行，五个整数。输出...
2018-07-21 22:01:04
1172
原创 Pascal【入门】判断某年某月的天数
题目描述：输入年，月，然后告诉该月有多少天。输入：输入只有一行，包括2个整数。之间用一个空格分开。输出：输出只有一行，为1个整数。样例输入：2000 2样例输出：29代码实现：var y,m,d:integer； f:boolean;begin readln(y,m); if(y mod 4=0)and(y mod 100 <>...
2018-07-21 21:54:41
973
原创 Pascal【入门】判断成绩等级
题目描述：输入某学生成绩，如果86分以上(包括86分）则输出“VERY GOOD” ，如果在60到85之间的则输出“GOOD”(包括60和85)，小于60的则输出“BAD”。输入：输入只有一行，包括1个整数。输出：输出只有一行样例输入：80样例输出：GOOD代码实现：var n:longint; begin readln(n); ...
2018-07-21 14:11:14
996
原创 Pascal【入门】判断奇偶数
题目描述：输入一个整数，判断其奇偶性，是偶数输出“yes”，是奇数输出“no”。输入：输入只有一行，包括一个整数。输出：输出只有一行。样例输入：6样例输出：no代码实现：var n:longint;begin readln(n); if n mod 2=0 then write('yes') ...
2018-07-21 14:04:08
1120
原创 Pascal【入门】倒序输出一个四位整数
题目描述：任意输入一个四位数，颠倒后输出。输入：输入一行，只有一个整数x。（1000<x<9999）输出：输出只有一行，为一个整数。样例输入：1234样例输出：4321提示：显然，此题有两种解法。那么我为大家写两份代码。可以以字符串的形式来做，可以以字符串的倒序输出实现。 纯粹地提取各位，此题仅是一个四位数。代码实现：var s:...
2018-07-21 13:52:29
1692
原创 Pascal【入门】求商数和余数
题目描述：输入a,b两个整数，编程求出a除以b得到的商和余数。输入：输入一行，只有两个整数。输出：输出只有一行，两个整数（中间以空格隔开）。样例输入：7 3样例输出：2 1var n,m:longint; begin readln(n,m); write(n div m,' '); write(n mod ...
2018-07-21 13:35:03
1746
原创 Pascal【入门】已知一个圆的半径，求解该圆的面积和周长
题目描述：一直一个圆的半径，求解该圆的面积和周长。输入：输入只有一行，只有一个整数。输出：输出值有两行，一行面积，一行周长。（保留两位小数）。样例输入：1样例输出：3.146.28提示：取圆周率为3.1415926.代码实现：var n,m:longint; begin readln(n); writeln...
2018-07-21 13:19:24
1909
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人