Results 1 to 5 of 5

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: May:2006
    Location: svishtov
    Posts: 52


    : , , . , .

    St.sredups
    (type mismatch)
    , .
    Program kursova;
    Const k=10;
    type stud=record
    fakno:string[6];
    student:array[1..k] of integer;
    ocenka:array[1..k,1..3] of integer;
    sredusp:array[1..k,1..3] of integer;
    end;

    var
    i,j,,:integer;
    gr:file of stud;
    st:stud;
    fname:string;

    Procedure ReadStud(var st:stud);
    Begin
    For i:=1 to k do
    Begin
    Write(vavedete ime na studenta:);readln(st.student[i]);
    write(fakulteten Nomer:);readln(st.fakno[i]);
    write(ocenka po fizika:);readln(st.fizika[i,1]);
    write(ocenka po piik:);readln(st.piik[i,2]);
    write(ocenka po mat:);readln(st.mat[i,3]);
    end;

    Procedure CreateFile;
    begin
    write(ime na faila:);readln(fname);
    assign(gr,fname);
    rewrite(gr);
    close(gr);
    end;

    Procedure Dobavi;
    var ch:integer;
    begin
    reset(gr);
    repeat
    readstud(st);write(gr.st);
    write(Shte produljiteli vavejdaneto:);readln(ch);
    until ch in [1..3];
    close(gr);
    end;

    Procedure SrAr;
    var s:real;
    begin

    s:=0;
    for j:=1 to 3 do
    if (st.ocenka[I,j]=2) then s:=S+1;
    if (s<2) then
    begin
    reset(gr);
    while not EOF(gr) do begin
    read(gr,st);
    st.sredusp[i]:=st.ocenka[I,1]+st.ocenka[I,2]+ocenka[I,3]/3;
    writeln(st.student[i];
    writeln(sredusp[i]:2:2);
    end;

    writeln(sredniqt uspeh na :,st.student[i]);
    writeln(e:,st.sredusp:2:2);
    end;
    Begin
    Createfile;
    Dobavi;
    SrAr;
    Writeln;
    Readln;
    End.

  2. #2
    ɐ-əpoɔᴉu⋂ ɐ ə anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    sredusp , SrAr, . sredusp[i,j].
    , . .
    "640K ught to be enough for anybody" - Bill Gates, 1981
    ::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel

  3. #3
    Registered User
    Join Date: May:2006
    Location: svishtov
    Posts: 52
    , 1 , , 1 0 ,

    procedure SrAr;
    var s:real;br:integer;
    begin
    for i:=1 to k do
    begin
    s:=0;br:=0;
    for j:1 to 3 do
    if (st.ocenka[i,j]=2) then br:=br+1;
    if (br<2) then
    begin read(gr,st);
    s:=(st.ocenka[i,1]+st.ocenka[i,2]+st.ocenka[i,3])/3;
    end;
    end;
    writeln('sredniqt speh na:',st.student[i]);
    writeln('e:',s:2:2);
    end;
    end;
    Last edited by JihatJievich; 16th December 2008 at 00:07.

  4. #4
    ɐ-əpoɔᴉu⋂ ɐ ə anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    writeline- if-a (if (br<2) ...)
    , . .
    "640K ught to be enough for anybody" - Bill Gates, 1981
    ::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel

  5. #5
    Registered User
    Join Date: May:2006
    Location: svishtov
    Posts: 52
    :P , 2 ,

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 |