profile
Опубликовано 4 года назад по предмету Информатика от ellzv

Задание 1.
вычислить значение функции F(x)= cos(x), если x<0
                                                      2^x, если 0<x<=2
Задание 2. 
даны числа x,y,z. найти min(x+y,x,z,xyz)
нужны программы в паскале для решения этих задач. ПОМОГИТЕ!

  1. Ответ
    Ответ дан HRAshton
    1)
    var f: real;
        x, i: integer;
    begin
         readln(x);
         if (x < 0) then f := cos(x);
         if ((x > 0) and (x <= 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 < m) then m := x;
         if (m > z) then m := z;
         if (m > x * y * z) then m := x * y * z;
         writeln(m);
    end.

    Вот, проверил =)
Самые новые вопросы