Program učí na základe zadaného dňa a mesiaca ktoré užívateľ zadá znamenie vo zverokruhu
Delphi & Pascal (česká wiki)
Kategória:
Autor: Matej Ďurica
Program: Horoskop.pas
Súbor exe: Horoskop.exe
Autor: Matej Ďurica
Program: Horoskop.pas
Súbor 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