Program učí na základe zadaného dňa a mesiaca ktoré užívateľ zadá znamenie vo zverokruhu

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: KMP (Programy mladňakoch

Zrobil: Matej Ďurica
Program: Horoskop.pas
Subor exe: Horoskop.exe

Program učí na základe zadaného dňa a mesiaca ktoré užívateľ zadá znamenie vo zverokruhu.
{ 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