Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

PASCAL代码,纪念水过80题

Posted by 875319120 at 2012-08-21 16:32:45 on Problem 2070
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:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator