Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: utf-8
Méret: 620 byte
Tartalmaz szöveget
Karakterkódolás: utf-8
Méret: 620 byte
Program zeneiadok;
const
MAX = 1000;
type
Tzene =
Record
ado : byte;
perc: byte;
mp : byte;
az : string[50];
end;
var
N : word;
zene : array[1..MAX] of Tzene;
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;
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.
const
MAX = 1000;
type
Tzene =
Record
ado : byte;
perc: byte;
mp : byte;
az : string[50];
end;
var
N : word;
zene : array[1..MAX] of Tzene;
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;
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.
(Vissza)