Type

  • Автор темы Nick
  • Дата начала
N

Nick

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

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

Код:
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.
 
N

Nick

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

Код:
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.