0

Pascal-算法-角谷猜想

##角谷猜想: 任意给一个自然数,若为偶数则除以2,若为奇数则乘3加1,得到一个新的自然数后按上面的法则继续演算。若干次后得到的结果必定为1. ##题目: 请编写代码验证该猜想,求经过多少次可得到自然数1 ##思路: 创建一个循环,当循环不为1时持续循环,当循环为1时结束循环。在循环中再加一个判断语句来判断所输入值得奇偶,并设置一个参数每次循环都+1用来计算次数。 ##过程: ![](http://www.flayerveo.com/usr/upl- 阅读剩余部分 -
0

Pascal-算法-开方

##知识: **sqrt():**开方,括号里面加被开方的值 ##题目: 过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/2917539041.png) 结果: ![](http://www.flayerveo.com/usr/uploads/2020/02/961179882.png)
0

Pascal-算法-信号三角形

##知识: 信号三角形   1  2 3 4 5 6 7 8 9 每一行的个数 = 2 * 第几行(宽) – 1 ##过程: 设行为i,列为j ![](http://www.flayerveo.com/usr/uploads/2020/02/2217451593.png) ![](http://www.flayerveo.com/usr/uploads/2020/02/2303766645.png) :空格数,每行空格数=总行数依次递减 即 n-1 - 阅读剩余部分 -
0

Pascal-算法-数字矩阵

##知识: **inc两种用法: ** ```c 用法一: inc(integer) inc(a)等于a:=a+1; 例: i := 100; inc(i); 结果:i等于101 ``` ```c 用法二: inc(integer,integer) inc(a,b)等于a:=a+b; 例: i:=100; inc(i,20); 结果:i=120 ``` **dec:** 与inc相反,依次递减 **write:** write- 阅读剩余部分 -
0

Pascal-算法-质数

##知识: 素数:除了1和它本身不能被其他数整除 ##题目: 任意输入一个数,判断他是否是素数,是的话输出’T’,不是的话输出’F’ ##思路: 这里用除法或取模的思路,取模值需要为0,除法需要整除为1 ##过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/4256952673.png) ![](http://www.flayerveo.com/usr/uploads/2020/02/41- 阅读剩余部分 -
0

Pascal-算法-穷举

##题目: 100元买100只鸡,公鸡小鸡母鸡都要有。公鸡5元1只,母鸡3元一只,小鸡1元3只。问应该各买多少只 ##输出: 每种买法各占一行,由3各数组构成,顺序为 公鸡数 母鸡数 小鸡数。 ,每个数字空格隔开 ##思路: 先用for选出所有鸡可以购买的所有可能数量即 for x:=1 to 最大值 因为题目说所有鸡都要买至少一个所以 如公鸡: 最大值=(100-1*母鸡价格+1*小鸡价格j)/公鸡价格 ##过程: ![](http://w- 阅读剩余部分 -
0

Pascal-算法-擂台法求最值

##知识: **read:**不同于readln,readln是一行一行输入即输入完一个数据后回车再输入一个,read是一次性在一行里输入完,每个数用空格隔开,如果要一次性输入多个数据时,一般用read比较方便。 ##题目: 得出一组数据中的最大数 **思路:** 一开始设置一个变量然后和其他数比较将大的值替换为这个变量里来 **过程:** ![](http://www.flayerveo.com/usr/uploads/2020/02/166050- 阅读剩余部分 -
0

Pascal-算法-累加求和

##题目: 1+2+3+........+n 过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/3535873105.png) 结果: ![](http://www.flayerveo.com/usr/uploads/2020/02/3235964236.png) ##扩展 **求平方和:** ![](http://www.flayerveo.com/usr/uploads/2020/02/4- 阅读剩余部分 -
0

Pascal-算法-机器人行驶

##题目: 用readln(x) 来模拟检测过程,如果输入为0,即不断前进,如果输入其他值即停止 ##方法1: 过程: ![1581515325.png](http://www.flayerveo.com/usr/uploads/2020/02/686213913.png) 如果readln(x)在循环外部的话系统就会一直打印‘qianjin’,现在只有你输入任意一个值时才会进行下一次操作,所以这里当我们打印其他值时就结束循坏并在外部输出‘ting’ - 阅读剩余部分 -
0

Pascal-算法-倒数

##题目: 将一个数依次倒数下去 ##方法1: 过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/796400205.png) 结果: ![](http://www.flayerveo.com/usr/uploads/2020/02/3750697954.png) ##方法2: ![](http://www.flayerveo.com/usr/uploads/2020/02/3081423321.- 阅读剩余部分 -
0

Pascal-算法-成绩选择

##题目: 输入一个学生的成绩,如果大于等于80输出”Good”,如果小于80大于等于60,输出”So so” 如果小于60,输出”bad” ##过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/1793480589.png) 意思是 and 是将boolean值进行and但是这里给的是两个longint型 **运算优先级:** ```c 1级:not 2级:* / div mod and 3- 阅读剩余部分 -
    页码:
ICP证: 浙ICP备2022036136号