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

Публикувано на 01 февруари, сряда от Данаил

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

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

4 Responses to Сравняване на дати

  1. Боряна каза:
    01 февруари, сряда в 18:18

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

    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 каза:
    03 февруари, петък в 15:17 
    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.

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