Две программы с оператором CASE

@SKA76RUS · Регистрация: 14.09.2010

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

1. Найти значение Y в зависимости от X способом использования оператора выбора CASE

Y=SQRT(x+1) если X принадлежит отрезку [0;1)
Y=SQRT(x)-1 если X принадлежит отрезку [1;2)
Y=Sin(x) если X принадлежит отрезку [2;3)
2. Даны 3 числа (день,месяц,год)

а) Найти дату следующего дня
б) Найти дату предыдущего дня

Известно, что год невисокосный.
Использовать оператор выбора CASE

Помогите пожалуйста. часть первой задачи я сделал, ибо нужно было с помощью IF ещё сделать, а с CASE не получается.
А вторая задача получается очень длинной, так не прокатит у нас.
спасибо заранее

@SKA76RUS · 15.09.2010, 00:01 **[ТС]**

Сообщение от Сэм

Я тебе ее как бы сделал, но сейчас сижу дорабатываю у себя....она верна, но тут ошибки.
Я тот варик выложил на всякий случай!

выложи пожалуйста доработанную и проверенную=)

Добавлено через 53 секунды

Сообщение от Жека-старший

Условие говорит следующее:
Если скобка "[" то мы включаем число, а если скобка "(" то число не включаем.
Это понятно?

конечно понятно, мне не понятно как сам CASE это поймет, и IF все понятно, а вот CASE

@Сэм · 15.09.2010, 00:05

Лично мне понятно, Женек!))) Просто это как-то тоже настораживает. Проверить условие надо!

Добавлено через 50 секунд

Сообщение от SKA76RUS

выложи пожалуйста доработанную и проверенную=)

постараюсь!

Добавлено через 45 секунд

Сообщение от SKA76RUS

как сам CASE это поймет

тебе объяснить как работает переключатель?

@SKA76RUS · 15.09.2010, 00:10 **[ТС]**

тебе объяснить как работает переключатель?

можно) просто я не понимаю как CASE одно число включит [] а другое нет ()

@Жека-старший · 15.09.2010, 00:10

Pascal
1
2
3
4
5
  case x of
  0:y:=sqrt(x+1);
  1:y:=sqrt(x)-1;
  2:y:=sin(x);
  end;

case- это как переключатель.
Работает от переменной типа char, целочисленных типов.
В данном случае от переменной x.
X получает значение, попадает в оператор case. Далее последовательно идет сравнение переменной X со значениями слева от двоеточия.
Если X= значение слева двоеточия, то выполняется ветка находящаяся после двоеточия этой же строки.
Обяснять не мастер. Если не понятно попробую еще раз.

Вот пример.
X=1
CASE X OF
0:y:=.....;//сравниться Х с нулем, не равно, пройдет ниже.
1:y:=sqrt(x)+1;//сравниться с 1, идет совпадение и выполняется эта ветка, после выполнения, выходит из оператора case
2:y:=....;
end;

@SKA76RUS · 15.09.2010, 00:13 **[ТС]**

Сообщение от Жека-старший

Pascal
1
2
3
4
5
  case x of
  0:y:=sqrt(x+1);
  1:y:=sqrt(x)-1;
  2:y:=sin(x);
  end;

case- это как переключатель.
Работает от переменной типа char, целочисленных типов.
В данном случае от переменной x.
X получает значение, попадает в оператор case. Далее последовательно идет сравнение переменной X со значениями слева от двоеточия.
Если X= значение слева двоеточия, то выполняется ветка находящаяся после двоеточия этой же строки.
Обяснять не мастер. Если не понятно попробую еще раз.

Вот пример.
X=1
CASE X OF
0:y:=.....;//сравниться Х с нулем, не равно, пройдет ниже.
1:y:=sqrt(x)+1;//сравниться с 1, идет совпадение и выполняется эта ветка, после выполнения, выходит из оператора case
2:y:=....;
end;

вроде более менее понял =)
спасибо=)

@Сэм · 15.09.2010, 00:13

