| ||||||||||
| Online Judge | Problem Set | Authors | Online Contests | User | ||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Web Board Home Page F.A.Qs Statistical Charts | Current Contest Past Contests Scheduled Contests Award Contest | |||||||||
PASCAL代码,纪念水过80题const wi:array[1..3]of real=(4.5,150,200);
li:array[1..3]of real=(6.0,300,500);
qu:array[1..3]of real=(5.0,200,300);
var
a,b,c,i:real;
o:boolean;
begin
readln(a,b,c);
while (a<>0)and(b<>0)and(c<>0)do
begin
o:=true;
if (a<=wi[1])and(b>=wi[2])and(c>=wi[3]) then begin o:=false;write('Wide Receiver '); end;
if (a<=li[1])and(b>=li[2])and(c>=li[3]) then begin o:=false;write('Lineman '); end;
if (a<=qu[1])and(b>=qu[2])and(c>=qu[3]) then begin o:=false;write('Quarterback');end;
if o then write('No positions');
writeln;
readln(a,b,c);
end;
end.
Followed by: Post your reply here: |
All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator