Сравняване на дати

Да се дефинира като нов тип данни запис TData, съхраняваща ден, месец и година. Да се декларират две променливи от този тип, да им се въведат стойности и да се провери:

  • дали датите съвпадат
  • * ако не, коя дата е по-ранна и коя е след нея
Публикувано в 10a с етикети . Постоянна връзка.

4 коментара по Сравняване на дати

  1. Боряна каза:

    с мъъъничко уникалност в съобщенията :Р

    program Project1;
    type
      TData=record
        d, m, g: integer;
      end;
    var
      D1, D2: TData;
    begin
      Write('Vavedete rozdenia si den - den, mesec i godina, razdeleni s pauzi: ');
      ReadLn(D1.d, D1.m, D1.g);
      Write('Vavedete rozdenia den na priatel po sashtia nachin: ');
      ReadLn(D2.d, D2.m, D2.g);
    
      if (((D1.d=D2.d) and (D1.m=D2.m)) and (D1.g=D2.g)) then
        WriteLn('Rodeni ste na edin i sashti den! Da ne ste bliznaci?')
      else
        if (D1.g<D2.g) then
          WriteLn('Vie ste po-goliam!')
        else if (D1.g>D2.g) then
               WriteLn('Vashiat priatel e po-goliam!')
             else if (D1.m<D2.m) then
                    WriteLn('Vie ste po-goliam!')
                  else if (D1.m>D2.m) then
                       WriteLn('Vashiat priatel e po-goliam!')
                       else if (D1.d<D2.d) then
                              WriteLn('Vie ste po-goliam!')
                            else if (D1.d>D2.d) then
                                 WriteLn('Vashiat priatel e po-goliam!');
      ReadLn;
    end.
    
  2. Svetli каза:
    program Project1;
    type
      TData = record
        D:integer;
        M:integer;
        G:integer;
      end;
    var
      A,B:TData;
    begin
      Writeln('Vavedete 1-vata data, kato napishete den, mesec i godina, razdeleni s intervali');
      Readln(A.D,A.M,A.G);
      Writeln('Vavedete 2-vata data, kato napishete den, mesec i godina, razdeleni s intervali');
      Readln(B.D,B.M,B.G);
      Writeln;
    
      if ((A.D=B.D) and (A.M=B.M)) then Writeln('Datite suvpadat')
      else Writeln('Datite ne suvpadat');
    
      if ((A.M > B.M) or ((A.M = B.M) and (A.D > B.D)) or (A.G > B.G)) then
         Writeln('Purvata data e po-golqma')
      else Writeln('Vtorata data e po-golqma');
    
    
      Readln;
    end.    
    

Вашият коментар