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

@schot811 · Регистрация: 12.12.2014

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?z=\begin{cases} a+b*x+c*x^2 & \text{ , } k=1,2,3 \\ d+c*x+f*x^2 & \text{ , } k=4,5 \\ a*b+f*x+c*x^2 & \text{ , } k=8 \end{cases}\\ a=3\;,\;b=1.5\;,\;c=1\;,\;d=3\;,\;f=0.5$

@Joy · 25.12.2014, 10:59

Pascal

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.

@volvo · 25.12.2014, 11:55

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

until (k>0) and (k<9) and (k in [1,2,3,4,5,8]);

Просто

Pascal

1	until k in [1..5,8];

уже недостаточно?

@Joy · 25.12.2014, 12:04

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

until k in [1..5,8];

если 257 ввести - пролазит дальше

@volvo · 25.12.2014, 12:23

Проверил в Турбо-Паскале (под DOSBox-ом, разумеется), пока не введешь значения, заданные во множестве - не проходит дальше.

@Joy · 25.12.2014, 12:35

Видимо машина у меня странная...

@schot811 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+bx+cx^2 & \text{ , } k=1,2,3 \\ <br /> d+cx+fx^2 & \text{ , } k=4,5 \\ <br /> ab+fx+c*x^2 & \text{ , } k=8<br /> \end{cases}\\<br /> a=3\;,\;b=1.5\;,\;c=1\;,\;d=3\;,\;f=0.5$ __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Joy 2383 / 1295 / 1491 Регистрация: 29.08.2014 Сообщений: 4,651
	25.12.2014, 12:04	4
	Сообщение от volvo until k in [1..5,8]; если 257 ввести - пролазит дальше 0

@volvo Супер-модератор 32451 / 20945 / 8105 Регистрация: 22.10.2011 Сообщений: 36,213 Записей в блоге: 7
	25.12.2014, 12:23	5
	Проверил в Турбо-Паскале (под DOSBox-ом, разумеется), пока не введешь значения, заданные во множестве - не проходит дальше. 0

@Joy 2383 / 1295 / 1491 Регистрация: 29.08.2014 Сообщений: 4,651
	25.12.2014, 12:35	6
	Видимо машина у меня странная... Миниатюры 0

Опции темы