作业帮求几道 初学 free pascal
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/01 18:33:25
求几道 初学 free pascal
求几道 初学 free pascal
求几道 初学 free pascal
输入一个圆的半径,求圆的面积和周长；
program a1;
var r,s,c:real;
begin
readln(a);
c:=2*Pi*r;
s:=Pi*r*r;
writeln(c,s);
end.
在屏幕上输出“This is my first program”；
program a2;
begin
writeln('This is my first program');
end.
某仓库5月1日有粮食100吨,5月2日又调进20吨,5月3日卖出库存的3分之二,5月4日又调进库存的3倍粮食,问该仓库从5月1日到5月4日期间每天的粮食分别是多少吨?(输出每天的库存量)
Program ex1;
Var A : integer;
Begin
A:=100;Writeln('5/1:',A);
A:=A+20;Writeln('5/2:',A);
A:=A div 3; writeln('5/3:',A);
A:=A *4; writeln('5/4:',A);Readln;
End.
有三个小朋友甲乙丙.甲有50粒糖果,乙有43粒糖果,两有13粒糖果.现在他们做一个游戏.从甲开始,将自己的糖分三份,自己留一份,其余两份分别给乙与丙,多余的糖果自己吃掉,然后乙与丙也依次这样做.问最后甲、乙、丙三人各有书多少粒糖果?
program ex2;
var A,B,C:integer;
begin
A:=50;B:=43;C:=13; {初始时每个小朋友所拥有的糖果数}
A:=A div 3; B:=B+A;C:=C+A;{甲小朋友分糖果后,每个人拥有的糖果数变化情况}
B:=B div 3; A:=A+B;C:=C+B; {乙小朋友分糖果后,每个人拥有的糖果数变化情况}
C:=C div 3; A:=A+C;B:=B+C; {丙小朋友分糖果后,每个人拥有的糖果数变化情况}
writeln('A=',A,'B=',B,'C=',C); {输出结果}
readln;
end.
试编一程序,输入一梯形的上底、下底、高, 求该梯形的面积.
program Tixing;
var a,b,h,s:real;
begin
write('Input a,b,h:');
readln(a,b,h);
s:=(a+b)*h/2;
write('s=',s:10:3);
end.
某幼儿园里,有5个小朋友编号为1,2,3,4,5,他们按自己的编号顺序围坐在一张圆桌旁.他们身上都有若干个糖果,现在他们做一个分糖果游戏.从1号小朋友开始,将他的糖果均分三份（如果有多余的,则他将多余的糖果吃掉）,自己留一份,其余两份分给他的相邻的两个小朋友.接着2号、3号、4号、5号小朋友也这如果做.问一轮后,每个小朋友手上分别有多少糖果
program fentang;
var a,b,c,d,e:integer;
begin
write('Please Enter init numbers ');readln(a,b,c,d,e);
a:=a div 3;b:=b+a;e:=e+a;
b:=b div 3;c:=c+b;a:=a+b;
c:=c div 3;b:=b+c;d:=d+c;
d:=d div 3;c:=c+d;e:=e+d;
e:=e div 3;d:=d+e;a:=a+e;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
readln;
end.