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

Публикувано на 10 май, събота от Данаил

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

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

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

  1. Maggie i Cveti каза:
    10 май, събота в 12:28 
     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 каза:
    10 май, събота в 12:29 
    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.

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