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

Публикувано на 19 април, четвъртък от Данаил

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

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

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

  1. kaloyan каза:
    19 април, четвъртък в 16:29 
    VAR den,mesec : integer;
BEGIN
  repeat
    write('vavedete den: '); readln(den);
      if (den<0) or (den>=32) then writeln('nevaliden den');
    write('vavedete mesec: '); readln(mesec);
      if (mesec<0) or (mesec>=13) then writeln('nevaliden mesec');
  until(den>0) and (den<=31) and (mesec>0) and (mesec<=12);
  writeln('bravo!');
readln;
END.
  2. Lubomir Dizela каза:
    21 април, събота в 14:02 
     program project1;
     var
     d, m, g: integer;

     begin
      repeat
      WriteLn('Vuvedete den, mesec i godina (s cifri, razdeleni s interval)');
     ReadLn(d, m, g);

     begin
      if (d<=31) and (d>=1) then WriteLn('Denqt e validen!') else WriteLn('Denqt e nevaliden!');
      if (m<=12) and (m>=1) then WriteLn('Meseca e validen!') else WriteLn('Meseca e nevaliden!');
      if  g>1 then WriteLn('Godinata e validna!') else WriteLn('Godinata e nevalidna!');
     end;

      until ((d<=31) and (d>=1)) and ((m<=12) and (m>=1)) and (g>1);

      ReadLn;

     end.
  3. Xboxx_ каза:
    21 април, събота в 14:11 
     Var
 data , godina, mesec,validna :integer   ;

Begin
Repeat
Write ('Vuvedete Den , mesec , godina');
ReadLn (Data, Mesec);
begin
if (data<=31) and  (data>=1) then  writeln('Data e validna!' )
 else writeln ('Datata e nevalidna!');


if (mesec<=12) and (mesec>=1) then writeLn ('Meseca e validen!')
else writeln ('Meseca e nevaliden!') ;

if (godina<1) then writeln ('Godinata e validna!')
 else writeln ('Godinata e nevalidna !')  ;
 end;
 Writeln;
 until ((data<=31) and (data>=1)) and (mesec>=1) and (godina>1) ;

ReadLn ;

 End.

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