Informatika gyűjtemény

NézetNyomtat

zene.pas (Vissza)
Az alábbi letöltési lehetőségek közül választhatsz: (segítség)
Karakterkódolás:
Sortörés:
Típus: text/plain
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.
(Vissza)