Ошибка выполнения 106 паскаль

First time posting here so I will try to do it right.

I’m working on my first program which prints the percentages for a class of students given an id,last & first name, and an assignment score which must be converted. I was able to compile it with only two warnings about assignment_score and assignment_percentage being uninitialized.

I’m getting runtime error 106 (which is when a nonnumeric value is read where a numeric value is expected) in my read_record, initialize, and main modules (I think that’s the term).

It has to do with the spacing in the data file, but maybe I did something wrong in the code, as this is my first program I am looking for any help possible.

Read_Record :

begin
  if EoF(FileIn) then
    more_students := False
  else
    readln(FileIn,student_id,last_name,first_name,assignment_score)
end; {read_record}

Initialize:

Procedure initialize;
begin
  more_students:= True;

  {Assigns files to input and output and rewrites them for the code }
  Assign(FileIn, 'prg2a-150.dat');
  Reset(FileIn);
  Assign(Fileout, 'Prog2.txt');
  Rewrite(fileout);

  READ_RECORD;
  Print_Header
end; { initialize }

My process & main (I get an error at line 100 when I call for process to be used which is where I’m writing my FileOut)

procedure process;
begin
  {Line check for print header}

  if line_count > 57 then
    print_header;

  Inc(line_count);

  { Converts score to percentage }
  compute_grade;

  {Report Percentage}
  writeln(FileOut, student_id, space(2), last_name, space(1), first_name, space(2), assignment_percentage:5:1);

  { Next Runner Data }
  read_record
end; { process }


{WRAP UP -- No summary so  just the files are being closed }
procedure wrapup;
begin
  close(FileOut);
  close(FileIn)
end; { wrapup }

begin { main }
  initialize;

  while more_students do
    process;

  wrapup
end.

And finally, here is my data file:

032919631 BACH                AMANDA    14.1 

327777582 GUNDERSON           EMILY      9.9 

188941863 DARLING             CHRIS     14.7 

396501493 JACKSON             GUY        2.1 

552753315 MILKOVICH           LAURA 21.0 

553962171 ZADINS              WALLACE   28.9 

989570643 KLIPP               JOAN      33.3 

468497243 CARPENTER           BETTYANNE 6.0 

112324230 RIKER               NANCY     17.1 

720789066 UTHE               SHARON    12.7 

878468839 NULL                LIVAK      0.0 

606537736 ZUCKERMAN           YVONNE     1.0 

996498720 KINGSLIGHT         JERRIE    14.5 

453310627 GAUTHIER            DONALD     7.8 

289324008 HIRSH               GAYLENE   32.3 

361582495 KELLY               JEAN 0.1 

441892834 FACTOR              DANI      15.8 

255715006 MARKS               KIMBERLEE 8.9 

535282507 MORROW              LEONARD   29.8 

566318464 COSGROVE            CAROL     15.8 

158778873 MUDD                LES  29.1 

574450163 TIMMERMAN           ROY        2.9 

032731233 MUIZNIECE           LESLIE    14.3 

832142931 HARMAN              FRITZ     34.5

I’m still fairly new to Pascal and I’m getting these errors and I’m not sure why. Some help would be greatly appreciated.

Runtime error 106 at $004015DFF
                     $004015DF
                     $004016D2
                     $004016FD
                     $004078D1

This is my code if you guys want to take a look.

program BasicReadWrite;

type
  ArrayOfPersons = record
    name: String;
    age: String; 
  end;

procedure WriteLinesToFile(var myFile: TextFile);
begin
  WriteLn(myFile, 5);
  WriteLn(myFile, 'Fred Smith');
  WriteLn(myFile, 28);
  WriteLn(myFile, 'Jill Jones');
  WriteLn(myFile, 54);
  WriteLn(myFile, 'John Doe');
  WriteLn(myFile, 15);
  WriteLn(myFile, 'Samantha Pritchard');
  WriteLn(myFile, 19);
  WriteLn(myFile, 'Hans Fredrickson');
  WriteLn(myFile, 77);
end;

procedure PrintRecordsToTerminal(personArray: ArrayOfPersons; count: 
  Integer);
begin
  WriteLn('Person name: ', personArray.name);
  WriteLn('Age: ', personArray.age);
end;

procedure ReadLinesFromFile(var myFile: TextFile);
var 
  p: ArrayOfPersons;
  number: Integer;
begin
  number := 0;
  while number <= 19 do
  begin
    ReadLn(myFile, number);
    ReadLn(myFile, p.name[number]);
    ReadLn(myFile, p.age);
    number := number + 1;
  end;
end;

As DDanbe said, we’d need to know what ‘error 106’ meant here. However, I think we can elaborate on that to make something of a teachable moment.

First, before I address that, I will point out to you that when you post code samples here, you need to indent every line of the code by at least four spaces, or the formatting won’t be preserved. I suggest reading the docs for the Daniweb version of Markdown for a more detailed explanation.

With that out of the way, let’s get on with the show.

While it isn’t entirely clear without more context, it is safe to guess that the ‘106 error’ is a compiler error message, that is, a report of a problem in the code that indicates a fatal error — something that prevents the compiler from finishing the compilation.

It also could be a compiler warning, which indicates something that could be a mistake, but isn’t serious enough to be a showstopper — something which the compiler isn’t sure is a problem, but thinks you should look into. Or, since you didn’t say when it comes up, it could even be an error message that you get after it is compiled, when the program is running.

But the safe bet is that it is a compiler error message.

This means we’d need to know which compiler you are using. Different compilers — even for the same language — will have different error and warning messages and codes, so we’d have to know where to look the error up in order to figure it out.

There are several Pascal compilers around, the most notable being Delphi, FreePascal, and Gnu Pascal .

Now, Delphi is actually an Integrated Development Environment (IDE) for Object Pascal, which is a different language derived from Pascal, but the Delphi compiler will compile most Standard Pascal code as well, and is sometimes used in courses that teach Pascal (in the same way C++ compilers often double as C compilers). However, the Delphi compiler is a commercial product, so most people have shifted to using the mostly-compatible FreePascal instead.

As the name implies, FreePascal is a free, open-source compiler for Pascal and Object Pascal. It isn’t as refined as Delphi, but it is pretty close, and the limited market interest in Pascal in general means it is a lot more appealing to most people than Delphi. It is often paired with Lazarus IDE, an IDE which emulated the tools found in earlier versions of Delphi.

Gnu Pascal is a part of the Gnu Compiler Collection, being a front-end for the same code generators used by gcc and g++. It isn’t as commonly used as FreePascal, for a variety of reasons, but it is there. It is sometimes used with the Dev-Pascal IDE, but like with all GNU packages, it is really aimed at being used with a general-purpose programmer’s editor such as vim or EMACS.

So, we will need to know which compiler gives an ‘error 106’ message in order to figure this out. Presumably, you know what compiler — or at least what IDE — you are using, so that’s what you would need to tell us.

It would also help if you could tell us the error message itself, and if possible, what part of the code it is pointing to. If you could copy and paste the error message (or make a screen shot of it, though getting the text would be preferable), it should give us a better idea of what it is trying to tell you.

Doing a search on the error message would make sense too, but without knowing the compiler, it might be of limited use. So, Let Me Google That For You, and see what it gives us.

/me reads search results OK, it seems to be a FreePascal ‘invalid numeric format’ error. Oh, it could be some ancient version of Turbo Pascal with a ‘string expression expected’ error, but honestly, if your professor has you using an MS-DOS compiler from thirty years ago, the only solution is to get the other students together, walk out of the course en masse, and complain to the Dean of the university about the incompetent who is teaching the class.

That’s about as much as we really can say, without more information. We could make some guesses, but that’s all they would be, so it would be better if we refrain from that.

Hopefully, this post has taught you a few important lessons about doing the necessary research on your own before asking for help, and providing enough information when you do ask for help. Good luck with that, because no one here is going to give you this much hand-holding ever again.