Линейный алгоритм - Turbo Pascal

Формулировка задачи:

const a=10.2; b=9.2; x=2.2; c=0.5; F:=ln(a+sqr(x))+sqr(sin)(x/b); z:=exp(-c*x)*(x+sqrt(x+a)/(x-sqrt(abs(x-b))));

Решение задачи: «Линейный алгоритм»

Листинг программы

const
  a = 10.2;
  b = 9.2;
  x = 2.2;
  c = 0.5;
 
var
  f, z: real;
 
begin
  F := ln(a + sqr(x)) + sqr(sin((x / b)));
  z := exp(-c * x) * (x + sqrt(x + a) / (x - sqrt(abs(x - b))));
  writeln(z);
end.

Объяснение кода листинга программы

Объявляются константы: a = 10.2, b = 9.2, x = 2.2, c = 0.5.
Объявляются переменные: f, z (тип real).
Вычисляется значение переменной f по формуле: f := ln(a + sqr(x)) + sqr(sin((x / b))).
Вычисляется значение переменной z по формуле: z := exp(-c x) (x + sqrt(x + a) / (x - sqrt(abs(x - b))).
Выводится значение переменной z.

Оцени полезность:

11 голосов , оценка 3.727 из 5

Похожие ответы