Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
2 / 2 / 1
Регистрация: 09.02.2015
Сообщений: 354
1

Вычислить значение выражения

03.03.2015, 12:12. Показов 662. Ответов 7
Метки нет (Все метки)

Очень долго долбился, но до сих пор не понял как это решить...
В общем, вот:

https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\begin{cases}<br />
a+bx+cx^2 & \text{ , } 1 \le x \le 2  \\ <br />
\sqrt{\left|a+bx^3 \right|}+c & \text{ , } 3 \le x \le 4  \\ <br />
a \cdot ln\left|b+\frac{c}{2x} \right| & \text{ , } 4 \le x \le 5  <br />
\end{cases}

Добавлено через 10 часов 53 минуты
Можете написать только выбор, формулы я сам забью.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.03.2015, 12:12
Ответы с готовыми решениями:

Вычислить значение выражения, значение n вводится с клавиатуры
составить программу для решения задачи. При решении задачи через цикл-&quot;хорошо&quot;, через цикл и...

Вычислить значение выражения
Мальчишки, я же знаю, вы тут классно разбираетесь в информатике, помогите пожалуйста!!! У меня...

Вычислить значение выражения
Вычислить значения выражений: P.S. Прошу прошения за картинку по другому я его отобразить не...

Вычислить значение выражения
Для заданных N и X1,X2,...Xn написать программу, используя подходящую функцию.ПОМОГИТЕ!!!!!!!!

7
Модератор
63707 / 47266 / 32576
Регистрация: 18.05.2008
Сообщений: 114,559
03.03.2015, 13:17 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var x,y:real;
    k:byte;
begin
...............
k:=1;
if(x>=1)and(x<=2)then y:=.........
else if(x>=3)and(x<=4)then y:=......
else if(x>4)and(x<=2)then y:=.......{x=4 уже использовано ранее}
else k:=0;
if k=1 then write('y=',y:0:3)
else write('y не определено');
end.
1
2 / 2 / 1
Регистрация: 09.02.2015
Сообщений: 354
03.03.2015, 19:07  [ТС] 3
Йо йо, через CASE нужно)
0
2 / 2 / 1
Регистрация: 09.02.2015
Сообщений: 354
05.03.2015, 02:55  [ТС] 4
Help!
0
Модератор
63707 / 47266 / 32576
Регистрация: 18.05.2008
Сообщений: 114,559
08.03.2015, 21:17 5
Подобное рассматривалось в этой теме.
Использовать в коде Case вместо If
Вариант от volvo для этого примера довольно долог в написании, а вот вариант от Cyborg Drone
подойдет. Правда в простом АВС не будет работать ни тот ни другой варианты, но в Турбо и в АВС.net работают.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var x,a,b,c,y:real;
    k,f:byte;
begin
writeln('Введите x,a,b,c');
readln(x,a,b,c);
f:=0;
k:=3*ord((x>=1)and(x<=2))+2*ord((x>=3)and(x<=4))+ord((x>4)and(x<=5)and(b+c/(2*x)<>0));
case k of
3:y:=a+b*x+c*x*x;
2:y:=sqrt(abs(a+b*x*x*x))+c;
1:y:=a*ln(abs(b+c/(2*x)));
else f:=1;
end;
case f of
0:writeln('y=',y:0:3);
1:writeln('y не определено');
end;
end.
0
2 / 2 / 1
Регистрация: 09.02.2015
Сообщений: 354
11.03.2015, 21:23  [ТС] 6
Более менее понятно, только "ord" не изучали, но я думаю уже понял что это.
0
Модератор
63707 / 47266 / 32576
Регистрация: 18.05.2008
Сообщений: 114,559
11.03.2015, 21:25 7
Цитата Сообщение от Escaper1 Посмотреть сообщение
"ord" не изучали
Так в справку загляни....
0
2 / 2 / 1
Регистрация: 09.02.2015
Сообщений: 354
11.03.2015, 21:51  [ТС] 8
Справка справкой, а задание нужно было делать из тех знаний, что имелись)

Добавлено через 16 секунд
Но я уже разобрал, спс
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2015, 21:51

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Вычислить значение выражения
Народ,помогите!!! очень срочно!!! нужно сделать 2 задачи по паскаль.сам в нём дум0дубом. задание...

Вычислить значение выражения
как записать это выражение в Pascal ABC \sqrt{\frac{2\left| cos\,\left(\alpha-\frac{\pi}{6}...

Вычислить значение выражения
Напишите программы под пунктами г и д

Вычислить значение выражения
Program pr_2; Var q,,k,d,h:real; Const a=3; b=2; с=1; Begin Readln(c); ...

Вычислить значение выражения
Напишите программу

Вычислить значение выражения


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.