Даны x, y, z. Вычислить a b, если: - Turbo Pascal

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

Даны x, y, z. Вычислить a b, если: Програму и блок-схему, пожалуйста. P.S Зачем уравнения переписывать? И я не знаю как его перепечатать. Извините за неудобства.

Код к задаче: «Даны x, y, z. Вычислить a b, если: - Turbo Pascal»

textual
var
  a, b, x, y, z: real;
 
begin
  Write('X = '); Readln(x);
  Write('Y = '); Readln(y);
  Write('Z = '); Readln(z);
  a := (3 + Exp(y - 1)) / (1 + Sqr(x) * Abs(y - Sin(z) / Cos(z)));
  b := 1 + Abs(y - x) + (Sqr(y - x) / 2) + (Exp(3 * Ln(Abs(y - x))) / 3);
  Writeln('A = ', a:0:2);
  Writeln('B = ', b:0:2);
  Readln
end.

12   голосов, оценка 4.083 из 5


СОХРАНИТЬ ССЫЛКУ