0 / 0 / 0
Регистрация: 12.12.2014
Сообщений: 21
1

Применяя оператор выбора Case составить программу для вычисления

25.12.2014, 10:26. Показов 1899. Ответов 5
Метки нет (Все метки)

Применяя оператор варианта составить программу для вычисления. Оператор выбора CASE.

https://www.cyberforum.ru/cgi-bin/latex.cgi?z=\begin{cases}<br />
a+b*x+c*x^2 & \text{ , } k=1,2,3 \\ <br />
d+c*x+f*x^2 & \text{ , } k=4,5 \\ <br />
a*b+f*x+c*x^2 & \text{ , } k=8<br />
\end{cases}\\<br />
a=3\;,\;b=1.5\;,\;c=1\;,\;d=3\;,\;f=0.5
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2014, 10:26
Ответы с готовыми решениями:

Составить программу вычисления функции y через оператор case
Функция:

Составить программу решения задачи применяя (case.of)
Вообщем что-то я запутался в написании и получился полный бред, а не программа.Кто может сделать...

Составить программу для вычисления функции, используя оператор выбора case
Введите три целых положительных числа a, b, c. Определите остаток k от деления на 5 величины M,...

Написать программу и составить блок-схему вычисления объема полого цилиндра. Использовать оператор выбора.
Написать программу вычисления объема полого цилиндра. Программа должна проверять правильность...

5
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
25.12.2014, 10:59 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
  a=2;b=1.5;c=1;d=3;f=0.5;
var
  z,x:real;
  k:integer;
begin
  write('x=');readln(x);
  repeat
    write('k=');readln(k);
  until (k>0) and (k<9) and (k in [1,2,3,4,5,8]);
  case k of
    1,2,3:z:=a+b*x+c*x*x;
    4,5:z:=d+c*x+f*x*x;
    8:z:=a*b+f*x+c*x*x;
  end;
  writeln('z=',z:0:6);
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32451 / 20945 / 8105
Регистрация: 22.10.2011
Сообщений: 36,213
Записей в блоге: 7
25.12.2014, 11:55 3
Цитата Сообщение от Joy Посмотреть сообщение
until (k>0) and (k<9) and (k in [1,2,3,4,5,8]);

Просто
Pascal
1
until k in [1..5,8];
уже недостаточно?
0
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
25.12.2014, 12:04 4
Цитата Сообщение от volvo Посмотреть сообщение
until k in [1..5,8];
если 257 ввести - пролазит дальше
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32451 / 20945 / 8105
Регистрация: 22.10.2011
Сообщений: 36,213
Записей в блоге: 7
25.12.2014, 12:23 5
Проверил в Турбо-Паскале (под DOSBox-ом, разумеется), пока не введешь значения, заданные во множестве - не проходит дальше.
0
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
25.12.2014, 12:35 6
Видимо машина у меня странная...
Миниатюры
Применяя оператор выбора Case составить программу для вычисления  
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2014, 12:35
Помогаю со студенческими работами здесь

Составить программу для решения задачи, используя оператор выбора Select-Case
Составить программу для решения задачи, используя оператор выбора Select-Case. Составить...

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

Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case
Во вложении функция. Задание: Написать программу для вычисления значения функции с использованием...

Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста
Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста с...

Используя условный оператор составить программу для вычисления выражения
Вычислить значение выражения по формуле ( все переменные принимают действительные значения) ...

Используя оператор Case, составьте программу вычисления значения функции
Используя оператор Case, составьте программу вычисления значения функции: а+bx+cx^2, если 1 &lt;= x &lt;...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru