Программная модель

Информационная модель

Набор тестов

Метод решения

если god<1600 вывод('решения нет')

иначе выбор по m из вариантов

при 1,3,5,7,8,10,12 вывод('31 день')

при 4,6,9,11 вывод('30 день')

при 2 если (god mod 4= 0) and (god mod 100 <> 0)or

(god mod 400=0) вывод('29 дней')

иначе вывод('28 дней')

Таблица 13.1. Набор тестов

№ теста	Исходные данные	Ожидаемый результат
god	mes
			Решения нет
			Решения нет
			29 дней
			31 день
			28 дней

входные - заданный номер месяца mes в пределах от 1 по 12,

т.е. типа диапазон 1..12 (дадим этому типу имя tmes),

и номер года god типа word;

выходные - тексты '31 день', '30 дней', '29 дней', '28 дней', 'решения нет'.

промежуточные - отсутствуют.

Алгоритмическая модель (схема алгоритма)

Схема алгоритма приведена на рис. 13.5.

Рис. 13.5. – Схема алгоритма решения задачи
определения количества дней в месяце

program kolday;

type tmes=1..12;

var god:word;

mes:tmes;

begin

writeln ('год');

readln(god);

writeln ('месяц');

readln(mes);

if god <1600 then

writeln ('решения нет')

else

Сase mes of

1,3,5,7,8,10,12:writeln('31 день');

4,6,9,11:writeln('30 дней');

2: if (god mod 4= 0) and (god mod 100 <> 0) or

(god mod 400=0) then

writeln ('29 дней')

else

writeln ('28 дней')

else writeln ('решения нет')

end {Сase}

end.

Дата добавления: 2015-06-28