Структура и правила оформления таблицы Для описания ряда объектов, обладающих одинаковыми наборами свойств, наиболее часто используются таблицы, состоящие из столбцов и строк.Вам хорошо известно табличное представление расписания уроков, в табличной форме представляются расписания движения автобусов, самолетов, поездов и многое другое.Представленная в таблице информация наглядна, компактна и легко обозрима.В таблице может содержаться информация о различных свойствах объектов, об объектах одного класса и разных классов, об отдельных объектах и группах объектов. Правильно оформленная таблица имеет структуру:Табличный номер Общий заголовок таблицы Общий заголовок таблицы
Var a:integer; Begin Write('Введите номер месяца: '); readln(a); case a of 1:writeln('Январь - Зима'); 2:writeln('Февраль- Зима'); 3:writeln('Март- Весна'); 4:writeln('Апрель- Весна'); 5:writeln('Май- Весна'); 6:writeln('Июнь-Лето'); 7:writeln('Июль- Лето'); 8:writeln('Август- Лето'); 9:writeln('Сентябрь-Осень'); 10:writeln('Октябрь -Осень'); 11:writeln('Ноябрь- Осень'); 12:writeln('Декабрь - Зима'); else writeln('Введено не верное число. Введите число от 1 до 12'); end; end.
Либо упрощённый вариант: Var a:integer; Begin Write('Введите номер месяца: '); readln(a); case a of 1..2:writeln('Зима'); 3..5:writeln('Весна'); 6..8:writeln('Лето'); 9..11:writeln('Осень'); 12:writeln('Зима'); else writeln('Введено не верное число. Введите число от 1 до 12'); end; end.
Общий заголовок таблицы
Begin
Write('Введите номер месяца: '); readln(a);
case a of
1:writeln('Январь - Зима');
2:writeln('Февраль- Зима');
3:writeln('Март- Весна');
4:writeln('Апрель- Весна');
5:writeln('Май- Весна');
6:writeln('Июнь-Лето');
7:writeln('Июль- Лето');
8:writeln('Август- Лето');
9:writeln('Сентябрь-Осень');
10:writeln('Октябрь -Осень');
11:writeln('Ноябрь- Осень');
12:writeln('Декабрь - Зима');
else writeln('Введено не верное число. Введите число от 1 до 12');
end;
end.
Либо упрощённый вариант:
Var a:integer;
Begin
Write('Введите номер месяца: '); readln(a);
case a of
1..2:writeln('Зима');
3..5:writeln('Весна');
6..8:writeln('Лето');
9..11:writeln('Осень');
12:writeln('Зима');
else writeln('Введено не верное число. Введите число от 1 до 12');
end;
end.