Keliamieji metai - Pascal (FPS)

Sveiki, iškilo problema pascalyje su šiuo uždaviniu. Gal kas pagelbės?:

Keliamieji metai turi 366 dienas, paprastieji – 365. Keliamaisiais vadinami metai, kurie be liekanos dalijasi iš 4. Šimtmečių metai keliamaisiais laikomi tuomet, kai jie be liekanos dalijasi iš 400. Parašykite programą, kuri ekrane parodytų keliamuosius metus laikotarpio, kuris prasideda m-aisiais, o baigiasi n-aisiais metais.

Pasitikrinimui. Kai m = 1898, o n = 1910, turi būti spausdinama:

Keliamieji metai yra 1904, 1908.

Dėkui iš anksto!

Sveikas.

Kokia problema?

Padariau iki tiek ir nebesuprantu toliau kaip tiksliai daryt :D

program Programa3;
 var m, n, i: integer;
begin
 Write('Áveskite metø pradþià: '); ReadLn(m);
 Write('Áveskite metø pabaigà: '); ReadLn(n);
 for i := m to n do
   begin
     if (i % 400 == 0 || (i % 100 != 0) && ( i % 4 == 0))
       then
       i := i +1;

 Readln;
end.

T.y pasimečiau :D

program Programa3;
 var m, n, i: integer;
begin
 Write('Áveskite metø pradþià: '); ReadLn(m);
 Write('Áveskite metø pabaigà: '); ReadLn(n);
 for i := m to n do
   begin
     if (i % 400 == 0 || (i % 100 != 0) && ( i % 4 == 0))
       then
         PrintLn(i);
     i := i + 1;
   end;

 Readln;
end.

Turėtų veikti, lyg ir. Jei sąlyga apskritai teisinga.

program Programa3;
 var m, n, i: integer;
begin
 Write('Įveskite metų pradžią: '); ReadLn(m);
 Write('Įveskite metų pabaigą: '); ReadLn(n);
 for i := m to n do
   begin
     if (i % 400 == 0 || (i % 100 != 0) && ( i % 4 == 0))
       then
         PrintLn(i);
     i := i + 1;
   end;

 Readln;
end.

 

Turėtų veikti, lyg ir. Jei sąlyga apskritai teisinga.

Štai mano kodas, perdarytas:

program Programa3;
 var m, n, i: integer;
begin
 Write('Áveskite metø pradþià: '); ReadLn(m);
 Write('Áveskite metø pabaigà: '); ReadLn(n);
 for i := m to n do
   begin
     if (i mod 400 = 0 OR (i mod 100 <> 0) AND ( i mod 4 = 0))
       then
         WriteLn('Keliamieji metai yra: ', i);
       end;
 Readln;
end.

Bet rašo:

Nedera tipai, turėtų būti "LONGINT" (yra "BOOLEAN")

Nors ir pakeičiu iš integer į longint

Skliausteliu trukumas:

if ((i mod 400 = 0) OR (i mod 100 <> 0) AND (i mod 4 = 0))

Skliausteliu trukumas:

 

if ((i mod 400 = 0) OR (i mod 100 <> 0) AND (i mod 4 = 0))

Dabar pas mane yra toks kodas (Dalis aišku):

  for i := m to n do
   begin
     if ((i mod 400 = 0) OR (i mod 100 <> 0) AND (i mod 4 = 0))
       then
         WriteLn('Keliamieji metai yra: ', i);
       end;

Ir kaip padaryt, kad atsakymą pateiktų taip?:

Keliamieji metai yra 1904, 1908

O ne:

Keliamieji metai yra 1904

Keliamieji metai yra 1908

Dabar pas mane yra toks kodas (Dalis aišku):

 

  for i := m to n do
   begin
     if ((i mod 400 = 0) OR (i mod 100 <> 0) AND (i mod 4 = 0))
       then
         WriteLn('Keliamieji metai yra: ', i);
       end;

 

Ir kaip padaryt, kad atsakymą pateiktų taip?:

 

 

 

O ne:

 

?

 WriteLn('Keliamieji metai yra: ');
 for i := m to n do
   begin
     if ((i mod 400 = 0) OR (i mod 100 <> 0) AND (i mod 4 = 0))
       then
         Write(i, ' ');
       end;

Tik dabar bus problema, jeigu intervale nėra keliamųjų metų. Spręsčiau maždaug taip: turėčiau Boolean kintamąjį, kurio pradinė reikšmė būtų false. Jeigu metai keliamieji, tikrinčiau ar tas kintamasis false, jei false – printinčiau ('Keliamieji metai yra: ', i) ir nustatyčiau tą kintamąjį į true. Jeigu kintamasis true – printinčiau tik metus: Write(', ' i);

Jeigu baigus ciklą kintamasis išlieka false – printinčiau 'Intervale keliamųjų metų nėra'.