（freePascal）vijos p1001

来源：百度知道 编辑：UC知道 时间：2024/06/03 18:59:27
program jxj;
var n:integer;
nam:array[1..100]of string[20];
qmcj:array[1..100]of 0..10;
bjpy:array[1..100]of 0..10;
xsgb:array[1..100]of boolean;
xbsf:array[1..100]of boolean;
lw:array[1..100]of 0..10;
j:integer;
zjj:array[1..100]of integer;
sum:longint;

procedure shuru;
var i:integer;
x:char;
begin
readln(n);
for i:=1 to n do
begin
read(nam[i],qmcj[i],bjpy[i]);
read(x);if x='t' then xsgb[i]:=true else xsgb[i]:=false;
read(x);if x='t'then xbsf[i]:=true else xbsf[i]:=false;
read(lw[i]);
end;
end;

procedure jql(y:integer);
begin
zjj[y]:=0;
if (qmcj[y]>80)and(lw[y]>=1)then zjj[y]:=zjj[y]+8000;
if (qmcj[y]>85)and(bjpy[y]>80)then zjj[y]:=zjj[y]+4000;
if (qmcj[y]>90)then zjj[y]:=zjj[y]+2000;
if (qmcj[y]>85)and(xbsf[y])then zjj

换行啊童鞋……读完一个人的信息之后换行啊~空格啥的没事我用FP只要不用‘readln’就不会把空格读进去……（反之……）

program ex_2;
type
inf=record
name:string[20];
sscore:integer;
cscore:integer;
sl:char;
ws:char;
p:integer;
end;
var
a:array[1..100] of inf;i,j:integer;n:integer;ch:char;
s:longint;s1:longint;s1n:string[20];st:longint;
begin
readln(n);
j:=0;s:=0;s1n:='';s1:=0;st:=0;
repeat
j:=j+1;
read(ch);
while ch<>' ' do begin a[j].name:=a[j].name+ch;read(ch);end;
read(a[j].sscore,a[j].cscore);
read(ch);read(a[j].sl);read(ch);read(a[j].ws);readln(a[j].p);
if (a[j].sscore>80)and(a[j].p>=1) then st:=st+8000;
if (a[j].sscore>85)and(a[j].cscore>80)then st:=st+4000;
if (a[j].sscore>90)then st:=st+2000;
if (a[j].sscore>85)and(a[j].ws='Y')then st