2. Fórumok
  3. Szoftverfejlesztés
  4. Programozás topic
  5. (kiemelt téma)

Új hozzászólás Aktív témák

  • Sianis Sianis addikt
    #564
    Új Válasz
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Sianis
    Sianis
    addikt

    Sziasztok!

    Egyleányó megkért, hogy írjak neki egy tömb feltöltő programot, ami a tömböt itánna egy file-ba írja.
    Én hülye nem hoztam haza a Pascal könyvemet, és egy parancsot nem tudok helyesen használni! Psl segítsetek! Előre is köszi

    program tomb;
    uses crt;

    type konyv=record
    cim:string;
    szerzo:string;
    kiev:integer;
    end;

    var
    i:integer;
    append 1..10 tkonyv of konyv;


    begin
    clrscr;
    textcolor(white);
    assign(f,konyvek.dat);
    rewrite(f);
    for i:=1 to 2
    begin
    writeln(''Kerem a konyv cimet:'');
    readln(t.cim);
    writeln(''Kerem a konyv szerzojet'');
    readln(t    .szerzo);
    writeln(''Kerem a kiadasi evet'');
    readln(t.kiev);
    write(f,t);
    end;
    close(f);
    end.

Új hozzászólás Aktív témák