Informatika gyűjtemény

NézetNyomtat

Megoldás

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.

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;

Az első órán megírt kód egyben

zene.pas