http://www.cyberguru.ru/programming/pascal- посмотри еще тут!)

@Жека-старший · 15.09.2010, 00:14

Если придрутся, то скажи что не работает CASE с вещественными числами. Поэтому ты взял только границы диапазонов.=)

@Сэм · 15.09.2010, 00:15

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
program     sam;
uses        crt;
var         mes1,mes2,ch1,ch2,g1,g2:integer;
begin
     writeln('vvedi chislo,mesyac,god');
     write('chislo-'); readln(ch1);
     write('mesyac-'); readln(mes1);
     write('god-'); readln(g1);
     ch2:=ch1-1;
     if ch2=0 then begin
                        mes2:=mes1-1;
                        case mes2 of
                        0:begin
                               ch2:=31;
                               mes2:=12;
                               g2:=g1-1;
                          end;
                        1,3,5,7,8:begin ch2:=31; g2:=g1; end;
                        4,6,9,11:begin ch2:=30; g2:=g1; end;
                        2:if(g2 mod 400=0)or(g2 mod 4=0)and(g2 mod 100<>0)then ch2:=28;
                        end;
                    end else begin
                                  mes2:=mes1;
                                  g2:=g1;
                              end;
     writeln('data- ',ch2,'.',mes2,'.',g2);
end.

Работает!

@SKA76RUS · 15.09.2010, 00:15 **[ТС]**

у меня вобщем на вот этом этапе всё стоит.

@SKA76RUS · 15.09.2010, 00:16 **[ТС]**

Сообщение от Сэм

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
program     sam;
uses        crt;
var         mes1,mes2,ch1,ch2,g1,g2:integer;
begin
     writeln('vvedi chislo,mesyac,god');
     write('chislo-'); readln(ch1);
     write('mesyac-'); readln(mes1);
     write('god-'); readln(g1);
     ch2:=ch1-1;
     if ch2=0 then begin
                        mes2:=mes1-1;
                        case mes2 of
                        0:begin
                               ch2:=31;
                               mes2:=12;
                               g2:=g1-1;
                          end;
                        1,3,5,7,8:begin ch2:=31; g2:=g1; end;
                        4,6,9,11:begin ch2:=30; g2:=g1; end;
                        2:if(g2 mod 400=0)or(g2 mod 4=0)and(g2 mod 100<>0)then ch2:=28;
                        end;
                    end else begin
                                  mes2:=mes1;
                                  g2:=g1;
                              end;
     writeln('data- ',ch2,'.',mes2,'.',g2);
end.

Работает!

ухх...спасибо. а можешь ешё с обяснением?=) а то я тут не разберусь сам) и мы не используем переменные типо mes1, нам говорят просто буквой какойнить брать

@Сэм · 15.09.2010, 00:22

mes1- месяц который дан
ch1- число
g1-год
mes2,ch2,g2-результат.
Здесь мы должны были рассмотреть вариант, где бы число было бы 1----отсюда 1-1=0 и далее по case(переключателю)делаем проверку месяца (его номера, ведь в каждом месяце своё кол-во дней), аналогично с годом- високосный или нет- if проверку сделали!

@SKA76RUS · 15.09.2010, 00:29 **[ТС]**

Сообщение от Сэм

mes1- месяц который дан
ch1- число
g1-год
mes2,ch2,g2-результат.
Здесь мы должны были рассмотреть вариант, где бы число было бы 1----отсюда 1-1=0 и далее по case(переключателю)делаем проверку месяца (его номера, ведь в каждом месяце своё кол-во дней), аналогично с годом- високосный или нет- if проверку сделали!

уже дано что невисокосный!

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

Сообщение от Жека-старший

Если придрутся, то скажи что не работает CASE с вещественными числами. Поэтому ты взял только границы диапазонов.=)

лады=)

@Сэм · 15.09.2010, 00:30

Сообщение от SKA76RUS

уже дано что невисокосный!

Где дано?....это универсальная программа- вбиваешь любую дату и все!

