Type

Тема в разделе "Delphi - FAQ", создана пользователем Nick, 2 янв 2008.

  1. Nick

    Nick Гость

    Ребята помогите исправить, а то завтра отчет здавать.
    Имеются следущие описания:
    var d:28..31;
    m:месяц;
    Переменной D присвоить количество дней в месяце M (год считать невисокосным).

    я пробовал решить, но это неправильно. решать надо через TYPE
    иправте пожалуста задачку.

    Код (Text):
    program primer_7_18;
    uses crt;
    type mesyac=(yanvar,fevral,mart,aprel,may,yun,yul,avgust,sentyabr,octyabr,noyabr,decabr);
    var d:28..31;
    m:mesyac;
    begin
    clrscr;
    writeln('vvedite mesyac');
    writeln('1:yanvar');
    writeln('2:fevral');
    writeln('3:mart');
    writeln('4:aprel');
    writeln('5:may');
    writeln('6:yun');
    writeln('7:yul');
    writeln('8:avgust');
    writeln('9:sentyabr');
    writeln('10:octyabr');
    writeln('11:noyabr');
    writeln('12:decabr');
    readln(d);
    case d of
    1:writeln('31 den');
    2:writeln('28 dney');
    3:writeln('31 den');
    4:writeln('30 dney');
    5:writeln('31 den');
    6:writeln('30 dney');
    7:writeln('31 den');
    8:writeln('31 den');
    9:writeln('30 dney');
    10:writeln('31 den');
    11:writeln('30 dney');
    12:writeln('31 den');
    end;
    case m of
    1:write('yanvar');
    2:writeln('fevral');
    3:writeln('mart');
    4:writeln('aprel');
    5:writeln('may');
    6:writeln('yun');
    7:writeln('yul');
    8:writeln('avgust');
    9:writeln('sentyabr');
    10:writeln('octyabr');
    11:writeln('noyabr');
    12:writeln('decabr');
    end;
    readkey;
    end.
     
  2. Nick

    Nick Гость

    Помогите, срочно надо. please!!!

    Код (Text):
    program primer_7_18;
    uses crt;
    type mesyac=(yanvar,fevral,mart,aprel,may,yun,yul,avgust,sentyabr,octyabr,noyabr,decabr);
    var d:28..31;
    m:mesyac;
    begin
    clrscr;
    writeln('vvedite mesyac');
    writeln('1:yanvar');
    writeln('2:fevral');
    writeln('3:mart');
    writeln('4:aprel');
    writeln('5:may');
    writeln('6:yun');
    writeln('7:yul');
    writeln('8:avgust');
    writeln('9:sentyabr');
    writeln('10:octyabr');
    writeln('11:noyabr');
    writeln('12:decabr');
    readln(d);
    case d of
    1:writeln('31 den');
    2:writeln('28 dney');
    3:writeln('31 den');
    4:writeln('30 dney');
    5:writeln('31 den');
    6:writeln('30 dney');
    7:writeln('31 den');
    8:writeln('31 den');
    9:writeln('30 dney');
    10:writeln('31 den');
    11:writeln('30 dney');
    12:writeln('31 den');
    end;
    readkey;
    end.
     
Загрузка...

Поделиться этой страницей