Question

Đội hình thi đấu của một đội bóng được thể hiện bởi ba số X, Y, Z trong đó X là số cầu thủ hậu vệ, Y là số cầu thủ tiền vệ, Z là số cầu thủ tiền đạo. Khi đã biết chính xác tên các cầu thủ cũng như chức năng của mỗi cầu thủ thì ta có thể biết được chính xác đội hình thi đấu của đội bóng đó. Viết chương trình thực hiện yêu cầu:
– Dữ liệu: file văn bản có tên BDA.INP có 11 dòng, mỗi dòng ghi tên một cầu thủ tiếp theo là dấu cách và chức năng của cầu thủ đó, chức năng là một trong các cặp kí tự: TD-Tiền đạo, TV- Tiền vệ, HV-Hậu vệ, TM-Thủ môn.
– Kết quả: ghi vào file văn bản có tên BDA.OUT theo cấu trúc:
• Dòng đầu ghi 3 số X, Y, Z mỗi số cách nhau một dấu cách
• Dòng thứ hai ghi tên các cầu thủ tiền đạo
• Dòng thứ ba ghi tên các cầu thủ tiền vệ
• Dòng thứ tư ghi tên các cầu thủ hậu vệ
• Dòng thứ năm ghi tên thủ môn.

Answer 1

uses crt;
var i,dem1,dem2,dem3:byte;
s1,s2,s3,s4:string;
f,g:text;
const fi=’BDA.INP’;
fo=’BDA.OUT’;
procedure xuly;
var s,t:string;
cn:string[2];
begin
dem1:=0;dem2:=0;dem3:=0;
assign(f,fi);reset(f);
for i:=1 to 11 do
begin
readln(f,s);
t:=copy(s,1,length(s)-3);
cn:=copy(s,length(s)-1,2);
case cn of
‘TD’:begin
s1:=s1+t+’ ‘;
dem1:=dem1+1;
end;
‘TV’:begin
s2:=s2+t+’ ‘;
inc(dem2);
end;
‘HV’:begin
s3:=s3+t+’ ‘;
inc(dem3);
end;
‘TM’:s4:=t;
end;
end;
close(f);
end;
procedure ghi;
begin
assign(g,fo);rewrite(g);
writeln(g,dem1,’ ‘,dem2,’ ‘,dem3);
writeln(g,s1);
writeln(g,s2);
writeln(g,s3);
writeln(g,s4);
close(g);
end;
begin
xuly;
ghi;
end.