Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 06.12.2022
Сообщений: 4

Оператор выбора

06.12.2022, 15:39. Показов 357. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано целое четырёхзначное число k. Пусть M -- сумма первой и четвёртой цифр числа k.
Вычислить y, используя оператор CASE.

Помогите с написанием программы
Миниатюры
Оператор выбора  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.12.2022, 15:39
Ответы с готовыми решениями:

Условный оператор и оператор множественного выбора
Много заданий написал, но я уверен, что решить их не составит вам труда (не то что мне), хоть...

нужно поменять оператор if на оператор выбора...
uses crt; var f,n:integer; a,b,w:real; i:longint; begin clrscr; writeln('0'); ...

Условный оператор. Оператор выбора
Помогите пожалуйста с задачей, то я в поскале чайник)! Определить , пересекает ли парабола y=ax +...

2
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
06.12.2022, 18:26
Есть вещи и поважнее...
 Комментарий модератора 
Вы, регистрируясь на форуме, пообещали следовать его правилам.
Дабы помочь в исполнении этого обещания, обращаю внимание, что правилами запрещается создание тем с бессмысленными названиями, публикация текста в виде картинок.

Ссылка на правила приложена, изучаем, впредь держим свое обещание.
Правила форума: http://www.cyberforum.ru/announcement.php?a=3
0
Модератор
10448 / 5739 / 3407
Регистрация: 17.08.2012
Сообщений: 17,460
06.12.2022, 21:04
Лучший ответ Сообщение было отмечено Colsberg как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  k, m: integer;
  y: real;
begin
  repeat
    writeln('Введите четырёхзначное число: ');
    readln(k)
  until (k >= 1000) and (k <= 9999);
  m := k div 1000 + k mod 10;
  case m of
    3, 5:    y := sqr(sin(k) / cos(k)) + sqr(sin(k)) / 2.7;
    7, 8, 9: y := ln(abs(k - 6.3));
    10:      y := exp(k - 0.2 * k * k);
    12, 13:  y := k * k + 2.6 * k + 3.7
    else     y := k * sin(k * k) - 6 * k
  end;
  writeln('y = ', y);
  readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.12.2022, 21:04
Помогаю со студенческими работами здесь

Оператор выбора, оператор перехода.
Единицы массы пронумерованы следующим образом:1-килограмм,2-миллиграм,3-грамм,4-тона,5-центнер.Дан...

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

Оператор выбора
Составить программу для решения текстового задачи с помощью оператора выбора: По введенному номеру...

оператор выбора.....
Даны три числа n,m,p. Вывести на печать только те из них которые являются положительными. но надо...

Оператор выбора
Как это можно решить через оператор выбора case? Для любого натурального числа напечатать...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru