a IX-a A27 lecții INFORMATICĂ | 30 lecții T.I.C.
Informatică
█
Lectia 00001   |   Lectia 00   |   Lectia 01   |   Lectia 02   |   Lectia 03   |   Lectia 04   |   Lectia 05
Lectia 05 --- [ 4 Probleme rezolvate ]
1. Se citește data de naștere a unei persoane exprimată în zi , lună , an . Să se determine câți ani împliniți are persoana respectivă .
Propune o soluție

S
o
l
u
ț
i
a:
Introdu următorul text: 146065943
Citeste zi_a, luna_a, an_a    { Data curenta }
Citeste zi, luna, an    { Data persoanei }
Daca luna>luna_a  atunci
         Scrie   an_a-an-1,"impliniti"
Altfel
      Daca luna<luna_a atunci
                       Scrie an_a-an,"impliniti"
           Altfel
                       Daca zi>zi_a  atunci
                                     Scrie   an_a-an-1,"impliniti"
                             Altfel
                                    Daca zi<zi_a atunci
                                            Scrie an_a-an,"impliniti"
                                      Altfel
                                            Scrie an_a-an,"impliniti, ZIUA LUI "
                                     Sfarsit Daca                                              
                           Sfarsit Daca
          Sfarsit Daca
Sfarsit Daca
2. Se citesc datele de naștere a 2 persoane exprimate în zi , lună , an . Să se determine care dintre cele două persoane este mai în vârstă .
Propune o soluție

S
o
l
u
ț
i
a:
Introdu următorul text: 896525713
Citeste zi1, luna1, an1    { Data primei persoane }
Citeste zi2, luna2, an2    { Data celei de a doua 
persoane }
Daca an1 < an2 atunci
      Scrie " Prima persoana "
Altfel
         Daca an1 > an2 atunci
                 Scrie " A doua persoana "
                Altfel
                      Daca luna1 < luna2  atunci
                              Scrie   " Prima persoana "
                         Altfel
                                Daca luna1 > luna2 atunci
                                            Scrie " A doua persoana "
                                   Altfel
                                        Daca zi1 < zi2 atunci
                                                Scrie " Prima persoana "
                                         Altfel
                                           Daca zi1 > zi2 atunci
                                                    Scrie " A doua 
persoana "
                                            Altfel
                                                       Scrie   " Au acceasi 
varsta - sunt nascute in aceeasi zi, luna, an"
                                            Sfarsit Daca                                              
                                        Sfarsit Daca
                                Sfarsit Daca
                        Sfarsit Daca
            Sfarsit Daca
Sfarsit Daca
3. Se citește o dată exprimată în zi , lună , an . Să se determine dacă data este validă .
Propune o soluție

S
o
l
u
ț
i
a:
Introdu următorul text: 280813626
Citeste zi, luna, an   
Daca zi>=1 si zi<=31 si luna>=1 si luna<=12  atunci
      Daca (luna=2 si zi>29) sau ((luna=4 sau luna=6 sau 
luna=9 sau luna=11) si zi>30) atunci
                       Scrie "data invalida"
           Altfel
                Daca luna=2 si rest(an, 4)<>0 si z=29 atunci
                       Scrie "data invalida"
                  Altfel
                    Scrie "DATA VALIDA"
                 Sfarsit Daca
       Sfarsit Daca
Sfarsit Daca
4. Se citește o dată. Să se determine data următoare de după data citită.
Propune o soluție

S
o
l
u
ț
i
a:
Introdu următorul text: 238368191
Citeste zi, luna, an   
Daca zi>=1 si zi<=31 si luna>=1 si luna<=12  atunci
      Daca zi<30 si luna<>2 atunci
               Scrie zi+1, luna, an
       Altfel
             Daca zi=30 si luna=4 sau luna=6 sau luna=9 
sau luna=11 atunci
                       Scrie 1, luna+1, an
              Altfel
                   Daca zi=31 si luna=1 sau luna=3 sau 
luna=5 sau luna=7 sau luna=8 sau luna=10 atunci
                             Scrie 1, luna+1, an
                       Altfel
                          Daca zi=31 si luna=12 atunci
                                  Scrie 1, 1, an+1
                           Altfel
                                   Daca luna=2 si zi<=28 si rest(an, 
4)=0 atunci
                                                Scrie zi+1, luna, an
                                    Altfel
                                        Daca luna=2 si zi=28 si 
rest(an, 4)<>0 atunci
                                                Scrie 1, luna+1, an
                                         Altfel
                                                Scrie zi+1, luna, an                                     
                                         Sfarsit Daca
                                      Sfarsit Daca
                            Sfarsit Daca
                        Sfarsit Daca
               Sfarsit Daca
        Sfarsit Daca
