Zenei adók - Megoldás több lépésben
A program szerkezete
Program zeneiadok;
procedure beolvas;
begin
end;
procedure f2;
begin
end;
procedure f3;
begin
end;
procedure f4;
begin
end;
procedure f5;
begin
end;
procedure f6;
begin
end;
begin
beolvas;
f2;
f3;
f4;
f5;
f6;
readln;
end.
procedure beolvas;
begin
end;
procedure f2;
begin
end;
procedure f3;
begin
end;
procedure f4;
begin
end;
procedure f5;
begin
end;
procedure f6;
begin
end;
begin
beolvas;
f2;
f3;
f4;
f5;
f6;
readln;
end.
Adatszerkezet
const
MAX = 1000;
type
Tzene =
Record
ado : byte;
perc: byte;
mp : byte;
az : string[50];
end;
var
N : word; {Ennyi zeneszám van az állományban.}
zene : array[1..MAX] of Tzene;
Adatok beolvasása
procedure beolvas;
var be : Text;
i : word;
begin
assign(be,'musor.txt');
reset(be);
readln(be,N); {számok száma}
for i := 1 to N do
begin
with zene[i] do readln(be,ado,perc,mp,az);
writeln(zene[i].az);
end;
close(be);
end;
var be : Text;
i : word;
begin
assign(be,'musor.txt');
reset(be);
readln(be,N); {számok száma}
for i := 1 to N do
begin
with zene[i] do readln(be,ado,perc,mp,az);
writeln(zene[i].az);
end;
close(be);
end;