查人人中国名人网紫川膏一般药店有卖吗:pascal编程
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 07:45:09
2. 某超市为了促销，规定：购物不足50元的按原价付款，超过50不足100的按九折付款，超过100元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。
3. 输入a,b,c三个不同的数，将它们按由小到大的顺序输出。 13、 当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。编一程序完成分数的自动转换工作。转换规则如下：60分以下的为不合格；60到69分为合格；70到89分为良好；90分以上的为优秀。（提示：可以利用DIV运算来使程序更简明）
1.
program hsdj;
var
i,j,n:longint;
money:real;
begin
read(n);money:=0;
if n<=50 then money:=n*0.15;
if n>50 then money:=n*0.15+(n-50)*0.1;
writeln(money:0:3);
end.
2.
program hjds;
var
n:longint;
cost:real;
begin
read(n);
if n<50 then cost:=50;
if (n>=50) and (n<100) then cost:=n*0.9;
if n>=100 then cost:=100+(n-100)*0.8;
writeln(cost:0:3);
end.
3.rogram sdhj;
var
a:array[1..3] of longint;
i,j,t:longint;
begin
for i:=1 to 3 do read(a[i]);
for i:=1 to 2 do
for j:=i+1 to 3 do
if a[i]>a[j] then begin t:=a[i];a[i]:=a[j];a[j]:=t;end;
for i:=1 to 3 do write(a[i],' ');writeln;
end.
13.
program shdj;
var
n:longint;
begin
read(n);
n:=n div 10;
if n<6 then writeln('bu he ge');
if n=6 then writeln('he ge');
if (n=7) or (n=8) then writeln('liang hao');
if (n=9) or (n=10) then writeln('you xiu');
end.