Ищу содержательную задачу для Паскаля на оператор case.

[eugensk]

Можеть быть, у кого-нибудь найдется любимая задача на эту тему, посложнее среднего.

Хотелось бы, чтобы в операторе case были интервалы и списки констант, простые и составные операторы, и была ветка else,
и чтобы все вычисление имело практический смысл. Циклов и процедур еще нет.

У меня из вариантов только
1) число от 1 до 999 вывести прописью
2) число от 1 до 3999 вывести римскими цифрами
3) вывести число дней в месяце, если февраль то допонительно запросить год, чтобы посчитать не високосный ли

Только вариант 3 содержит всё что надо, но он какой-то скучноватый.

[gevaraweb]

Задача

eugensk в сообщении #1374522 писал(а):

2) число от 1 до 3999 вывести римскими цифрами

мне кажется неплохой. Практическая задача? Тут может штука в том, что case в новых языках - может, в отличие от Паскаля, переварить и строковый тип, и в них больше интересных примеров. А тут пришло только в голову:

Первое число января - понедельник. Вывести день недели в зависимости от числа, от 0 до 31.

Потом усложнить - первое число - среда.

Хотя, наверно, задача вам покажется слишком простой. Вот нашел:

Google писал(а):

Задача 9. Калькулятор на Паскале. Ученик вводит с клавиатуры число, символ арифметического действия (+, -, *, /) и еще одно число. Компьютер должен напечатать результат. Указание: Для чисел и арифметического действия используйте оператор ReadLn в Паскаль

[eugensk]

gevaraweb
Вариант с калькулятором хороший, спасибо. Можно в зависимости от операции считывать второй операнд, или нет.

Вообще, без циклов мало что можно сделать, конечно, на этих задачах и остановлюсь.

[gevaraweb]

Или уж извратиться, и сделать задачу типа: на входе тег, вывести его значение. Заодно теги уч-ся вспомнит )

type

   tag = (p, br, a, hr, tr, td, table);
   values = (tabliza, liniya, ssylka, absaz, perenos_stroki, yacheyka, stroka_tablizy, drugoy_tag);

[podih]

Почему CASE - интуитивно запутанный оператор - идёт впереди таких элегантных и прозрачных FOR, WHILE, REPEAT, LOOP? У них и возможностей больше. А CASE естественно их расширит.
Масса идей по задачам с CASE. Но циклы нужны везде.
Надеюсь, учебный план не начинает знакомство с ними с примера

label 1;
begin
print ('Введите число,  0 для завершения');
1:
...
goto 1;
end.

[eugensk]

podih

Видимо, потому что case тоже ветвление, и темы стоят в порядке сложности: линейные программы, ветвления, циклы, рекурсия, указатели.

Мы иногда пишем goto с последнего оператора на начало программы, это повышает полезность программы в разы, потом конечно перестанем так делать :)

[rockclimber]

podih в сообщении #1374657 писал(а):

Почему CASE - интуитивно запутанный оператор - идёт впереди таких элегантных и прозрачных FOR, WHILE, REPEAT, LOOP? У них и возможностей больше. А CASE естественно их расширит.

case - это условный оператор, а for, while, repeat, loop - операторы цикла. Они решают разные задачи, и их бессмысленно сравнивать. А loop еще, кстати, в пакале отсутствует. Там for ... do и repeat ... until.

-- 07.02.2019, 12:00 --

eugensk в сообщении #1374522 писал(а):

Можеть быть, у кого-нибудь найдется любимая задача на эту тему, посложнее среднего.

Ну если посложнее среднего - то напишите парсер какой-нибудь. Парсер XML, например, или парсер арифметических выражений. Чтобы пользователь вводил строку 2 + 2 * 2, а программа ему в ответ - 8 6!

[miflin]

eugensk
Когда-то, пересиливая собственные интересы, пришлось писать функцию, которая, получив в качестве параметра
"сумма численно", возвращала результат "сумма прописью". case не использовал, но быть может...

[eugensk]

rockclimber
Парсер без циклов или функций не очень красивый получится, только для ограниченного класса выражений. Потом к ним придем, во всеоружии.

miflin
Сумма прописью - то что надо, уже думал об этом. Помню, давным-давно у меня с коллегами был спор кто напишет её на foxpro в меньшее число строк, я вроде бы тогда победил :)

[wrest]

Вариации на тему "число прописью".

Сколько чисел от 1 до 9999 делятся нацело(без остатка) на количество букв в своём наименовании исключая (вариант - включая) пробелы?

Ну или:
Делится ли нацело(без остатка) данное число на количество букв в своём наименовании исключая (вариант - включая) пробелы?

Или: сколько букв включая (вариант - исключая) пробелы в наименовании данного числа?

[eugensk]

wrest
Вот еще идея, для младшешкольников: Какое слово получится, если выводить 15-ю букву в числах прописью 348, 999, 712, 234 ...
Заготовить таких слов подлиннее, чтобы никто не захотел считать вручную.

[podih]

wrest в сообщении #1374719 писал(а):

Сколько чисел от 1 до 9999

CASE из 10000 вариантов? Вас же родители съедят.

[miflin]

podih в сообщении #1374727 писал(а):

CASE из 10000 вариантов? Вас же родители съедят.

Не всё так мрачно. Вы, наверное, про какой-то другой CASE.
На самом деле и овцы программисты будут целы, и волки родители сыты (и некоторые даже благодарны).

[rockclimber]

podih в сообщении #1374727 писал(а):

CASE из 10000 вариантов? Вас же родители съедят.

А вас съедят учителя информатики. Для той задачи вполне хватит порядка 40 "кейсов".

eugensk в сообщении #1374712 писал(а):

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

Так если вам задачу просто на один case (ну пусть даже на 10), то тяжело как-то придумать задачу "посложнее среднего", да еще осмысленную. Слишком противоречивые требования.

[gevaraweb]

wrest в сообщении #1374719 писал(а):

Сколько чисел от 1 до 9999 делятся нацело(без остатка) на количество букв в своём наименовании исключая (вариант - включая) пробелы?

Э, погодьте. ТС же просил "жизу". Хотя он тоже увлекся и забыл об этом )