灵鹊做题网pascal语言 编写一个程序
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/30 07:50:48
pascal语言 编写一个程序
pascal语言
1.编写一个程序，它读三个数据行，把第一行的第一个字符、第二行的第二个字符、第三行的第三个字符接连在一行上打印。 （例输入三行：a b c↙ e f g↙ d h k↙ 输出：a f k）。
2.读一个在c和x之间的字母，打印出该字母位于中间的相邻五个字母。（例如输入字母G，输出EFGHI）
3.输入某年某月，输出该月的天数。
4.求100到999中水仙花数。（例三位数abc，若a3＋b3＋c3＝abc则abc为水仙花数，例如153，13＋53＋33＝153，则153为水仙花数）
5.输出1—999能被3整除，且至少有一位数字是5的所有整数。
6.在1—500中找出同时满足用3除余2，用5除余3，用7除余2的所有整数。
谢谢啦
pascal语言
1.编写一个程序，它读三个数据行，把第一行的第一个字符、第二行的第二个字符、第三行的第三个字符接连在一行上打印。 （例输入三行：a b c↙ e f g↙ d h k↙ 输出：a f k）。
2.读一个在c和x之间的字母，打印出该字母位于中间的相邻五个字母。（例如输入字母G，输出EFGHI）
3.输入某年某月，输出该月的天数。
4.求100到999中水仙花数。（例三位数abc，若a3＋b3＋c3＝abc则abc为水仙花数，例如153，13＋53＋33＝153，则153为水仙花数）
5.输出1—999能被3整除，且至少有一位数字是5的所有整数。
6.在1—500中找出同时满足用3除余2，用5除余3，用7除余2的所有整数。
谢谢啦
1.思路：用一个字符串数组储存输入的数据，并分别输出。
程序：
Var
a:array[1..3]of string;
i:integer;
Begin
For i:=1 to 3 do
Readln(a[i]);
For i:=1 to 3 do
Write(a[i][i]);
End.
2.思路：读入数据，存入字符串变量a中，校验a的值是否符合要求，然后再将a的ascii码求出，输出相邻的五个。
程序：
Var
a:char;
i,j:integer;
Begin
Readln(a);
i:=ord(a); {求出a的ascii码值}
If ((i>66)and(i98)and(i
程序：
Var
a:array[1..3]of string;
i:integer;
Begin
For i:=1 to 3 do
Readln(a[i]);
For i:=1 to 3 do
Write(a[i][i]);
End.
2.思路：读入数据，存入字符串变量a中，校验a的值是否符合要求，然后再将a的ascii码求出，输出相邻的五个。
程序：
Var
a:char;
i,j:integer;
Begin
Readln(a);
i:=ord(a); {求出a的ascii码值}
If ((i>66)and(i98)and(i