Umístnení souboru www.TrSek.com/cover/durica/horoskop.pas

{ HOROSKOP.PAS                                 Copyright (c) Durica }
{                                                                   }
{ Program uèí na základe zadaného dòa a mesiaca ktoré užívate¾ zadá }
{ znamenie vo zverokruhu.                                           }
{                                                                   }
{ Author: Mato Durica                                               }
{ Date  : 16.03.2009                           http://www.trsek.com }

program znamenie;

uses crt;

var m,d:byte ;

procedure januar;

   begin
    if d<21 then writeln('kozorozec');
     if d>20 then writeln('vodnar');
      if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure februar;

begin
    if d<20 then writeln('vodnar');
     if d>19 then writeln('ryby');
       if d>29 then writeln('tento mesiac ma maximalne 29 dni');
    end;

procedure marec;

begin
    if d<21 then writeln('ryby');
     if d>20 then writeln('baran');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure april;

begin
    if d<21 then writeln('baran');
     if d>20 then writeln('byk');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure maj;

begin
    if d<21 then writeln('byk');
     if d>20 then writeln('blizenci');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure jun;

begin
    if d<22 then writeln('blizenci');
     if d>21 then writeln('rak');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure jul;

begin
    if d<23 then writeln('rak');
     if d>22 then writeln('lev');
      if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure august;

begin
    if d<24 then writeln('lev');
     if d>23 then writeln('panna');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure september;

begin
    if d<24 then writeln('panna');
     if d>23 then writeln('vahy');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure oktober;

begin
    if d<24 then writeln('vahy');
     if d>23 then writeln('skorpion');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

procedure november;

begin
    if d<23 then writeln('skorpion');
     if d>22 then writeln('strelec');
       if d>30 then writeln('tento mesiac ma len 30 dni');
    end;

procedure december;

begin
    if d<22 then writeln('strelec');
     if d>21 then writeln('kozorozec');
       if d>31 then writeln('tento mesiac ma len 31 dni');
    end;

begin
clrscr;

writeln('napis mesiac kedy si sa narodil');
readln(m);

writeln('napis den kedy si sa narodil');
readln(d);

if m=1  then januar;
if m=2  then februar;
if m=3  then marec;
if m=4  then april;
if m=5  then maj;
if m=6  then jun;
if m=7  then jul;
if m=8  then august;
if m=9  then september;
if m=10 then oktober;
if m=11 then november;
if m=12 then december;
if m>12 then  writeln('mesiacov je len 12');

    readln;
     end.
else

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com