vijos1001pascal
一、vijos1001pascal
我的
已经AC
program scholar;constfin='scholar.in';fout='scholar.out';varm,n,i,j,k,t,sum,p,max,q:longint;code:integer;st:string;s:array[0..101] of string;name:array[0..101] of string;a:array[0..101,0..6] of longint;beginreadln(n);m:=0;q:=1;for i:=1 to n dobegin readln(s[i]); for j:=1 to length(s[i]) do if s[i,j]=' ' then break; name[i]:=copy(s[i],1,j-1); delete(s[i],1,j); for j:=1 to length(s[i]) do if s[i,j]=' ' then break; st:=copy(s[i],1,j-1); val(st,a[i,1],code); delete(s[i],1,j); for j:=1 to length(s[i]) do if s[i,j]=' ' then break; st:=copy(s[i],1,j-1); val(st,a[i,2],code); delete(s[i],1,j); for j:=1 to length(s[i]) do if s[i,j]=' ' then break; st:=copy(s[i],1,j-1); if st='Y' then a[i,3]:=1 else a[i,3]:=0; delete(s[i],1,j); for j:=1 to length(s[i]) do if s[i,j]=' ' then break; st:=copy(s[i],1,j-1); if st='Y' then a[i,4]:=1 else a[i,4]:=0; delete(s[i],1,j); j:=length(s[i]); st:=copy(s[i],1,j); val(st,a[i,5],code); delete(s[i],1,j); if (a[i,1]>80) and (a[i,5]>0) then a[i,6]:=a[i,6]+8000; if (a[i,1]>85) and (a[i,2]>80) then a[i,6]:=a[i,6]+4000; if (a[i,1]>90) then a[i,6]:=a[i,6]+2000; if (a[i,1]>85) and (a[i,4]=1) then a[i,6]:=a[i,6]+1000; if (a[i,2]>80) and (a[i,3]=1) then a[i,6]:=a[i,6]+850; m:=m+a[i,6];sum:=sum+m; if m>max then begin max:=m; q:=i; end;m:=0;end;writeln(name[q]);writeln(max);writeln(sum);end.
二、世麦P1000智能POS好用吗?
我觉得性价比太低，完全比不上普通刷卡机。大屏幕大处理器智能系统的功能完全没多个几样……目前刷卡部件坏了老是显示检测硬件，我这机器装软件也只能装三个收银用的……支付宝或微信还是靠手机。客服还不理我。小商贩还是别玩了
