Member Avatar for joygqy

in pascal, if i wanna classify something into different category and count how many items i have in each category, how would i do that?

  • 2 Contributors
  • 3 Replies
  • 101 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by Duoas

Dani AI

Generated

later clarified the task as counting leap years from 2000 to 2050 and correctly suggested using a built-in check and thinking the logic through first. The straightforward way is to implement the Gregorian leap-year rule and loop the range, incrementing a counter for each match. The rule is: divisible by 4, except when divisible by 100 unless also divisible by 400 (Leap year).

program LeapCount;

function IsGregorianLeap(Year: Integer): Boolean;
begin
  IsGregorianLeap := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;

var
  y, Count: Integer;
begin
  Count := 0;
  for y := 2000 to 2050 do
  begin
    if IsGregorianLeap(y) then
    begin
      Inc(Count);
      WriteLn(y, ' is a leap year');
    end;
  end;
  WriteLn('Total leap years between 2000 and 2050: ', Count);
end.

This prints each leap year and then the total; for 2000–2050 the total is 13 (2000, 2004, 2008, ..., 2048). Testing the function on known edge cases—1900 (not a leap year), 2000 (leap year), 2004 (leap year)—confirms correctness. For broader classification problems, use an array of counters (for numeric buckets) or a map/dictionary keyed by category name and increment the matching bucket. Note: the rule above applies to the Gregorian calendar; historical dates before Gregorian adoption need special handling.

Recommended Answers

All 3 Replies

Member Avatar for Duoas

Your question is much too vague for me to help you.

What is it you wish to classify?

Member Avatar for joygqy

for instance, if i wanna check all years from 2000 to 2050 and show each leap year and how many leap years there are, how would i show how many leap years there are?

Member Avatar for Duoas

OK, that helps.

This is a purely mathematical question. You'll need a function to tell you if a given year is a leap year or not. It so happens that the Delphi VCL has a function that does just that: uses SysUtils; function IsLeapYear( year: word ): boolean; Now think about how you can use that function to check each year for a leap year, and count how many leap years you find.

Hint: get out the construction paper and crayons and do it there first. This helps me all the time because by first solving the problem without the computer I have a better idea of how to tell the computer how to solve the problem.

Once you get some code together, post back here.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.