Question

PASCAL高手进

1、解释如下两个程序的不同，画出对应的框图。

程序1：
program homework11_1(input,output);
var a,b,c,s,p:real;
begin
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:0:0);
end;
readln;
end.

程序2：
program homework11_2(input,output);
var a,b,c,s,p:real;
begin
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s:0:0);
readln;
end.

3、写程序，完成如下功能。
（1）输入一个正整数，判断其奇偶性，如果是奇数，则输出这个数。

（2）输入3个整数，从小到大排序，并将排序后的3个整数输出。

Answer 1

三（1）：
var l:longint;
begin
readln(l);
if l mod 2=1 then begin
writeln('Ji Shu');
writeln(l);
end else writeln('Ou Shu');
end.
(2):
var a:array[1..3]of longint;
i,j:integer;
l: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
d:=a[i]; a[i]:=a[j]; a[j]:=d;
end;
for i:=1 to 3 do write(a[i],' ');
writeln;
end.