Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Exception handling in Object Pascal
#1
program ExceptionHandlingExample;
var
  num1, num2, result: Integer;
begin
  try
    Write('Enter the first number: ');
    ReadLn(num1);

    Write('Enter the second number: ');
    ReadLn(num2);

    if num2 = 0 then
      raise Exception.Create('Division by zero is not allowed.');

    result := num1 div num2;
    WriteLn('Result: ', result);
  except
    on E: Exception do
      WriteLn('Exception caught: ', E.Message);
  end;
end.
Also follow me on Youtube for videos about video games:
https://www.youtube.com/channel/UCxfkGVU...2mQ/videos
Reply


Possibly Related Threads…
Thread Author Replies Views Last Post
  Getting started with Object Pascal Qomplainerz 0 368 07-25-2023, 09:45 AM
Last Post: Qomplainerz
  Basic algorithms and Data Structures in Object Pascal Qomplainerz 0 384 07-25-2023, 09:44 AM
Last Post: Qomplainerz
  File I/O in Object Pascal Qomplainerz 0 340 07-25-2023, 09:44 AM
Last Post: Qomplainerz
  Object-oriented concepts in Object Pascal Qomplainerz 0 356 07-25-2023, 09:43 AM
Last Post: Qomplainerz
  String manipulation in Object pascal Qomplainerz 0 337 07-25-2023, 09:41 AM
Last Post: Qomplainerz
  Arrays and Collections in Object Pascal Qomplainerz 0 362 07-25-2023, 09:41 AM
Last Post: Qomplainerz
  User-defined functions in Object Pascal Qomplainerz 0 352 07-25-2023, 09:40 AM
Last Post: Qomplainerz
  Control flow in Object Pascal Qomplainerz 0 361 07-25-2023, 09:40 AM
Last Post: Qomplainerz
  Basic Input and Output in Object Pascal Qomplainerz 0 354 07-25-2023, 09:39 AM
Last Post: Qomplainerz
  Datatypes and Variables in Object Pascal Qomplainerz 0 346 07-25-2023, 09:39 AM
Last Post: Qomplainerz

Forum Jump:


Users browsing this thread: 1 Guest(s)