Составьте программу, которая запрашивает месяц

@kvartz · Регистрация: 04.06.2013

Студворк — интернет-сервис помощи студентам

Составьте программу, которая запрашивает месяц (один из символов: 'о' — октябрь, 'ф' — февраль, 'н' — ноябрь, 'д' — декабрь) и погоду ('я' — ясно или 'п' — пасмурно) и выдаёт сообщение о погоде.
Протокол:
Введите месяц и погоду: оп
В октябре было пасмурно
Ребят,помогите пожалуйста:3

@Дикутенз · 04.06.2013, 07:42

Месяцы все 12 штук надо?

@kvartz · 04.06.2013, 07:43 **[ТС]**

дa.

@Дикутенз · 04.06.2013, 08:09

А как месяцы разделять по первой букве, если есть которые начинаются на одну букву? Май, март. Июнь, июль

@kvartz · 04.06.2013, 08:18 **[ТС]**

Повторные месяцы можно пропустить,они не столь важны

@Дикутенз · 04.06.2013, 08:21

Сделал только чтобы месяцы по двум буквам был

Pascal
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
30
31
32
33
34
35
36
37
38
39
40
41
Uses crt;
Var s,s1,s2,si:string;
    j:char;
Begin clrscr;
  WriteLn('ja - janvar');
  WriteLn('fe - fevral');
  WriteLn('mr - mart');
  WriteLn('ap - aprel');
  WriteLn('ma - may');
  WriteLn('iy - iyn');
  WriteLn('il - iyl');
  WriteLn('av -avgust');
  WriteLn('se - sentyabr');
  WriteLn('ok - oktyabr');
  WriteLn('no - noyabr');
  WriteLn('de - dekabr');
  WriteLn;
  WriteLn('j - jasno');
  WriteLn('p - pasmurno');
  Write('vvedite mesyac i pogodu:');
  ReadLn(s);
  si:=s[1]+s[2];
  j:=s[3];
  if si='ja' then s1:='janvere';
  if si='fe' then s1:='fevrale';
  if si='mr' then s1:='marte';
  if si='ap' then s1:='aprele';
  if si='ma' then s1:='mae';
  if si='iy' then s1:='iyne';
  if si='il' then s1:='iyle';
  if si='av' then s1:='avguste';
  if si='se' then s1:='sentyabre';
  if si='ok' then s1:='oktyabre';
  if si='no' then s1:='noyabre';
  if si='de' then s1:='dekabre';
 
  if j='j' then s2:='jasno'
           else if j='p' then s2:='pasmurno';
  Write('V ',s1, ' bylo ',s2);
  ReadLn;
End.

@kvartz · 04.06.2013, 08:51 **[ТС]**

спасибо

Добавлено через 23 минуты

Сообщение от Дикутенз

Сделал только чтобы месяцы по двум буквам был

Pascal
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
30
31
32
33
34
35
36
37
38
39
40
41
Uses crt;
Var s,s1,s2,si:string;
    j:char;
Begin clrscr;
  WriteLn('ja - janvar');
  WriteLn('fe - fevral');
  WriteLn('mr - mart');
  WriteLn('ap - aprel');
  WriteLn('ma - may');
  WriteLn('iy - iyn');
  WriteLn('il - iyl');
  WriteLn('av -avgust');
  WriteLn('se - sentyabr');
  WriteLn('ok - oktyabr');
  WriteLn('no - noyabr');
  WriteLn('de - dekabr');
  WriteLn;
  WriteLn('j - jasno');
  WriteLn('p - pasmurno');
  Write('vvedite mesyac i pogodu:');
  ReadLn(s);
  si:=s[1]+s[2];
  j:=s[3];
  if si='ja' then s1:='janvere';
  if si='fe' then s1:='fevrale';
  if si='mr' then s1:='marte';
  if si='ap' then s1:='aprele';
  if si='ma' then s1:='mae';
  if si='iy' then s1:='iyne';
  if si='il' then s1:='iyle';
  if si='av' then s1:='avguste';
  if si='se' then s1:='sentyabre';
  if si='ok' then s1:='oktyabre';
  if si='no' then s1:='noyabre';
  if si='de' then s1:='dekabre';
 
  if j='j' then s2:='jasno'
           else if j='p' then s2:='pasmurno';
  Write('V ',s1, ' bylo ',s2);
  ReadLn;
End.

Погоду не показывает;\

@Дикутенз · 04.06.2013, 08:53

ты как пишешь месяц и погоду? слитно или через пробел?

@kvartz · 04.06.2013, 08:54 **[ТС]**

через пробел

Добавлено через 46 секунд
всё работет,извиняюсь

@Дикутенз · 04.06.2013, 08:56

нужно без пробела писать, в примере же слитно было
Протокол:
Введите месяц и погоду: оп
В октябре было пасмурно

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@kvartz 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 5

	Составьте программу, которая запрашивает месяц 04.06.2013, 07:21. Показов 1763. Ответов 9 Метки нет (Все метки) Составьте программу, которая запрашивает месяц (один из символов: 'о' — октябрь, 'ф' — февраль, 'н' — ноябрь, 'д' — декабрь) и погоду ('я' — ясно или 'п' — пасмурно) и выдаёт сообщение о погоде. Протокол: Введите месяц и погоду: оп В октябре было пасмурно Ребят,помогите пожалуйста:3 0

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	04.06.2013, 07:42
	Месяцы все 12 штук надо? 0

@kvartz 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 5
	04.06.2013, 07:43 [ТС]
	дa. 0

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	04.06.2013, 08:09
	А как месяцы разделять по первой букве, если есть которые начинаются на одну букву? Май, март. Июнь, июль 0

@kvartz 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 5
	04.06.2013, 08:18 [ТС]
	Повторные месяцы можно пропустить,они не столь важны 0

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	04.06.2013, 08:53
	ты как пишешь месяц и погоду? слитно или через пробел? 0

@kvartz 0 / 0 / 0 Регистрация: 04.06.2013 Сообщений: 5
	04.06.2013, 08:54 [ТС]
	через пробел Добавлено через 46 секунд всё работет,извиняюсь 0

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	04.06.2013, 08:56
	нужно без пробела писать, в примере же слитно было Протокол: Введите месяц и погоду: оп В октябре было пасмурно 1