Results 1 to 2 of 2

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Sep:2008
    Location: /
    Posts: 42

    !
    , :




    10

    :
    , ( )

    ( -- )
    -- 2000
    / / :
    Code:
    program kursova2;
    
    type dannistudent=record
    ime: string[30];
    FnN: string[6];
    egn: string[10];
    grupa: integer;
    ocenki: array[1..10] of byte;
    srusp: real;
    end;
    var
    file1: file of dannistudent;
    studenti: array[1..50] of dannistudent;
    Fname: string[10];
    option:integer;
    brstud:integer;
    
    procedure vuvejdane(var st: dannistudent);
    var i:integer;
    begin
    with st do begin
    write('Vuvedi ime:'); readln(ime);
    if (ime=' ') then exit;
    write('Vuvedi EGN:'); readln(egn);
    write('Vuvedi Fakulteten nomer:'); readln(fnn);
    write('Vuvedi Grupa:'); readln(grupa);
    write('Vuvedi ocenki po 10 predmeta:');
    for i:=1 to 10 do readln(ocenki[i]);
    end;
    end;
    
    procedure brstude(var st:dannistudent);
    begin
    brstud:=0;
    reset(file1);
    while not eof(file1) do begin
    brstud:=brstud+1;
    end;
    close(file1);
    end;
    
    function sruspe(st:dannistudent):real;
    var c,i:integer;
    
    begin
    c:=0;
    for i:=1 to 10 do c:=c+st.ocenki[i];
    sruspe:=c/10;
    end;
    
    procedure sruspeh;
    var i:integer;
    begin
    for i:=1 to brstud do begin
    studenti[i].srusp:=sruspe(studenti[i]);
    end;
    writeln('otpechatvane na ime -- sreden uspeh na vsichki studenti');
    writeln( ' -- ',studenti[i].srusp:4:2);
    end;
    
    procedure chetene(var st:dannistudent);
    var i:integer;
    begin
    with st do begin
    writeln('------------------');
    writeln('Ime=',Ime);
    writeln('EGN=',egn);
    writeln('Fakulteten nomer=',FnN);
    writeln('Grupa=',grupa);
    writeln('Ocenki=');
    for i:=1 to 10 do write(ocenki[i], ' ');
    writeln;
    writeln('Sreden uspeh=',studenti[i].srusp:4:2);
    writeln('------------------');
    end;
    end;
    
    procedure suzdavane;
    var i:integer;
    begin
    assign(file1, fname);
    rewrite(file1);
    close(file1);
    writeln('--------------------');
    writeln('Faylut e suzdaden');
    writeln('--------------------');
    end;
    
    procedure dobavqne;
    var st:dannistudent;
    begin
    writeln('Dobavi student');
    assign(file1,fname);
    reset(file1);
    seek(file1, filesize(file1));
    vuvejdane(st);
    write(file1, st);
    close(file1);
    end;
    procedure promeni;
    var fno:string[6];
    st:dannistudent;
    nameren:boolean;
    i:integer;
    begin
    write('Vuvedi Fn nomer za tursene:');
    readln(fno);
    nameren:=false;
    assign(file1,fname);
    reset(file1);
    while not eof(file1) do begin
    read(file1, st);
    if fno=st.fnn then
    begin
    with st do begin
    nameren:=true;
    write('Vuvedi ime na studet');
    readln(ime);
    write('Vuvedi egn');
    readln(egn);
    write('Vuvedi Fn nomer');
    readln(fnn);
    write('Vuvedi grupa');
    readln(grupa);
    write('Vuvedi ocenki');
    for i:=1 to 10 do readln(ocenki[i]);
    end;
    seek(file1, filepos(file1) -1);
    write(file1, st);
    end;
    end;
    if not nameren then begin
    writeln('--------------');
    writeln('Ne sushtestuva');
    writeln('--------------');
    close(file1);
    end;
    end;
    procedure otpechatvane;
    var st:dannistudent;
    begin
    assign(file1, fname);
    reset(file1);
    while not eof(file1) do begin
    read(file1,st);
    writeln('Ime=',st.Ime);
    end;
    close(file1);
    end;
    begin
    Fname:='danni.dat';
    repeat
    writeln('Glavno menu');
    writeln('1-Suzdavane na file');
    writeln('2-Dobavqne na danni');
    writeln('3-Otpechatvane na imenata na vsichki studenti');
    writeln('4-Promqna na dannite');
    writeln('5-Izchislqvane na sredniq uspeh na vseki student');
    writeln('6-Izvejdane na EGN i rojdenna data na studentite--muje postupili predi 2000g.');
    writeln('0-Kray');
    writeln;
    Writeln('Izberete opciq ot menuto');
    readln(option);
    case option of
    1:suzdavane;
    2:dobavqne;
    3:otpechatvane;
    4:promeni;
    5:sruspeh;
    end;
    until option=0;
    end.
    , 0.00, ? ..
    !

  2. #2
    Deleted User 4eRNoBiL's Avatar
    Join Date: Oct:2005
    Location:
    Posts: 739
    sruspeh(), - brstud, for-. brstud brstude(), . . .

    - . 5 . -, , , .

    , , , ...
    Fujistu Lifebook E756 | Core i7-6500U / 400MHz-3.1GHz | 8 GB DDR4-2133 | Samsung PM871 / 256 GB SSD | 15" 1920x1080 | Manjaro Linux + kernel 4.19

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 |