0

Pascal-图形-基础

##步骤: 1. 定义长,宽,存入的值(可以理解为场宽的最大值或者长宽的值)。 2. 输入长宽对应的值 3. 做循环: ```c 主循环:主循环为宽,即从第一行开始每次循环一行到最后一行(行存入的值) 嵌套循环:嵌套循环为长度,根据主循环即从第一行第一列开始的第一个值,每次循环一列一列打印到最后一列(列存入的值) 特殊嵌套循环:即如果为平行四边形这种前面有空的形状,则要单独定义空心的长度,即从第一行开始有多少个空心然后按特有的顺序循环下去。(当有特殊嵌套- 阅读剩余部分 -
0

Pascal-算法-插队

##题目: 给你一个整数n和一个数列,这个数列保证从小到大排列,现在要求将这个数组n插入数列中,使新的数列任然从小到大排列。 ##思路: 应该用比大小的思路,从一端开始比,依次判断与移位 ##过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/600563868.png) ![](http://www.flayerveo.com/usr/uploads/2020/02/3502489239.png) - 阅读剩余部分 -
0

Pascal-算法-储物柜

##知识: **二维数组:**即表格,由行列组成 ```c 设置数组: a:array[int1..int2,int3..int4]of 数据类型 数组赋值: a[索引行,索引列]:= 值 数组输出: a[索引行,索引列] ``` ##题目: 一个存储柜总共3行8列,在某个格子号[2,5]放入一个数10 **过程:** ![](http://www.flayerveo.com/usr/uploads/2020/02/2077400473.png) - 阅读剩余部分 -
0

Pascal-算法-火车厢

##知识: **一维数组:** ```c 设置数组: a:array[int1..int2]of 数据类型 数组赋值: a[索引]:= 值 数组输出: a[索引] ``` ##题目: 有5节车厢,要求输入每节火车厢的人数,并能随时查询任意火车厢中的具体人数。 ##过程1: ![](http://www.flayerveo.com/usr/uploads/2020/02/442063452.png) **结果:** 当我们输入一个车厢号时,会不停- 阅读剩余部分 -
0

Pascal-算法-加法器

##题目: 做一个加法器,算出N组加数的和。输入N+1行,每行两个整数,以0 0结束 过程: ![](http://www.flayerveo.com/usr/uploads/2020/02/862813446.png) 结果: ![](http://www.flayerveo.com/usr/uploads/2020/02/2561138989.png)
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- 阅读剩余部分 -
    页码:
ICP证: 浙ICP备2022036136号