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