Задача в паскале

Натуличка · 19.02.2012, 14:25

помоги пожалуйста!

Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца.
необходимо использовать оператор case
вот как я сделала скелет этой задачи(конечно это неправильно), я прочто не могу понять как мне это надо оформит! можно сказать, что вобще не разбюираюсь. только начали изучать.
program vibor:
var: x: integer;
begin
writeln (' ввод x');
readln (x);
case K of ( и вот тут не могу правильно описать!!!)
<1-январь>
<2-февраль>
...

<12-декабрь>
writeln (x);
end
согласно правилу нужно использовать вид a1: <on1>;

AlexZir · 19.02.2012, 18:04

Правильная форма команды выбора:

Код:

case <селектор> of
метка1: список команд1;
метка2: список команд2;
...
меткаN: список командN;
else список команд(N+1)
end;

Селектором может служить переменная разрешенного типа, например, целочисленная, вещественная, символьная, строковая и прочие.
В качестве метки выступают конкретные значения селектора для задания механизма выбора. Если имеются одинаковые варианты списков команд для разных значений селектора, то в этом случае эти значения можно перечислить в одной строке через запятую или в виде перечислимого типа, например, так: 1..9,11..19: список команд.

Ваш вариант задачи решается просто. Простейший пример написания команды выбора для вашей задачи:

Код:

readln(MountNumber);
case MountNumber of
1: write('январь');
2: write('февраль');
3: write('март');
4: write('апрель');
5: write('май');
6: write('июнь');
7: write('июль');
8: write('август');
9: write('сентябрь');
10: write('октябрь');
11: write('ноябрь');
12: write('декабрь');
else write('нет такого месяца')
end;

Натуличка · 19.02.2012, 22:25

спасибо большое!!!!!!!!!!!!!

Vladimir_S · 25.02.2012, 21:35

Юлёк fomik, Ваш топик перенесен в отдельную тему Помогите составить программу в Паскале У нас не принято цепляться к чужим темам. Эта тема закрыта.

19.02.2012, 14:25	#1 (permalink)
Натуличка Member Регистрация: 06.02.2012 Сообщений: 46 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в паскале помоги пожалуйста! Составить программу, которая по данному числу (1-12) выводит название соответствующего ему месяца. необходимо использовать оператор case вот как я сделала скелет этой задачи(конечно это неправильно), я прочто не могу понять как мне это надо оформит! можно сказать, что вобще не разбюираюсь. только начали изучать. program vibor: var: x: integer; begin writeln (' ввод x'); readln (x); case K of ( и вот тут не могу правильно описать!!!) <1-январь> <2-февраль> ... <12-декабрь> writeln (x); end согласно правилу нужно использовать вид a1: <on1>;

19.02.2012, 18:04	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Правильная форма команды выбора: Код: case <селектор> of метка1: список команд1; метка2: список команд2; ... меткаN: список командN; else список команд(N+1) end; Селектором может служить переменная разрешенного типа, например, целочисленная, вещественная, символьная, строковая и прочие. В качестве метки выступают конкретные значения селектора для задания механизма выбора. Если имеются одинаковые варианты списков команд для разных значений селектора, то в этом случае эти значения можно перечислить в одной строке через запятую или в виде перечислимого типа, например, так: 1..9,11..19: список команд. Ваш вариант задачи решается просто. Простейший пример написания команды выбора для вашей задачи: Код: readln(MountNumber); case MountNumber of 1: write('январь'); 2: write('февраль'); 3: write('март'); 4: write('апрель'); 5: write('май'); 6: write('июнь'); 7: write('июль'); 8: write('август'); 9: write('сентябрь'); 10: write('октябрь'); 11: write('ноябрь'); 12: write('декабрь'); else write('нет такого месяца') end;

19.02.2012, 14:25
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	На форуме ранее создавались аналогичные обсуждения Задача на Паскале Задача в паскале

19.02.2012, 22:25	#3 (permalink)
Натуличка Member Регистрация: 06.02.2012 Сообщений: 46 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо большое!!!!!!!!!!!!!

25.02.2012, 21:35	#4 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Юлёк fomik, Ваш топик перенесен в отдельную тему Помогите составить программу в Паскале У нас не принято цепляться к чужим темам. Эта тема закрыта.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070