@SKA76RUS · 15.09.2010, 00:32 **[ТС]**

Сообщение от SKA76RUS

ch2:=ch1-1;
* * *if ch2=0 then begin
* * * * * * * * * * * * mes2:=mes1-1;

а что тут мы проверяем я чтото не пойму

Добавлено через 22 секунды

Сообщение от Сэм

Где дано?....это универсальная программа- вбиваешь любую дату и все!

нам учила сказала что невисокосный)

@Сэм · 15.09.2010, 00:39

Училке флаг в руки и медаль на шею! Уважаю!

По поводу проверки- представь что число-1. 1-1=0. ты где нибудь видел 0 месяц- я нет, да и никто тоже!

вот поэтому мы выполнили проверку----если ты в результате 0, тогда число-31, месяц 12, а год-1!

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

Не по теме:

так....перекур:smoke:

@Puporev · 15.09.2010, 08:17

Сообщение от Жека-старший

в case нельзя вещественные числа, значит будут только границы диапазона.

Если нельзя, но очень хочется, то можно....

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
case trunc(x*10) of
0..9:write('Y=',sqrt(x+1):0:2);
10..19:write('Y=',sqrt(x)-1:0:2);
20..29:write('Y=',sin(x):0:2);
else write('Y ne opredeleno!');
end;
readln
end.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@SKA76RUS 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 36

	Две программы с оператором CASE 14.09.2010, 22:28. Показов 6043. Ответов 35 Метки нет (Все метки) 1. Найти значение Y в зависимости от X способом использования оператора выбора CASE Y=SQRT(x+1) если X принадлежит отрезку [0;1) Y=SQRT(x)-1 если X принадлежит отрезку [1;2) Y=Sin(x) если X принадлежит отрезку [2;3) 2. Даны 3 числа (день,месяц,год) а) Найти дату следующего дня б) Найти дату предыдущего дня Известно, что год невисокосный. Использовать оператор выбора CASE Помогите пожалуйста. часть первой задачи я сделал, ибо нужно было с помощью IF ещё сделать, а с CASE не получается. А вторая задача получается очень длинной, так не прокатит у нас. спасибо заранее 0

@Сэм Студент 119 / 114 / 16 Регистрация: 14.08.2010 Сообщений: 673
	15.09.2010, 00:13
	http://www.cyberguru.ru/programming/pascal- посмотри еще тут!) 0

@Жека-старший Студент 498 / 344 / 162 Регистрация: 15.03.2010 Сообщений: 601
	15.09.2010, 00:14
	Если придрутся, то скажи что не работает CASE с вещественными числами. Поэтому ты взял только границы диапазонов.=) 0

@SKA76RUS 0 / 0 / 0 Регистрация: 14.09.2010 Сообщений: 36
	15.09.2010, 00:15 [ТС]
	у меня вобщем на вот этом этапе всё стоит. Миниатюры 0

@Сэм Студент 119 / 114 / 16 Регистрация: 14.08.2010 Сообщений: 673
	15.09.2010, 00:22
	mes1- месяц который дан ch1- число g1-год mes2,ch2,g2-результат. Здесь мы должны были рассмотреть вариант, где бы число было бы 1----отсюда 1-1=0 и далее по case(переключателю)делаем проверку месяца (его номера, ведь в каждом месяце своё кол-во дней), аналогично с годом- високосный или нет- if проверку сделали! 1

@Сэм Студент 119 / 114 / 16 Регистрация: 14.08.2010 Сообщений: 673
	15.09.2010, 00:39
	Училке флаг в руки и медаль на шею! Уважаю! По поводу проверки- представь что число-1. 1-1=0. ты где нибудь видел 0 месяц- я нет, да и никто тоже! вот поэтому мы выполнили проверку----если ты в результате 0, тогда число-31, месяц 12, а год-1! Добавлено через 4 минуты Не по теме: так....перекур:smoke: 0

Две программы с оператором CASE

Решение