Results 1 to 3 of 3

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jun:2009
    Location: Sofia
    Posts: 2

    10

    :
    ) , : ,, , , ;
    ) ;
    ) ;
    ) ;
    ) ;
    ) ;

    )

  2. #2
    System.gc()'s Avatar
    Join Date: Apr:2007
    Location: back in time
    Posts: 1,075
    , , , :


    , , , ( ), , .

    , , .
    UD3R|Q9550+1283|4x2 G.Skill@1066|MX500+1002FAEX+640AAKS+ST31 60|RX580-8GB|1841BLT|SS-760XP|Define7|z24i|Edifier S350DB
    geniusloci: ) ; ) ; ) ? nope|r.i.p.

  3. #3
    Registered User
    Join Date: Jun:2009
    Location: Sofia
    Posts: 2
    :
    Program Zad_1;
    type
    Machove=record
    Ime:string;
    Nac:string;
    Tiahni_golove:integer;
    Natiah_golove:integer;
    Ravni_machove:integer;
    end;
    t=file of Machove;
    var
    f:t;
    m:Machove;
    rec:Machove;
    Procedure Create(var m:Machove);
    begin
    with m do
    begin
    write('Ime=');readln(ime);
    write('Nac=');readln(Nac);
    write('Tiahni_golove=');readln(Tiahni_go love);
    write('Natiah_golove=');readln(Natiah_go love);
    write('Ravni_machove=');readln(Ravni_mac hove);
    end;
    end;
    Procedure CreaterFile(var f:t);
    var
    rec:Machove;
    begin
    rewrite(f);
    eCreateRec(rec);
    while not eof do
    begin
    readln;
    write(f:rec);
    CreateRec(rec);
    end;
    close(f);
    end;
    Procedure Spravka_1;
    begin
    reset(f);
    while not eof do
    begin
    read(f:rec);
    if (rec Tiahni_golove=max) then
    readln(rec,Ime);
    end;
    close(f);
    end;
    Procedure Spravka_2
    begin
    reset(f);
    while not eof do
    begin
    read(f:rec);
    if (rec Tiahni_golove=min then
    readln(rec,Ime);
    end;
    close(f);
    end;
    assround (f,Machove;txt);
    repeat
    writeln (Izberete rejim);
    writeln (1obaviane na nov otbor);
    writeln(2:Spravka na otbora s nai mnogo vkarani golove);
    writeln(3:Spravka na otbora s nai malko vkarani golove);
    writeln(4:Exit);
    readln(ch);
    case ch of
    '1':CreateFile
    '2':Spravka_1
    '3':Spravka_2
    '4':Exit;
    else
    write ('Nov izbor');
    end;
    until false
    readln;
    end;

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |