[Pascal] Kan geen exceptions raisen

[Verwijderd]

Het lukt me niet om de Exception Handling aan de praat te krijgen.
Als voorbeeld de volgende code:

type Numeric_Error = Class(Exception);
begin
Readln (Massa);
Except
On Numeric_Error Do Writeln ('Invalid input');
end;

Bij compileren krijg ik de volgende foutmeldingen:
identifier Class not found
identifier Exception not found

[Robtimus]

Pascal is niet Delphi.

Pascal kent helemaal geen classes of exceptions op de manier die jij bedoelt. Delphi is in principe de object georienteerde versie van Pascal, en daar zit dit wel in. Je zult dus wss moeten overstappen van development tool.

[Verwijderd]

IceManX schreef op zaterdag 05 januari 2008 @ 16:39:
Pascal is niet Delphi.

Pascal kent helemaal geen classes of exceptions op de manier die jij bedoelt. Delphi is in principe de object georienteerde versie van Pascal, en daar zit dit wel in. Je zult dus wss moeten overstappen van development tool.

Volgens de Free Pascal Reference Guide (hoofdstuk 14)
http://www.freepascal.org/docs-html/ref/ref.html moet het wel mogelijk zijn.

[zwippie]

In je code staat ook nergens een Try statement, zoals het in het voorbeeld in par 14.2 onderaan staat.

[whoami]

Dit heeft niets met DTE te maken (het gaat nl. niet over problemen met je IDE ofzo), maar het gaat hier over programmeren; PRG dus.

-> PRG

Als je exceptions wilt afhandelen, dan zal je zowiezo een try block nodig hebben:

code:

try
  // Doe iets
except
  on E : EBliepException do begin
      // handel exceptie af
  end;
end;

Enneh, ik vind het vaag dat je in een exceptie class (want je class inherit van de Exception class) om user input gaat gaan vragen ?

En compilatie-fouten, die moet je, mits goed / begrijpend lezen van de compiler messages toch kunnen oplossen ?

[ Voor 36% gewijzigd door whoami op 05-01-2008 20:53 ]

[Verwijderd]

whoami schreef op zaterdag 05 januari 2008 @ 20:50:
Dit heeft niets met DTE te maken (het gaat nl. niet over problemen met je IDE ofzo), maar het gaat hier over programmeren; PRG dus.

-> PRG

Als je exceptions wilt afhandelen, dan zal je zowiezo een try block nodig hebben:

code:

try
  // Doe iets
except
  on E : EBliepException do begin
      // handel exceptie af
  end;
end;

Enneh, ik vind het vaag dat je in een exceptie class (want je class inherit van de Exception class) om user input gaat gaan vragen ?

En compilatie-fouten, die moet je, mits goed / begrijpend lezen van de compiler messages toch kunnen oplossen ?

Ik heb het nu met de "Try" geprobeerd volgens:

type Numeric_Error = Class (Exception);
Begin
Try
Readln (Massa);
Except
On Numeric_Error do
begin
Writeln ('invalid input');
end;
end;

Hierop krijg ik de volgende foutmelding:

identifier Try not found
syntax error: ";" expected but "identifier Readln" found.

[Creepy]

Welke fpc opties gebruik je en kan je je complete code eens geven (en dan aub de code tags gebruiken). Want als dit al je code is dan snap ik dat je foutmeldingen krijgt.

[Verwijderd]

De FPC Compiler options stonden op "Free Pascal Dialect".
Nadat ik deze veranderd had in "Object Pascal Extension On" werkte de exeption handling.
Ik zou je graag de complete code willen geven, maar wat zijn code tags en hoe krijg ik deze in het bericht.

[whoami]

Verwijderd schreef op zondag 06 januari 2008 @ 16:21:
De FPC Compiler options stonden op "Free Pascal Dialect".
Nadat ik deze veranderd had in "Object Pascal Extension On" werkte de exeption handling.
Ik zou je graag de complete code willen geven, maar wat zijn code tags en hoe krijg ik deze in het bericht.

Leesvoer:
code tags
PRG Quickstart

[Verwijderd]

Heb de genoemde onderwerpen (code tags en PRG Quickstart ) doorgelezen.
Het is me nog niet duidelijk hoe de pascal code met code-tags hier te krijgen.
Volgens de tag code syntax zou het er als volgt uit komen te zien:
[code = pascal, 1, 4, auto.pas]

waarin:
1 = startnummer voor de lijn-nummering
4 = tabbreedte in aantal spaties
auto.pas = file naam van de code

[JochemK]

heel goed, en dan plak je daar onder al je code, en dan sluit je dat af met [/code]

Verder denk ik dat je het concept class niet helemaal goed begrepen hebt, die readln(massa) hoort duidelijk niet thuis in je exception class. Ook je try...except blok hoort daar niet, dat hoort in je "main"

Succes met lezen!

[Verwijderd]

Delphi: auto.pas

program auto (input,output);

uses sysutils;

const rho = 1.23; {luchtdichtheid in kg/m3}
      Cw = 0.3;
      A = 1.8; {oppervlakte in m2}
      Cr = 0.02; {rol weerstands coeficient}
      g = 9.81;
      Wielstraal = 0.3072; {meter voor 16 inch velgen}
      Rendem_Transm  = 0.9; { Rendement transmissie}
      Rendem_Motor  = 0.3; { Rendement motor}
      Ratio_Snelheid_Toerental = 1/60*(3000/120);  { 3000 toeren/min bij 120 km/h}

type angle = real; 
type Wind_type =
     record
         Windkracht : integer; {beaufort}
         Vw : real;   {absolute windsnelheid in m/sec}
         Vws : real;  {schijnbare windsnelheid in m/sec}
         Bw : angle;  {180 graden is tegenwind}
     end;

var Snelheid, Massa, Helling, P_Wielen, P_Motor,
    R_lucht, R_rol, R_helling, R_totaal,
    M_Wielen, M_motor : real;
    Wind : Wind_type;
    Valid_Input : boolean;

BEGIN
     Valid_Input := false;
     while Valid_Input = false do
     begin
        write ('Gewicht auto + inzittenden + bagage [kg]: ');
        Try
          readln (Massa);
          Valid_INput := true;
        Except On EInOutError Do Writeln ('invalid input');
        end;
     end;

     write ('Snelheid [km/h]: ');
     read (Snelheid);
     write ('Windkracht [Beaufort 0-8]: ');
     read (Wind.Windkracht);
     write ('Windrichting [180 graden is tegenwind] ');
     read (Wind.Bw);
     write ('Helling [%]: ');
     read (Helling);

    Snelheid := Snelheid * 10/36;

    case Wind.Windkracht of
        0 : Wind.Vw := 0.0;
        1 : Wind.Vw := 0.9;
        2 : Wind.Vw := 2.45;
        3 : Wind.Vw := 4.4;
        4 : Wind.Vw := 6.7;
        5 : Wind.Vw := 9.35;
        6 : Wind.Vw := 12.3;
        7 : Wind.Vw := 15.5;
        8 : Wind.Vw := 18.9;
        otherwise Wind.Vw := 0.0;
    end;

    Wind.Vws := Snelheid - Wind.Vw * cos(Wind.Bw);

    R_lucht :=
    0.5* rho * Cw * A * Wind.Vws * Wind.Vws;

    R_rol := Massa * g * Cr;

    R_helling := Massa * g * Helling/100;
    R_totaal := R_lucht + R_rol + R_helling;

    P_Wielen := R_totaal * Snelheid;

    P_Motor := P_wielen / Rendem_Transm;

    M_Wielen := R_totaal * Wielstraal;

    M_Motor := P_Motor / (2*pi* Snelheid*3.6 * Ratio_Snelheid_Toerental);

        writeln('Windsnelheid = ', Wind.Vw:2:1, ' m/sec');
        writeln('Windsnelheid = ', 3.6 * Wind.Vw:2:1, ' km/h');
        writeln('R_lucht      = ', R_lucht:2:1, ' Newton');
        writeln('R_rol        = ', R_rol:2:1, ' Newton');
        writeln('R_helling    = ', R_helling:2:1, ' Newton');
        writeln('R_totaal     = ', R_totaal:2:1, ' Newton');
        writeln('Vermogen wielen    = ', P_Wielen/1000:2:1, ' kWatt');
        writeln('Vermogen wielen    = ', P_Wielen/735.5:2:1, ' PK');
        writeln('Vermogen motor    = ', P_Motor/1000:2:1, ' kWatt');
        writeln('Vermogen motor    = ', P_Motor/735.5:2:1, ' PK');
        writeln('Koppel wielen = ', M_Wielen:2:1, ' Nm');
        writeln('Koppel motor = ', M_Motor:2:1, ' Nm');


END.