关于计算机编程pascal语言的入门(疑问)。

发布网友发布时间：2022-04-29 09:49

共1个回答

热心网友时间：2022-06-25 17:53

{}指注释
+我Q：1051395388，
我教你
1.
read指读入，write指输出。使用read语句后，程序进入等待状态，当你在运行到read命令后，输入一个（段）字符串(数字)，则执行下面的语句。
使用write语句后，在运行界面则会显示出你所要输出的字符串。
如：
Program
abc;
Var
a:integer;
Begin
Read(a);
{读入一个数，存入变量a中}
Write("123abc");
{输出123abc}
End.
运行效果：
输入：123
回车
{变量a的值：123}
123abc
{write语句打印"123abc"}
程序结束。
2.
1）
运用海*式：p=(a+b+c)/2
面积=[p*(p-a)*(p-b)*(p-c)]的平方根
用题目的数据程序：
Program
scr;
Var
p,s:real;
Begin
p:=(25.76+74.03+59.31)/2;
s:=sqrt(p*(p-25.76)*(p-b)*(p-c));{sqrt是求括号内的数的平方根的函数}
write(s);
{输出面积}
End.
2)
用穷举算法。
程序：
Program
sbsb;
Var
b,s:integer;
Begin
For
s:=1
to
64
do
Begin
b:=65-s;
If
(s*3+b*2=150)
then
write(s,'
',b);
End;
End.
运行结果：20
45
3)
思路：用三个变量储存甲乙丙的磁带数，每改变一次就输出一次。
程序：
Program
yzj;
Var
j,y,b:integer;
Begin
writeln('jia':4,'
','yi':4,'
','bing':4);
j:=36;
y:=48;
b:=64;
y:=y+j
div
3;
b:=b+j
div
3;
j:=j
div
3;
writeln(j:4,'
',y:4,'
',b:4);
j:=j+y
div
3;
b:=b+y
div
3;
y:=y
div
3;
writeln(j:4,'
',y:4,'
',b:4);
j:=j+b
div
3;
y:=y+b
div
3;
b:=b
div
3;
writeln(j:4,'
',y:4,'
',b:4);
End.
程序效果：
jia
yi
bing
12
60
76
32
20
96
64
52
32
对不起，第四题没有读懂，原因是我没读懂分糖的过程：
分糖的人，自己的糖数有没有减少?
3.
输入语句就是开始讲的read语句，从键盘输入就是叫你输入4个数的意思。
用一维数组储存成绩。程序可以是整数或实数（就是有小数）。
程序如下：
Program
lbx;
Var
a:array[1..4]of
real;
all,pjf:real;
i:integer;
Begin
For
i:=1
to
4
do
Begin
Readln(a[i]);
{输入完一个数记得按回车!}
all:=all+a[i];
End;
pjf:=all/4;
Writeln('zongfen
pingjunfen');
Write(all:5:2,'
',pjf:5:2);
End.
运行效果：
输入：
100
回车
99.5
回车
99
回车
75
回车
程序输出:zongfen
pingjunfen
373.50
93.38
吼吼，终于打完了
2000多字啊！
楼主记得采纳+加分啊...别枉费了我打的手酸的一番心血啊
最后，祝楼主越学越好，早日变成Pascal强者~