Въвеждане на валидна дата

Да се направи програма, която гарантира, че потребителят е въвел валидна дата и след това я отпечатва. Проверката за валидна дата да е (опростено) ден между 1 и 31, месец между 1 и 12 и година > 0.

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

2 Responses to Въвеждане на валидна дата

  1. Maggie i Cveti каза:
     program Project1;
    
    
    var den, mesec, godina:integer;
    
    begin
      repeat
        Write ('Vavedete data');
        ReadLn (den, mesec, godina);
        if (den > 31 ) or (den < 1)
            then WriteLn ('Nevaliden den');
        if (mesec > 12 ) or (mesec < 1)
            then WriteLn ('Nevaliden mesec');
        if (godina < 0)
            then WriteLn ('Nevalidna godina');
      until  ( den > 0) and (den <= 31) and (mesec >= 1) and (mesec <= 12) and (godina > 0 );
      WriteLn ('Datata e', den, '.', mesec, '.', godina);
      ReadLn
      end.  
  2. Mimi.Mishi каза:
    program Project1;
    
    var den, mesec, godina: integer ;
    
    begin
      repeat
        Write ('Vuvedete data:');
        ReadLn ( den , mesec, godina );
        if (den > 31) or (den < 1 )
          then WriteLn ('Denqt e nevaliden');
        if (mesec >12) or (mesec< 1)
           then WriteLn ('Mesecut ne e validen');
        if (godina<0)
           then WriteLn ('Godinata e nevalidna');
      until  (den>0) and (den<=31) and (mesec>=1) and (mesec<=12) and (godina>0);
      WriteLn ( 'Datata e' ,den, '.' , mesec, '.' , godina );
      ReadLn;
    end.
     

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