Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.05.2016
Сообщений: 6

По номеру месяца выводить название времени года

14.09.2016, 16:38. Показов 2248. Ответов 13
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
нпк получает номер месяца и выводит название времени года
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
14.09.2016, 16:38
Ответы с готовыми решениями:

По номеру месяца указать, к какому времени года он относится
Используя оператор выбора, составить программу решения задач: № 2. По номеру месяца указать, к какому времени года он относится.

По заданному номеру месяца вывести на экран значение времени года
16. По заданному номеру месяца вывести на экран значение времени года.

Ввести номер месяца. Вывести название времени года
Задача 4 Выбор Составить программу для решения приведенного ниже задания двумя способами, используя: а) команду выбора case; б)...

13
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
15.09.2016, 11:00
Keblyx, кто такой или что такое "нпк"? Яндекс дал много вариантов, что-то ничего подходящего по смыслу задачи я не увидел.

Не по теме:

Кстати, яндекс и такой вариант дал:
НПК — наконечник для очистительных клизм металлический
:)

0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
15.09.2016, 11:05
ZX Spectrum-128, Он объяснил это в другой теме, я ее удалил.

нпк-напишите программу которая
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
15.09.2016, 11:05
Внизу страницы "Похожие темы".
0
1 / 1 / 0
Регистрация: 29.11.2021
Сообщений: 8
17.02.2022, 17:05
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#include<stdio.h>
void myfunc(int m );
int main(void)
{
    int d,m,y;
    printf("Inpot data:\n");
    scanf_s("%d", &d);
    scanf_s("%d", &m); 
    scanf_s("%d", &y);
    printf("%2d %2d %4d\n",d,m,y);
    myfunc(m);
    return 0;
}
void myfunc(int m)
{
    switch (m)
    {
    case 12:
    case 1:
    case 2:printf("winter"); break;
    case 3:
    case 4:
    case 5:printf("spring"); break;
    case 6:
    case 7:
    case 8:printf("summer"); break;
    defouit:printf("autumn"); break;
    }
}
0
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
17.02.2022, 17:24
kinema, поздравляю!
Только кому ваш код нужен в разделе паскаля?
0
1 / 1 / 0
Регистрация: 29.11.2021
Сообщений: 8
17.02.2022, 19:01
Я бы его удалила , если бы знала как здесь удалять сообщения
0
Модератор
10429 / 5717 / 3404
Регистрация: 17.08.2012
Сообщений: 17,385
17.02.2022, 22:13
kinema, у простых пользователей нет права на удаление сообщений. И по просьбам пользователей сообщения тоже не удаляются.

И мне просто интересно, чем Вы руководствовались, поднимая тему 2016 года Вашим, скажем так, не самым лучшим кодом, да ещё и не на том языке? Если уж решили поднять древнюю тему, так поднимайте её чем-то, что никак не может оскорбить возраст темы.
0
1 / 1 / 0
Регистрация: 29.11.2021
Сообщений: 8
17.02.2022, 22:25
Извениье , мне жаль
1
Модератор
10429 / 5717 / 3404
Регистрация: 17.08.2012
Сообщений: 17,385
18.02.2022, 11:56
Я так понимаю, не заметили. Ничего страшного, просто будьте внимательнее.

Если исключить другой язык и древнюю тему, то Вы поступили правильно: в теме, где не было явного ответа на вопрос, написали свой вариант решения.
0
 Аватар для ДобрыйСанта
3 / 1 / 2
Регистрация: 22.11.2015
Сообщений: 15
18.02.2022, 22:57
Решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a: integer;
begin
writeln('Введите месяц: ');
readln(a);
 
if (a>=1) and (a<3) then
   writeln('Зима');
if (a>=3) and (a<6) then
   writeln('Весна');
if (a>=6) and (a<9) then
   writeln('Лето');
if (a>=9) and (a<=11) then
   writeln('Осень');
if (a=12) then
   writeln('Зима')
end.
0
Модератор
10429 / 5717 / 3404
Регистрация: 17.08.2012
Сообщений: 17,385
19.02.2022, 00:00
ДобрыйСанта, ??? Не постигаю, для чего Вы выложили Ваш код. Решение Ваше на два с плюсом. Смотрите:

Если применить составной условный оператор, то сравнений станет гораздо меньше:
Pascal
6
7
8
9
10
11
12
13
14
  if (a = 12) or (a > 0) and (a < 3) then writeln('Зима')
  else
    if a < 6  then writeln('Весна')
    else
      if a < 9 then writeln('Лето')
      else 
        if a < 12 then writeln('Осень')
        else writeln('Такого месяца нет')
end.
Но лучше применить оператор выбора:
Pascal
6
7
8
9
10
11
12
13
  case a of
    1, 2, 12: writeln('Зима');
    3..5: writeln('Весна');
    6..8: writeln('Лето');
    9..11: writeln('Осень')
    else writeln('Такого месяца нет') 
  end
end.
А ещё лучше применить константный массив:
Pascal
1
2
3
4
5
6
7
8
9
10
const
  season: array[0..3] of string = ('Зима', 'Весна', 'Лето', 'Осень');
var
  n: integer;
begin
  write('Введите номер месяца: ');
  readln(n);
  if n in [1..12] then writeln(season[n mod 12 div 3])
  else writeln('Такого месяца нет')
end.
0
 Аватар для ДобрыйСанта
3 / 1 / 2
Регистрация: 22.11.2015
Сообщений: 15
19.02.2022, 00:29
Cyborg Drone, захотел и выложил, форум для всех?
Я буквально сегодня только решил освежить знания в программировании, возобновив активность на форуме.
Можно было упростить задачу, а про тернарный оператор вы напомнили.

Думаю для автора решение уже неактуально, а снобизм и я могу свой проявить, в своей области знаний и оценить ваш подход, уверен и единички не наберете.
0
Модератор
10429 / 5717 / 3404
Регистрация: 17.08.2012
Сообщений: 17,385
19.02.2022, 04:01
Может быть, Вы подумали, что я решил своим сообщением возвысить своё ЧСВ? Если так, то Вы заблуждаетесь.

Автор здесь ни при чём, он последний раз был на форуме в 2018 году. По правилам форума, темы не закрываются и не удаляются. Есть люди, которые ищут решение, вообще не регистрируясь на форуме. Вот Вы захотели, выложили... А для чего? Для того, чтобы потом говорили, что на киберфоруме сплошной говнокод? До Вашего сообщения я вообще не хотел приводить в теме какое-либо решение, поскольку хватает похожих тем внизу этой страницы. Но Вы захотели, выложили... Пришлось мне как-то укреплять Ваше слабое решение.

Я ничего не говорил про тернарный оператор.

И извините меня, пожалуйста. Ваша программа всё же рабочая, так что насчёт двойки - это я погорячился.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.02.2022, 04:01
Помогаю со студенческими работами здесь

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

Определить время года по номеру месяца
Помогите написать программу для 10 класса. На паскале , она легкая, но у меня не получается С экрана запрашивается номер месяца. В...

По номеру месяца определить квартал года
По номеру месяца определить квартал года (первый квартал - январь, февраль, март; второй- апрель, май июнь; третий - июль, август,...

По введенному номеру месяца вывести его название
Составить программу,которая по введенному номеру месяца выводит его название

По номеру месяца определить количество дней в нем для невисокосного года
Дан номер месяца - целое число в диапазоне 1-12 (1-январь,2- февраль, т.д). Определить количество дней в этом месяце для невысокосного...


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

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru