If Statement in Python Programming Language

Odd and Even Numbers Using If Statement in Python Programming Language

Display 1 To 5 Using For Statement in Python Programming Language

My Book on System Administration and Maintenance is now available

 My book is System Administration and Maintenance is now available at my publishers website. For inquiry and book order kindly visit the link below. Thank you very much for your support. I really appreciate it a lot.

https://www.unlimitedbooksph.com/product-page/introduction-to-system-administration-and-maintenance

My Book in Typescript Programming is Now Avaiable

 My book in TypeScript programming is now available please visit my publisher website in the link below.

Thank you very much for your support.

https://www.unlimitedbooksph.com/product-page/beginners-guide-to-typescript-programming

What is a Utility Model?

Transform Your Ideas into Powerful Software Solutions!

 Transform Your Ideas into Powerful Software Solutions!

Are you looking to bring your business ideas to life through custom software? Look no further!

At Laravel Software,a software engineering company based in the Philippines, we specialize in innovative software application development designed to meet your unique business needs. Whether you're a startup or an established business, our team of expert developers will create cutting-edge, scalable, and user-friendly software tailored specifically to your goals.
Why Choose Us?

    Custom Solutions: We build software that fits your business like a glove. No cookie-cutter templates here!

    Scalable & Reliable: As your business grows, so does your software. We design with future expansion in mind.

    User-Centric Design: Our apps are intuitive, making sure your team and customers enjoy seamless experiences.

    Fast Turnaround: We understand deadlines. We work efficiently without compromising quality.

    Ongoing Support: From initial development to long-term maintenance, we’re here to support your software needs.

Our Services Include:

    Mobile & Web Application Development
    Enterprise Solutions
    Cloud-Based Software
    E-Commerce Platforms
    Custom Integrations & APIs
    Software Maintenance & Upgrades

Let’s Build the Future Together!

Ready to turn your idea into reality? Contact us today for a free consultation, and let’s discuss how our software solutions can help elevate your business.

📞 Call us at  +63 09173084360
📧 Email us at jakerpomperada@gmail.com
🌐 Visit us at http://www.jakerpomperada.com

What is Neural Network?

What is a File Server?

Benefits of Living in Australia

What is Canva?

What is Data Mining?

What is Big O Notation?

What is Algorithm Design?

Age Checker in Delphi

Age Checker in Delphi

 

Program Listing

unit demo;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ToolWin, Vcl.ComCtrls;

type

  TForm1 = class(TForm)

    StatusBar1: TStatusBar;

    ToolBar1: TToolBar;

    Edit1: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

     function AskToQuit: Boolean;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

// Programmer : Dr. Jake R. Pomperada

// Date : November 4, 2024

procedure TForm1.Button1Click(Sender: TObject);

var

  age: Integer;

begin

  try

    age := StrToInt(edit1.Text);

    if age >= 18 then

      label2.Caption := 'You are an adult. At age of ' +IntToStr(age) + ' years old.'

    else

      label2.Caption := 'You are a minor.  At age of ' +IntToStr(age) + ' years old.';

  except

    on EConvertError do

      ShowMessage('Please enter a valid age (a number).');

  end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

label2.Caption := '';

edit1.text := '';

edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if AskToQuit then

    Close // Close the form if user confirms

    else

      edit1.SetFocus;

end;

function TForm1.AskToQuit: Boolean;

begin

  Result := MessageDlg('Are you sure you want to quit?', mtConfirmation, [mbYes, mbNo], 0) = mrYes;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 // Optionally adjust the form position here if needed

  // For example, move it slightly to the left and up

  Left := (Screen.Width - Width) div 2;   // Center horizontally

  Top := (Screen.Height - Height) div 2;  // Center vertically

end;

end.

Square a Number Using Lazarus Free Pascal

Circle Using a Class in Java

Circle Using a Class in Java

 

Program Listing

import java.text.DecimalFormat;

class Circle {

    private double radius;

    public Circle(double radius) {

        this.radius = radius;

    }

    public double getRadius() {

        return radius;

    }

    public double calculateArea() {

        return Math.PI * Math.pow(radius, 2);

    }

    public double calculateCircumference() {

        return 2 * Math.PI * radius;

    }

}

public class Main {

    public static void main(String[] args) {

        Circle circle = new Circle(8.15);

        DecimalFormat df = new DecimalFormat("#.00");

        System.out.println("\n\tCircle Using a Class in Java\n");

        

        System.out.println("\tRadius: " + df.format(circle.getRadius()));

        System.out.println("\tArea: " + df.format(circle.calculateArea()));

        System.out.println("\tCircumference: " + df.format(circle.calculateCircumference()));

         System.out.println("\n\tEnd of Program. Thank you for Using This Program\n");

    }

}

What is Standard Template Library (STL)?