Sfarsit Daca
Fii primul care comentează lecţia
     Submit
  |   Lectia 06   |   Lectia 07   |   Lectia 08   |   Lectia 09   |   Lectia 10   |   Lectia 101   |   Lectia 102   |   Lectia 103   |   Lectia 11   |   Lectia 11_2   |   Lectia 12   |   Lectia 12_2   |   Lectia 12_3   |   Lectia 12_4   |   Lectia 12_5   |   Lectia 13   |   Lectia 14   |   Lectia 17
█
Lectia 18   |   Lectia 19
T.I.C.

█
Lectia 01   |   Lectia 02   |   Lectia 03   |   Lectia 04
█
Lectia 05   |   Lectia 06   |   Lectia 07   |   Lectia 08   |   Lectia 09
█
Lectia 10   |   Lectia 11   |   Lectia 12   |   Lectia 13   |   Lectia 14   |   Lectia 15   |   Lectia 16   |   Lectia 17   |   Lectia 18   |   Lectia 19   |   Lectia 19   |   Lectia 20   |   Lectia 23   |   Lectia 24   |   Lectia 26   |   Lectia 27   |   Lectia 28   |   Lectia 29   |   Lectia 30_2   |   Lectia 31   |   Lectia 32
a IX-a B0 lecții INFORMATICĂ | 0 lecții T.I.C.
a IX-a C0 lecții INFORMATICĂ | 26 lecții T.I.C.
T.I.C.
█
Lectia 01   |   Lectia 02   |   Lectia 03   |   Lectia 04
█
Lectia 05   |   Lectia 06   |   Lectia 07   |   Lectia 08
█
Lectia 10   |   Lectia 12   |   Lectia 13   |   Lectia 14   |   Lectia 15   |   Lectia 16   |   Lectia 17   |   Lecția 18   |   Lectia 19   |   Lectia 20   |   Lectia 21   |   Lectia 22   |   Lectia 23   |   Lectia 24   |   Lectia 25   |   Lectia 26   |   Lectia 27   |   Lectia 28
a IX-a D0 lecții INFORMATICĂ | 0 lecții T.I.C.
a IX-a E0 lecții INFORMATICĂ | 0 lecții T.I.C.
a X-a A6 lecții INFORMATICĂ | 22 lecții T.I.C.
Opțional
█
Fișa 01   |   Fișa 02   |   Fișa 03   |   Fișa 04   |   Fișa 05   |   Lectia 20
T.I.C.

█
Lectia 07   |   Lectia 08   |   Lectia 09   |   Lectia 10   |   Lectia 11   |   Lectia 12   |   Lectia 13   |   Lectia 14
█
Lecția 14_1
█
Lectia 15
█
Lectia 16   |   Lectia 17   |   Lectia 19   |   Lectia 20
█
Lectia 21   |   Lecția 22   |   Lectia 23   |   Lectia 24   |   Lectia 25   |   Lectia 26   |   Lectia 27   |   Lectia 28
a X-a B0 lecții INFORMATICĂ | 0 lecții T.I.C.
a X-a C0 lecții INFORMATICĂ | 0 lecții T.I.C.
a X-a D0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XI-a A30 lecții INFORMATICĂ | 0 lecții T.I.C.
Informatică
█
Lectia 07   |   Lectia 08   |   Lectia 09   |   Lectia 10   |   Lectia 11   |   Lectia 12   |   Lectia 13   |   Lectia 14
█
Lectia 16   |   Lectia 18   |   Lectia 19   |   Lectia 20   |   Lectia 21
█
Lectia 23   |   Lectia 24
█
Lectia 36
█
Lectia 40   |   Lectia 41   |   Lectia 42   |   Lectia 43   |   Lectia 44   |   Lectia 45   |   Lectia 46   |   Lectia 46_1
█
Lectia 47   |   Lectia 48   |   Lectia 49   |   Lectia 50   |   Lectia 50_1
█
Lectia 50_2
a XI-a B0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XI-a C0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XI-a D0 lecții INFORMATICĂ | 14 lecții T.I.C.
T.I.C.
█
Fişa 01   |   Fişa 02   |   Fişa 03   |   Fişa 04   |   Fişa 05   |   Fişa 06   |   Fişa 07
█
Lectia 01   |   Lectia 02   |   Lectia 03   |   Lectia 04   |   Lectia 05   |   Lectia 06   |   Lectia 07
a XI-a E0 lecții INFORMATICĂ | 1 lecții T.I.C.
T.I.C.
█
Fişa 01
a XII-a A2 lecții INFORMATICĂ | 0 lecții T.I.C.
Informatică
█
Lectia 01   |   Lectia 02
a XII-a B0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XII-a C0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XII-a D0 lecții INFORMATICĂ | 0 lecții T.I.C.
a XII-a E0 lecții INFORMATICĂ | 0 lecții T.I.C.
Excelenta A0 lecții INFORMATICĂ | 0 lecții T.I.C.