Задание 1.вычислить значение функции F(x)= cos(x), если xamp;lt;0
Задание 1.
вычислить значение функции F(x)= cos(x), если xlt;0
2^x, если 0lt;xlt;=2
Задание 2.
даны числа x,y,z. отыскать min(x+y,x,z,xyz)
необходимы программы в паскале для решения этих задач. ПОМОГИТЕ!
1 ответ
Денис Гаркушенко
1)
var f: real;
x, i: integer;
begin
readln(x);
if (x lt; 0) then f := cos(x);
if ((x gt; 0) and (x lt;= 2)) then f := exp(ln(2) * x);
writeln('F(', x, ') = ', f);
end.
2)
var x, y, z, m: real;
begin
readln(x, y, z);
m := x + y;
if (x lt; m) then m := x;
if (m gt; z) then m := z;
if (m gt; x * y * z) then m := x * y * z;
writeln(m);
end.
Вот, проверил =)
var f: real;
x, i: integer;
begin
readln(x);
if (x lt; 0) then f := cos(x);
if ((x gt; 0) and (x lt;= 2)) then f := exp(ln(2) * x);
writeln('F(', x, ') = ', f);
end.
2)
var x, y, z, m: real;
begin
readln(x, y, z);
m := x + y;
if (x lt; m) then m := x;
if (m gt; z) then m := z;
if (m gt; x * y * z) then m := x * y * z;
writeln(m);
end.
Вот, проверил =)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов