Question

Всем привет, мой предмет: Алгоритмы, структуры данных и программирование.
Пожалуйста, нужно срочно выполнить это задание(прикрепляю фотографию).


Вот код примера как это должно выглядеть:
program melhi;
var
a, b, c, k, r, x, y: real;
begin
write('y, k, x =? ');
readln(y, k, x);
if y <> 0 then a := sqr(sin((k - 5) / y))
else a := 0;
b := x + y;
c := k - y;
if (a <> 0) and (b >= 0) and (c >= 0) then
begin
if b > 0 then b := exp(ln(b) / 6);
b := b + exp(4 * k + 1);
c := 5.6e8 * x + sqrt(c);
r := (c - b) / a;
writeln('r = ', r)
end
else writeln('Значение выражения не определено')
end.

Прошу помогите, Я буду очень благодарен вам.

Answer 1

Ответ:

var r,y,z,g,i:real;

   a,x:integer;

begin

 

 writeln('Дробные переменные');

 write('Введите g:');

 readln(g);

 write('Введите i:');

 readln(i);

 writeln('Целочисленные переменные');

 write('Введите a:');

 readln(a);

 write('Введите x:');

 readln(x);

 

 r:=exp(ln(x/(i+2.5*exp(6*LN(10))*a*i))*(1/3));

 y:=ln(abs(x+1))-z;

 r:=(cos(g)-exp(x))/y;

 

 writeln('r = ',r);

 writeln('y = ',y);

 writeln('z = ',z)

 

end.

Объяснение:

Дробные переменные

Введите g:0.91

Введите i:2.4 

Целочисленные переменные

Введите a:3                                                                                                            

Введите x:1                                                                                                            

r = -3.03620376450226E+000

y =  6.93147180559945E-001

z =  0.00000000000000E+000