Написать программу для того что бы определить название k-го месяца после заданного месяца - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.57/7:

@Lebrong 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 14

	Написать программу для того что бы определить название k-го месяца после заданного месяца 21.10.2014, 18:08. Показов 1451. Ответов 1 Метки нет (Все метки) Написать программу для того что бы определить название k-го месяца после заданного месяца. Заранее спасибо 0

Лучшие ответы (1)

Сообщение: #6750358

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

21.10.2014, 18:08

Ответы с готовыми решениями:

Написать программу, которая по номеру месяца выдает название следующего за ним месяца
Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при т = 1 получаем февраль, 4 - май и т.д.).

Написать программу, которая по номеру месяца выдает название следующего за ним месяца
помогите пожалуйста написать программу, которая по номеру месяца выдает на¬звание следующего за ним месяца (при m=1 получаем февраль, при...

Написать программу, которая по номеру месяца выдает название следующего за ним месяца
Хотел сделать что-то простое, но не понимаю почему выдаёт ошибку, с m Mod 13 работает, помогите пожалуйста, может не так что-то написал? ...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

21.10.2014, 18:30

Сообщение было отмечено Lebrong как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
const mes=array[1..12] of string=('январь','февраль','март'....);
var k:integer;
begin
write('k=');
readln(k);
if k=12 then write(mes[1])
else if k in [1..11] then write(mes[k+1])
else write('Такого месяца нет')
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

21.10.2014, 18:30

Помогаю со студенческими работами здесь

Требуется написать программу которая по номеру месяца выдает название след за ним месяца
Написать программу которая по номеру месяца выдает название слудующего месяца (при m=1 получаем февраль, 4-май и т.д) На делфи сделал, но...

Написать программу, выводящую по запросу номера месяца название этого месяца и количество дней в нем
Написать программу, выводящую по запросу номера месяца название этого месяца и количество дней в нем. Предусмотреть обработку ошибочного...

Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при т = 1 получаем февраль, 4 - май и т.д.).
Написать программу, которая по номеру месяца выдает название следующего за ним месяца (при т = 1 получаем февраль, 4 - май и т.д.). ...

Оператор выбора. Присвоить переменной название k-го месяца после месяца m
условие задачи: type месяц = (янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); var m1, m: месяц; Присвоить переменной m1...

Присвоить переменной m1 название k-го месяца после месяца m
type месяц=(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); var m,m1:месяц; k:maxint; n:1..12; Присвоить переменной m1 название k-го...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

Наверх