Program podľa čísla mesiaca zistí ročné obdobie

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategórie: Zadání z Pascalu

Autor: Juraj Pupák
Program: Mesiace.pas
Soubor exe: Mesiace.exe

Program podľa čísla mesiaca zistí ročné obdobie.
{ MESIACE.PAS                                                       }
{ Program podla cisla mesiaca zisti rocne obdobie.                  }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Mesiace;
uses crt;
var i : real;
 
begin
 clrscr;
 writeln('Program podla cisla mesiaca zisti rocne obdobie.');
 writeln('------------------------------------------------');
 
 write('Zadaj cislo mesiaca: ');
 readln(i);
 
 IF (i >= 3) and (i <= 5)  THEN
   begin
     writeln('Jar');
   end;
 
 IF (i >= 6) and (i <= 8) THEN
   begin
     writeln('Leto');
   end;
 
 IF (i >= 9) and (i <= 11) THEN
   begin
     writeln('Jesen');
   end;
 
 IF (i = 12) or (i = 1) or (i = 2) THEN
   begin
     writeln('Zima');
   end else
       IF (i > 12) or (i < 1) THEN
          begin
            writeln('Zly mesiac');
          end;
 readln;
end.