Results 1 to 25 of 35

Thread: Pascal

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Nov:2011
    Location: Pleven
    Posts: 16

    Pascal

    "Compilation Aborted" , ako .

    Type tipstudent=record
    name: String[30];
    egn: String[9];
    fnum: String[6];
    ocenka:Array[1..10] of byte;
    end;
    var FS:File of tipstudent;
    m:Integer;

    {vavejdane na danni za studenta}
    Procedure addstud(var st:tipstudent);

    var i:integer;
    Begin
    With st do begin
    write('Vyvedi ime:'); readln(name);
    if(name='exit')then exit;
    write('Vyvedi EGN:'); readln(egn);
    write('Vyvedi F.N.:'); readln(fnum);
    writeln('Vyvedi 10 ocenki:');
    for i:=1 to 10 do read(ocenka[i]);
    end;
    readln;
    end;

    {izchislqvane na sredniq uspeh}
    Function srus(st:tipstudent):real;

    var i,s:integer;
    Begin
    s:=0;
    for i:=1 to 10 do s:=s+st.ocenka[i];
    srus:=s/10;
    end;

    {otpe4atvane na edin student}
    Procedure wrtst(st:tipstudent);

    var i:integer;
    b:string[1];
    begin
    with st do begin
    writeln('Ime:',name);
    writeln('EGN:',egn);
    writeln('F.N.:',fnum);
    writeln('Ocenki:');
    for i:=1 to 10 do write(ocenka[i],' '); writeln;
    writeln('Izchislqvane na sreden uspeh? y/n');
    readln(B);
    if(b='y')then writeln('Sreden uspeh:',srus(st):4:2);
    writeln;
    end;
    end;

    {otpe4atvane na celiq fail}
    Procedure prall;

    var st:tipstudent;

    Begin
    Reset(fs);
    While not EOF(fs) do
    begin
    Read(fs,st);
    wrtst(st);
    end;
    close(fs);
    end;

    {syzdavane na prazen fail}
    Procedure newfile;

    var i:integer;

    Begin
    Rewrite(fs);
    Close(fs);
    Writeln('Failyt e syzdaden!');
    end;

    {dobavqne na studenti kym faila}

    Procedure addstudetofile;

    var st:tipstudent;

    Begin
    Writeln('Vavedi ime ili exit za krai');
    reset(fs); seek(fs,filesize(fs));
    Repeat
    addstud(st);
    if st.name<>'exit' then write(fs,st);
    until st.name= 'exit';
    close(fs);
    end;

  2. #2
    Registered User tedych's Avatar
    Join Date: Nov:2003
    Location:
    Posts: 17,654
    ? :
    begin
    .......

    end.

  3. #3
    Registered User
    Join Date: Nov:2011
    Location: Pleven
    Posts: 16
    :

    (Glavna Programa)
    Begin
    {vavejdane na danni za studenta}
    addstud;
    {izchislqvane na sredniq uspeh}
    srus;
    {otpe4atvane na edin student}
    wrtst;
    {otpe4atvane na celiq fail}
    prall;
    {syzdavane na prazen fail}
    newfile;
    {dobavqne na studenti kum faila}
    addstudetofail;
    end.
    ?

  4. #4
    Banned
    Join Date: Feb:2006
    Location: ,
    Posts: 1,362

  5. #5
    Registered User
    Join Date: Nov:2011
    Location: Pleven
    Posts: 16
    -

    --------- 20:29 --------- : 19:25 ---------

    error :
    Fatal: Compilation aborted
    ?

  6. #6
    Android C3P0 finalista's Avatar
    Join Date: Jul:2009
    Location:
    Posts: 948
    DOS , , , :
    Code:
    program zombi;
    uses
      Crt, DOS;
    //.........  (      )
    //.........  (     )
    //.........
    begin
      {vavejdane na danni za studenta} 
      addstud;
      {izchislqvane na sredniq uspeh}
      srus;  
      {otpe4atvane na edin student}
      wrtst;
      {otpe4atvane na celiq fail}
      prall;
      {syzdavane na prazen fail}
      newfile;
      {dobavqne na studenti kum faila}
      addstudetofail;
    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 |