Помогите с паскалем, у меня практика, это очень безотлагательно... 1. Вычислите выражение при заданных
Помогите с паскалем, у меня практика, это очень срочно...
1. Вычислите выражение при данных константах: A=16.5; b=3.4; x=0.61;
2.
Составить программку вычисления значения функции. На экран вывести функцию (записанную на Паскале) вкупе с результатом.
у=a+b+cx^2,если 1lt;=xlt;2
(a*sin(xb))^2,если 2lt;=xlt;3
под корнем a+bx^2+c ,если 3lt;=xlt;4
a*lnb+c/2x ,если 4lt;=xlt;5
e^esinx+c^3 ,если 5lt;=xlt;6
Пожалуйста...
Задать свой вопрос
Ройф
Паша
А c откуда брать? Константы c нету.
Назмутинова
Ева
Не знаю... Все что было написала.
Алена
Хорошо, сделаю ввод "c" с клавиатуры, раз данных о ней нет.
Юрка Анопа
И x, видимо, тоже надобно считать, т.к. он не попадает в данный спектр [1;6)
1 ответ
Дашка Пиилкова
1)
uses crt;
const a=16.5;b=3.4;x=0.61;
var s,q:real;
begin
s:=x*x*x*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))+a/sqrt(x+b);
q:=(b*x*x-a)/(power(e,a*x)-1);
writeln('s: ',s:0:4,' q: ',q:0:4);
end.
2)
uses crt;
const a=16.5;b=3.4;
var f,c,x:real;
begin
writeln('Введите c,x:');
read(c,x);
if (xlt;1) or (xgt;=6) then
writeln('NULL')
else if (xgt;=1) and (xlt;2) then
f:=a+b*x+c*x*x
else if (xgt;=2) and (xlt;3) then
f:=(a*sin(x*b))*(a*sin(x*b))
else if (xgt;=3) and (xlt;4) then
f:=sqrt(abs(a+b*x*x)+c)
else if (xgt;=4) and (xlt;5) then
f:=a*ln(b+c/(2*x))
else if (xgt;=5) and (xlt;6) then
f:=power(e,e*sin(x))+c*c*c;
writeln(f:0:4);
end.
uses crt;
const a=16.5;b=3.4;x=0.61;
var s,q:real;
begin
s:=x*x*x*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))*(sin((x+b)*(x+b))/cos((x+b)*(x+b)))+a/sqrt(x+b);
q:=(b*x*x-a)/(power(e,a*x)-1);
writeln('s: ',s:0:4,' q: ',q:0:4);
end.
2)
uses crt;
const a=16.5;b=3.4;
var f,c,x:real;
begin
writeln('Введите c,x:');
read(c,x);
if (xlt;1) or (xgt;=6) then
writeln('NULL')
else if (xgt;=1) and (xlt;2) then
f:=a+b*x+c*x*x
else if (xgt;=2) and (xlt;3) then
f:=(a*sin(x*b))*(a*sin(x*b))
else if (xgt;=3) and (xlt;4) then
f:=sqrt(abs(a+b*x*x)+c)
else if (xgt;=4) and (xlt;5) then
f:=a*ln(b+c/(2*x))
else if (xgt;=5) and (xlt;6) then
f:=power(e,e*sin(x))+c*c*c;
writeln(f:0:4);
end.
Uljana Galiullina
Большущее спасибо, вы меня спаслиииииииии!!!!
Руслан
На здоровье.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов