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

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

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

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

  1. yvonne каза:

    program Calendar;

    var
    data, mesec, godina:integer;
    begin
    Write(‘Vavedete data:’);
    Readln(data);
    case(data)of
    1..31:Writeln(‘Datata e validna!’)
    else Writeln(‘Nevalidna data:(‘)
    end;
    Write(‘Vavedete mesec:’);
    Readln(mesec);
    case(mesec)of
    1..12:Writeln(‘Validen mesec!’)
    else Writeln(‘Nevaliden mesec:(‘);
    end;
    Write(‘Vavedete godina:’);
    Readln(godina);
    if godina>0 then Writeln(‘Validna godina!’)
    else Writeln(‘Nevalidna godina:(‘);
    Readln;
    end.

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